寻找重复文本遇到的一个问题

桃花岛主

编辑框的内容是：
COM30
COM14
COM12
COM15
COM17
COM11
COM13
COM13
COM17
COM30
COM18
COM14
COM10
COM30
COM31


我写软件的目的是把里面一共有几个com30，com14，找出来。我写的代码如下：


[e]
.版本 2

.子程序 _按钮9_被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 文本数组2, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 重复数值, 整数型
.局部变量 寻找到的位置, 整数型
.局部变量 计次2, 整数型


文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
编辑框1.内容 ＝ “”

.计次循环首 (取数组成员数 (文本数组), 计次)
加入成员 (文本数组2, 取文本左边 (文本数组 [计次], 寻找文本 (文本数组 [计次], 编辑框4.内容, , 假) － 1))

编辑框1.加入文本 (取文本左边 (文本数组 [计次], 寻找文本 (文本数组 [计次], 编辑框4.内容, , 假) － 1) ＋ #换行符)

.计次循环尾 ()


寻找到的位置 ＝ -1

.' 计次循环首 (取数组成员数 (文本数组2), 计次2)
.循环判断首 ()
寻找到的位置 ＝ 寻找文本 (编辑框1.内容, 文本数组2 [计次2], 寻找到的位置 ＋ 1, 假)


编辑框1.内容 ＝ 文本替换 (编辑框1.内容, 寻找到的位置, 取文本长度 (文本数组2 [计次2]), “*”)

.循环判断尾 (寻找到的位置 ≠ -1)
编辑框5.内容 ＝ 编辑框1.内容



' 重复数值 ＝ 重复数值 ＋ 1


' 编辑框5.加入文本 (到文本 (n) ＋ “.” ＋ 文本数组2 [计次2] ＋ “:” ＋ 到文本 (重复数值) ＋ #换行符)




.' 计次循环尾 ()

' 调试输出 (编辑框5.内容)



[/e]

我是思路是，先把“com
30”找出来，然后用“*”代替，进而进而继续寻找，但调试出现了这个情况，找不到原因：

*M14
COM12
COM15
COM17
COM11
COM13
COM13
COM17
*
COM18
COM14
COM10
*
COM31



占据了第二行的2个字符。

希望大家给予帮助。

NeverLoveAgain

text.zip (1.33 KB, 下载次数: 21)

2014-1-20 21:07 上传

点击文件名下载附件

晨兮学易

精易模块里面有文本取出重复次数

聚义堂神话

楼上正解