易语言 文本分割

.版本 2

.子程序 分割文本1, 文本型, 公开
.参数 文本, 文本型
.参数 分割字符, 文本型
.参数 返回第几项, 整数型
.局部变量 str, 文本型, , "0"
.局部变量 j
.局部变量 i

str ＝ 分割文本 (文本, 分割字符, )
.计次循环首 (取数组成员数 (str), i)
.如果真 (删首尾空 (str [i]) ≠ “ ”)
j ＝ j ＋ 1
.如果真 (j ＝ 返回第几项)
返回 (删首尾空 (str [i]))
.如果真结束

.如果真结束

.计次循环尾 ()
返回 (“”)

打开文本
读入一行
分割文本
再读,再分割. 或直接来个循环也行追问

给个例程啊。。我知道用循环。问题是不会用啊

追答

你看这是不是你要的结果

追问

我的意思是要把五列写入 下面五个 编辑框中。（上图）

而且。行数不一定是5行。行数不确定的。

追答

你看一下吧,  已经达到你要的效果了. 你后面就是加无限行, 也一样

追问

兄弟谢了。可是还是有问题啊。

我这个行数并不固定。。。。有可能有40行。。。但然最大行数不会超过50行的。。。。。也有可能只有1行。。你这个我复制7汗。直接报错啊

追答

有这么一组数据。每列之间是用 字符（9） 分开。

问题出在这里, 二次分割,我用了空格, 你这个是9 把空格换成9 就行了.
如果,你二次分割是空格的话, 并且空格数量不同, 那就要先处理文本后, 再分割,类似查找两个空格替换一个空格. 的处理, 然后才能处理分割问题.

追问

不懂--、能写下源码吗。谢谢了。。

追答

把你的整个数据给我

本回答被提问者采纳