精易模块里“文本_逐字分割”函数的BUG

CakeEternal

我发现逐字分割文本要是我不内存在换行符，换行符就会变成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. 返回 (取数组成员数 (返回的数组))
    

复制代码

wx211

非常的好东西谢谢

luguijian

看看，还不错

15657750798

回个铁  求点金币啦

萧阳天

已修正，感谢反馈

w839558403

好厉害的羊子

镇坛道德标杆

大概因为换行符本身就是{13,10}