精易论坛

标题: 精易模块里“文本_逐字分割”函数的BUG [打印本页]

---

作者: CakeEternal    时间: 2016-7-15 13:36
标题: 精易模块里“文本_逐字分割”函数的BUG


我发现逐字分割文本要是我不内存在换行符，换行符就会变成2个空格。下面是我根据原源码重新写的一个，可以识别换行符

1. .版本 2
   
2. 
   
3. .子程序 文本_逐字分割, 整数型, 公开, 将给定的指定文本,逐字分割出来,目前只支持半角格式[V雪落有声V]
   
4. .参数 文本, 文本型, , 需要取出来的汉字
   
5. .参数 返回的数组, 文本型, 参考 可空 数组, 保存取出结果的数组变量
   
6. .局部变量 A, 整数型
   
7. .局部变量 V, 文本型
   
8. .局部变量 C, 整数型
   
9. .局部变量 D, 整数型
   
10. .局部变量 E, 文本型
    
11. .局部变量 F, 整数型
    
12. 
    
13. A ＝ 1
    
14. E ＝ 到半角 (文本)
    
15. 重定义数组 (返回的数组, 假, 取文本长度 (E))
    
16. .判断循环首 (A ≤ 取文本长度 (E))
    
17.     V ＝ 取文本中间 (E, A, 1)
    
18.     C ＝ 取代码 (V, )
    
19.     .如果真 (C ＝ 13)
    
20.         .如果真 (取代码 (取文本中间 (E, A ＋ 1, 1), ) ＝ 10)
    
21.             V ＝ #换行符
    
22.             A ＝ A ＋ 1
    
23.         .如果真结束
    
24. 
    
25.     .如果真结束
    
26.     .如果真 (C ＜ 0)
    
27.         V ＝ 取文本中间 (E, A, 2)
    
28.         A ＝ A ＋ 1
    
29.     .如果真结束
    
30.     F ＝ F ＋ 1
    
31.     返回的数组 [F] ＝ V
    
32.     A ＝ A ＋ 1
    
33. .判断循环尾 ()
    
34. 重定义数组 (返回的数组, 真, F)
    
35. 返回 (取数组成员数 (返回的数组))
    

复制代码

---

作者: 镇坛道德标杆    时间: 2016-7-15 14:42
大概因为换行符本身就是{13,10}

---

作者: w839558403    时间: 2016-7-15 16:00
好厉害的羊子

---

作者: 萧阳天    时间: 2016-7-16 19:26
已修正，感谢反馈

---

作者: 15657750798    时间: 2016-7-19 12:30

回个铁  求点金币啦

---

作者: luguijian    时间: 2016-8-6 02:12
看看，还不错

---

作者: wx211    时间: 2016-8-16 15:37
非常的好东西谢谢

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4