发布网友 发布时间:2022-04-29 19:33
共1个回答
热心网友 时间:2022-06-21 07:25
以下代码是把第三个逗号后面的文字都清空。。追答.版本 2
.程序集 窗口程序集1
.程序集变量 找到次数, 整数型, , , 记录找到逗号次数
.程序集变量 第三个逗号位置, 整数型, , , 记录找到逗号的第三个位置
.程序集变量 逗号位置, 整数型, , , 判断是否找到逗号
.程序集变量 待要替换的文本, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 变量1, 整数型
.局部变量 变量2, 整数型
.局部变量 变量3, 整数型
待要替换的文本 = 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (待要替换的文本), 变量1)
.计次循环首 (取文本长度 (待要替换的文本 [变量1]), 变量2)
逗号位置 = 寻找文本 (待要替换的文本 [变量1], “,”, 逗号位置 + 1, 假)
.如果真 (逗号位置 ≠ -1)
找到次数 = 找到次数 + 1
.如果真 (找到次数 = 3)
待要替换的文本 [变量1] = 取文本左边 (待要替换的文本 [变量1], 逗号位置 - 1)
找到次数 = 0
逗号位置 = 0
跳出循环 ()
.如果真结束
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
编辑框1.内容 = “”
.计次循环首 (取数组成员数 (待要替换的文本), 变量3)
编辑框1.加入文本 (待要替换的文本 [变量3] + #换行符)
.计次循环尾 ()
’大致这样吧,需要源码的话留下邮箱哦