.版本 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] ＋ #換行符)
.計次循環尾 ()
補充內容 (2013-12-13 15:52):
這個是廢的，看下面的源碼壓縮包。。。