易语言分割文本

.版本 2.子程序 逐字分割文本, , 公开
.参数 欲分割的文本, 文本型, , 欲分割的文本
.参数 分割后文本, 文本型, 数组, 用于装载返回的文本数组
.局部变量 局部_当前文本位置, 整数型
.局部变量 局部_临时, 文本型
.局部变量 局部_分割后文本, 文本型, , "0"局部_当前文本位置 ＝ 1
.判断循环首 (局部_当前文本位置 ≤ 取文本长度 (欲分割的文本))
局部_临时 ＝ 取文本中间 (欲分割的文本, 局部_当前文本位置, 1)
.如果真 (取代码 (局部_临时, ) ＜ 0)
局部_临时 ＝ 取文本中间 (欲分割的文本, 局部_当前文本位置, 2)
局部_当前文本位置 ＝ 局部_当前文本位置 ＋ 1
.如果真结束
加入成员 (局部_分割后文本, 局部_临时)
局部_当前文本位置 ＝ 局部_当前文本位置 ＋ 1
.判断循环尾 ()
分割后文本 ＝ 局部_分割后文本
先复制上面的代码到你的程序里..然后在你想分割的事件下写:.版本 2.局部变量 局部_分割后文本, 文本型, , "0"逐字分割文本(编辑框1.内容,局部_分割后文本)
'注局部_分割后文本这个数组就是你分割的文本..'你可以用调试输出(局部_分割后文本)或暂停() 在变量表里看到'如果你想显示到编辑框2里就可以这样写:.版本 2.局部变量 局部_分割后文本, 文本型, , "0"
.局部变量 局部_计次, 整数型逐字分割文本(编辑框1.内容,局部_分割后文本)
.计次循环首 (取数组成员数 (局部_分割后文本), 局部_计次)
编辑框2.加入文本 (局部_分割后文本 [局部_计次] ＋ #换行符)
.计次循环尾 ()

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yf23r727y.html