易语言文本操作的问题

jemmy8288

李少良(温州市)2012-03-27 10:56:04回复|删除|4楼
赵红英(大理市)2012-03-28 12:26:07回复|删除|5楼
张建鹏(太原市)2012-02-25 1:06:11回复|删除|6楼
刘辉(任丘市)2011-11-18 11:40:11回复|删除|7楼

以上的文本中，只留下名字和楼数   如：李少良4楼

名字和中间有文本也可以，只要相同就行！给个源码吧，谢了

向往

.版本 2

.程序集 窗口程序集1
.程序集变量 文本数组, 文本型, , "0"

.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 a, 整数型

文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (文本数组), n)
    a ＝ 寻找文本 (文本数组 [n], “(”, , 假)
    编辑框2.加入文本 (取文本左边 (文本数组 [n], a － 1))
    a ＝ 寻找文本 (文本数组 [n], “删除|”, , 假) ＋ 取文本长度 (“删除|”) － 1
    编辑框2.加入文本 (取文本右边 (文本数组 [n], 取文本长度 (文本数组 [n]) － a) ＋ #换行符)
.计次循环尾 ()

蟋蟀

你要的.rar (1.09 KB, 下载次数: 34)

2012-3-30 14:53 上传

点击文件名下载附件

冰点

楼上的很给力

kingsee

sf那么给了LZ是不是该给人家最佳鼓励下啊

-天-堂-

呵呵，顶一个！！

向往

先按行分割文本，
读数组找“（”，返回位置
取文本左边，
再读数组找“删除|”，数组文本总长度-返回位置+取文本长度（“删除|”）
取文本中间（数组的文本，刚才返回的位置，找文本“楼返回的位置”）

ekO

正则不能用？

蟋蟀

。。。你提出问题后 我在5分种之内就传附件帮你解决了 你却把最佳给别人。。。表示记住你了。。。{:3_227:}{:3_227:}{:3_227:}