文本分割问题

1094051666

5;400,86,1215875763,3705958412,0,0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,111,0,0,0,0;401,98,1215875763,3706116098,0,0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,125,0,0,0,0;402,95,1215875763,3706114049,0,0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,122,0,0,0,0;403,1340,1215875763,3705809931,0,2,1,0,0,185,0,0,2,0,0,0,65,65,3,70,0,0,8,4,0,0,0,0,0,4,0,0,6,0,2,0,10,13,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;404,2517,1215875763,3705809923,0,0,1,0,19,0,6,21,0,0,90,90,3,80,0,0,0,0,1,100,0,0,0,0,0,0,0,1,0,0,13,16,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;                   这个是要要分割文本  
我想把 里面的   86   98  95  1340  2517 （ 这几个数字  都是变的  ） 分割加入到 编辑框内  要怎么做啊
整不明白了

谢谢下面几位大哥帮忙 小弟还有个事求教！
着里有个物品ID    现在这几个数字  都在编辑框内显示了  那如何让这几个数字  等于 对应 物品ID 后面的  文字呢
（假如  编辑框里显示 86 赤桑霜 98 烤鸭  95 玄清浆 1340 银龙剑  2517 圣仙战袍 ）  意思这样的
要怎么做啊








谢谢这位大哥  帮忙啊 ！！！

airpppp

既然写了,就传上来吧!
以后不应该这样回答问题了!
正则操作!

低调小兵

这几个数会变吗？  你再说详细点吧

1115020326

结果图

程序图

.版本 2

文本 ＝ “5;400,86,1215875763,3705958412,0,0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,111,0,0,0,0;401,98,1215875763,3706116098,0,0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,125,0,0,0,0;402,95,1215875763,3706114049,0,0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,122,0,0,0,0;403,1340,1215875763,3705809931,0,2,1,0,0,185,0,0,2,0,0,0,65,65,3,70,0,0,8,4,0,0,0,0,0,4,0,0,6,0,2,0,10,13,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;404,2517,1215875763,3705809923,0,0,1,0,19,0,6,21,0,0,90,90,3,80,0,0,0,0,1,100,0,0,0,0,0,0,0,1,0,0,13,16,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;”
文本数组 ＝ 分割文本 (文本, “;”, )
.计次循环首 (取数组成员数 (文本数组), 计次)
    .如果真 (取文本长度 (文本数组 [计次]) ＜ 5)
        到循环尾 ()
    .如果真结束
    文本数组2 ＝ 分割文本 (文本数组 [计次], “,”, )
    编辑框1.加入文本 (文本数组2 [2] ＋ #换行符)
.计次循环尾 ()

exit11

.版本 2
.支持库 RegEx

.子程序 _按钮3_被单击
.局部变量 正则, 正则表达式
.局部变量 结果, 搜索结果, , "0"
.局部变量 x, 整数型

正则.创建 (#常量3, )
结果 ＝ 正则.搜索全部 (#常量2)
编辑框1.加入文本 (“正则：” ＋ #换行符)
.计次循环首 (取数组成员数 (结果), x)
    编辑框1.加入文本 (结果 [x].取子匹配文本 (#常量2, 1, ) ＋ #换行符)
.计次循环尾 ()
编辑框1.加入文本 (#换行符)
子程序1 ()

.子程序 子程序1
.局部变量 a, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 b, 文本型, , "0"

a ＝ 分割文本 (#常量2, “;”, )
编辑框1.加入文本 (“数组：” ＋ #换行符)
.计次循环首 (取数组成员数 (a), x)
    b ＝ 分割文本 (a [x], “,”, )
    .如果真 (取数组成员数 (b) ＞ 1)
        编辑框1.加入文本 (b [2] ＋ #换行符)
    .如果真结束

.计次循环尾 ()

airpppp

楼主啊,其实你的上个帖子,我已经把正则表达式写上去了,既然你不认真看帖,我就传下吧,顺便挣赏金!
这个表达式,通用你的2个帖子要求!

taijics

哇  学习了   这么多人会