怎么把一行字一个字 一个字的分开 没有被用作分割的文本
.版本 2.子程序 逐字分割文本, , 公开
.参数 欲分割的文本, 文本型, , 欲分割的文本
.参数 分割后文本, 文本型, 数组, 用于装载返回的文本数组
.局部变量 局部_当前文本位置, 整数型
.局部变量 局部_临时, 文本型
.局部变量 局部_分割后文本, 文本型, , "0"局部_当前文本位置 = 1
.判断循环首 (局部_当前文本位置 ≤ 取文本长度 (欲分割的文本))
局部_临时 = 取文本中间 (欲分割的文本, 局部_当前文本位置, 1)
.如果真 (取代码 (局部_临时, ) < 0)
局部_临时 = 取文本中间 (欲分割的文本, 局部_当前文本位置, 2)
局部_当前文本位置 = 局部_当前文本位置 + 1
.如果真结束
加入成员 (局部_分割后文本, 局部_临时)
局部_当前文本位置 = 局部_当前文本位置 + 1
.判断循环尾 ()
分割后文本 = 局部_分割后文本
先复制上面的代码到你的程序里..然后在你想分割的事件下写:.版本 2.局部变量 局部_分割后文本, 文本型, , "0"逐字分割文本(编辑框1.内容,局部_分割后文本)
'注局部_分割后文本这个数组就是你分割的文本..'你可以用调试输出(局部_分割后文本)或暂停() 在变量表里看到'如果你想显示到编辑框2里就可以这样写:.版本 2.局部变量 局部_分割后文本, 文本型, , "0"
.局部变量 局部_计次, 整数型逐字分割文本(编辑框1.内容,局部_分割后文本)
.计次循环首 (取数组成员数 (局部_分割后文本), 局部_计次)
编辑框2.加入文本 (局部_分割后文本 [局部_计次] + #换行符)
.计次循环尾 ()
.参数 欲分割的文本, 文本型, , 欲分割的文本
.参数 分割后文本, 文本型, 数组, 用于装载返回的文本数组
.局部变量 局部_当前文本位置, 整数型
.局部变量 局部_临时, 文本型
.局部变量 局部_分割后文本, 文本型, , "0"局部_当前文本位置 = 1
.判断循环首 (局部_当前文本位置 ≤ 取文本长度 (欲分割的文本))
局部_临时 = 取文本中间 (欲分割的文本, 局部_当前文本位置, 1)
.如果真 (取代码 (局部_临时, ) < 0)
局部_临时 = 取文本中间 (欲分割的文本, 局部_当前文本位置, 2)
局部_当前文本位置 = 局部_当前文本位置 + 1
.如果真结束
加入成员 (局部_分割后文本, 局部_临时)
局部_当前文本位置 = 局部_当前文本位置 + 1
.判断循环尾 ()
分割后文本 = 局部_分割后文本
先复制上面的代码到你的程序里..然后在你想分割的事件下写:.版本 2.局部变量 局部_分割后文本, 文本型, , "0"逐字分割文本(编辑框1.内容,局部_分割后文本)
'注局部_分割后文本这个数组就是你分割的文本..'你可以用调试输出(局部_分割后文本)或暂停() 在变量表里看到'如果你想显示到编辑框2里就可以这样写:.版本 2.局部变量 局部_分割后文本, 文本型, , "0"
.局部变量 局部_计次, 整数型逐字分割文本(编辑框1.内容,局部_分割后文本)
.计次循环首 (取数组成员数 (局部_分割后文本), 局部_计次)
编辑框2.加入文本 (局部_分割后文本 [局部_计次] + #换行符)
.计次循环尾 ()
温馨提示:答案为网友推荐,仅供参考
第1个回答 2013-07-09
分割文本必须有用作分割标识的分隔符,不能看到的分隔符只有两种, 空字符 和 换行符
第2个回答 2013-07-09
.版本 2文本 = “|1|1|你|想|说|的|话|!|”
分割后文本 = 分割文本 (文本, “|”, )
分割后文本 = 分割文本 (文本, “|”, )