导入文本分割问题，“----”左边太长无法正常分割

soul5164

“----”左边太长无法正常工作，调试出来全是分割到的第一行的字符，左边不是很长的话就没问题。应该怎么改呢

sunsir

你的shuju有问题，是一行的，帮你改了一下~



测试1.e (3.27 KB, 下载次数: 4)

2020-4-7 10:55 上传

点击文件名下载附件

走一回

你想分割成什么形式的文本？？？？

补充内容 (2020-4-7 10:58):
代码好难理解

yanmo

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数组缓存	文本型		0
导入编号	整数型
数组	文本型		0
编号	整数型
A1	文本型

数组缓存 ＝ 分割文本 (编辑框1.内容, 字符 (10), )
调试输出 (数组缓存 [1])
调试输出 (取数组下标 (数组缓存, ))
计次循环首 (10, )
导入编号 ＝ 导入编号 ＋ 1
如果真 (导入编号 ＞ 取数组成员数 (数组缓存))
调试输出 (取数组下标 (数组缓存, ))
导入编号 ＝ 1
.如果真结束    数组 ＝ 分割文本 (数组缓存 [导入编号], “----”, )
如果真 (取数组成员数 (数组) ＜ 2)
编辑框1.加入文本 (“第” ＋ 到文本 (导入编号) ＋ “行错误” ＋ #换行符 )
返回 ()
A1 ＝ 数组 [1]
调试输出 (A1)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组缓存, 文本型, , "0"<br /> .局部变量 导入编号, 整数型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 编号, 整数型<br /> .局部变量 A1, 文本型<br /> <br /> 数组缓存 ＝ 分割文本 (编辑框1.内容, 字符 (10), )<br /> 调试输出 (数组缓存 [1])<br /> 调试输出 (取数组下标 (数组缓存, ))<br /> .计次循环首 (10, )<br />     导入编号 ＝ 导入编号 ＋ 1<br />     .如果真 (导入编号 ＞ 取数组成员数 (数组缓存))<br />         调试输出 (取数组下标 (数组缓存, ))<br />         导入编号 ＝ 1<br />     .如果真结束    数组 ＝ 分割文本 (数组缓存 [导入编号], “----”, )<br />     .如果真 (取数组成员数 (数组) ＜ 2)<br />         编辑框1.加入文本 (“第” ＋ 到文本 (导入编号) ＋ “行错误” ＋ #换行符)<br />         返回 ()<br />     .如果真结束<br />     A1 ＝ 数组 [1]<br />     调试输出 (A1)<br /> <br /> .计次循环尾 ()

试试

soul5164

sunsir 发表于 2020-4-7 10:55
你的shuju有问题，是一行的，帮你改了一下~

在txt文本中是分行的，该怎么改成分行的呢

走一回

友情提示：你的编辑框里的文本，根本没有  换行符。，不信你可以把编辑框拉大或放小一些查看一下。

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数组缓存	文本型		0
导入编号	整数型
数组	文本型		0
A1	文本型

数组缓存 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (数组缓存), 导入编号)
数组 ＝ 分割文本 (数组缓存 [导入编号], “----”, )
如果真 (取数组成员数 (数组) ＜ 2)
编辑框1.加入文本 (“第” ＋ 到文本 (导入编号) ＋ “行错误” ＋ #换行符 )
返回 ()
A1 ＝ 数组 [1] ＋ “,” ＋ 数组 [2]
调试输出 (A1)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组缓存, 文本型, , "0"<br /> .局部变量 导入编号, 整数型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 A1, 文本型<br /> <br /> 数组缓存 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (数组缓存), 导入编号)<br />     数组 ＝ 分割文本 (数组缓存 [导入编号], “----”, )<br />     .如果真 (取数组成员数 (数组) ＜ 2)<br />         编辑框1.加入文本 (“第” ＋ 到文本 (导入编号) ＋ “行错误” ＋ #换行符)<br />         返回 ()<br />     .如果真结束<br />     A1 ＝ 数组 [1] ＋ “,” ＋ 数组 [2]<br />     调试输出 (A1)<br /> .计次循环尾 ()

sunsir

soul5164 发表于 2020-4-7 11:04
在txt文本中是分行的，该怎么改成分行的呢

txt里看起来是分行的是因为宽度不够，你把文档窗口最大化就能看到是一行了~

soul5164

sunsir 发表于 2020-4-7 11:06
txt里看起来是分行的是因为宽度不够，你把文档窗口最大化就能看到是一行了~

谢谢，我改好xx了