易語言過濾重復
『壹』 易語言去掉編輯框內的重復數
.版本 2
.支持庫 spec
.子程序 __啟動窗口_創建完畢
調試輸出 (子程序1 (「9135632417」))
結束 ()
.子程序 子程序1, 文本型
.參數 文本, 文本型
.局部變數 str, 文本型
.局部變數 intarr, 整數型, , "0"
.局部變數 str_2, 文本型
.局部變數 tem, 整數型
.局部變數 cycle_2, 整數型
.局部變數 return, 文本型
.局部變數 cycle, 整數型
str ＝ 文本
.判斷循環首 (取文本長度 (str) ＞ 0) ' 去除重復
str_2 ＝ 取文本左邊 (str, 1)
加入成員 (intarr, 到整數 (str_2))
str ＝ 子文本替換 (str, str_2, 「」, , , 假)
.判斷循環尾 ()
.計次循環首 (取數組成員數 (intarr), cycle) ' 從小到大排序
.變數循環首 (cycle ＋ 1, 取數組成員數 (intarr), 1, cycle_2)
.如果真 (intarr [cycle_2] ＜ intarr [cycle_2 － 1])
tem ＝ intarr [cycle_2]
intarr [cycle_2] ＝ intarr [cycle_2 － 1]
intarr [cycle_2 － 1] ＝ tem
.如果真結束
.變數循環尾 ()
.計次循環尾 ()
.計次循環首 (取數組成員數 (intarr), cycle) ' 轉換成文本輸出
return ＝ return ＋ 到文本 (intarr [cycle])
.計次循環尾 ()
返回 (return)
『貳』 易語言高級表格插入數據自動過濾重復
.版本 2
.支持庫抄 eGrid
.程序 _按鈕襲1_單擊
.局部變數 n, 整數型
.局部變數 m, 整數型
.局部變數 a, 文本型
.計循環首 (_啟窗口.高級表格1.行數 － 1, n)
a ＝ _啟窗口.高級表格1.取數據 (n, 1)
.真 (a ＝ 嘻嘻嘻嘻)
m ＝ m ＋ 1
高級表格1.插入行 (, )
高級表格1.置數據 (m, 1, 1, a)
高級表格1.置數據 (m, 2, 1, _啟窗口.高級表格1.取數據 (n, 2))
.真結束
.計循環尾 ()
『叄』 易語言 去除編輯框內重復的文本
.版本 2
.子程序 _按鈕1_被單擊
.局部變數 成員, 文本型內, , "0"
.局部變數 文本位置, 整數型容
.局部變數 計次, 整數型
.如果真 (編輯框1.內容 ≠ 「」)
成員 ＝ 分割文本 (編輯框1.內容, 「 」, )
.計次循環首 (取數組成員數 (成員), 計次)
文本位置 ＝ 尋找文本 (編輯框2.內容, 成員 [計次], , 假)
.如果真 (文本位置 ＝ -1)
到循環尾 ()
.如果真結束
編輯框2.內容 ＝ 文本替換 (編輯框2.內容, 文本位置, 3, )
.計次循環尾 ()
.如果真結束
『肆』 [易語言]重復的數據只記錄1次，其餘的刪除。
『伍』 易語言超級列表框去除表項重復求助
計次循環搜索第一列.如果有超過一行一樣「代碼」的就取二三行的「內容」添加到第一次搜索到的那一行，最後再刪除掉除第一行之外的行.
『陸』 易語言提取重復數
.版本 2
.程序集 窗口程序集_啟動窗口
.子程序 __啟動窗口_創建完畢
_按鈕2_被單擊 ()
.子程序 _按鈕1_被單擊
.局部變數 分割數據, 文本型, , "0"
.局部變數 數字分割, 文本型, , "0"
.局部變數 重復次數, 整數型
.局部變數 判斷結果, 文本型
.局部變數 ii, 整數型
.局部變數 i, 整數型
編輯框2.內容 ＝ 「」
分割數據 ＝ 分割文本 (編輯框1.內容, #換行符, )
.計次循環首 (取數組成員數 (分割數據), i)
清除數組 (數字分割)
.計次循環首 (取文本長度 (分割數據 [i]), ii)
加入成員 (數字分割, 取文本中間 (分割數據 [i], ii, 1))
.計次循環尾 ()
判斷結果 ＝ 「」
.判斷循環首 (取數組成員數 (數字分割) ＞ 0)
重復次數 ＝ 1
.變數循環首 (取數組成員數 (數字分割), 2, -1, ii)
.如果真 (數字分割 [ii] ＝ 數字分割 [1])
刪除成員 (數字分割, ii, 1)
重復次數 ＝ 重復次數 ＋ 1
.如果真結束
.變數循環尾 ()
.如果真 (重復次數 ＞ 1)
判斷結果 ＝ 判斷結果 ＋ 數字分割 [1] ＋ 「重復=」 ＋ 到文本 (重復次數) ＋ 「次，」
.如果真結束
刪除成員 (數字分割, 1, 1)
.判斷循環尾 ()
.如果 (判斷結果 ＝ 「」)
編輯框2.加入文本 (「無重復」 ＋ #換行符)
.否則
編輯框2.加入文本 (判斷結果 ＋ #換行符)
.如果結束
.計次循環尾 ()
.子程序 _按鈕2_被單擊
.局部變數 加入文本, 文本型
編輯框1.內容 ＝ 「」
編輯框2.內容 ＝ 「」
置隨機數種子 ()
.計次循環首 (10, )
加入文本 ＝ 「」
.計次循環首 (5, )
加入文本 ＝ 加入文本 ＋ 到文本 (取隨機數 (0, 9))
.計次循環尾 ()
編輯框1.加入文本 (加入文本 ＋ #換行符)
.計次循環尾 ()
『柒』 易語言過濾多餘重復的空格
文本替換，把【兩個空格】換成【一個空格】，直到沒有【兩個空格】存在。代碼很簡短。在此不碼，可以追問。
『捌』 易語言超級列表框 關鍵詞過濾之後結果重復了好多遍 怎麼辦
自己去網路吧。
或者加入易語言群
最好去精易論壇。
然後，我沒有太多時間。
你先檢查先代碼又沒有錯誤。
『玖』 易語言去除編輯框重復內容
.版本 2
.子程序 _按鈕1_被單擊
.局部變數 數組, 文本型, , "0"
.局部變數專 I, 整數型
.局部變數 局_內容屬1, 文本型
.局部變數 P, 整數型
.局部變數 數組2, 文本型, , "0"
.局部變數 局_內容2, 文本型
數組 ＝ 分割文本 (編輯框1.內容, #換行符, )
編輯框1.內容 ＝ 「」
.計次循環首 (取數組成員數 (數組), I)
局_內容1 ＝ 數組 [I]
加入成員 (數組2, 局_內容1)
.計次循環首 (取數組成員數 (數組), P)
局_內容2 ＝ 數組 [P]
.如果真 (數組2 [I] ＝ 局_內容2)
刪除成員 (數組, P, )
插入成員 (數組, P, 「」)
.如果真結束
.計次循環尾 ()
.計次循環尾 ()
『拾』 易語言如何重復取指定內容
.版本來 2
.程序集自 窗口程序集1
.程序集變數 文本, 文本型, , "0"
.程序集變數 文本1, 文本型, , "0"
.子程序 _按鈕1_被單擊
.局部變數 q, 整數型
列表框1.清空 ()
文本 ＝ 分割文本 (「努力學習」 ＋ 到全形 (編輯框1.內容) ＋ 「易語言」, 「（」, )
.計次循環首 (取數組成員數 (文本) － 1, q)
文本1 ＝ 分割文本 (文本 [q ＋ 1], 「）」, )
.如果真 (取數組成員數 (文本1) ＞ 1)
列表框1.加入項目 (到半形 (文本1 [1]), )
.如果真結束
.計次循環尾 ()
' 解釋一下，為什麼在上面寫上：努力學習易語言，呵呵，這個東西純屬隨便寫的，可以寫任何東西。
' 不過需要注意的就是，在代碼不變的情況下，必須寫，是為了防止括弧在前面或者在最後面。
' 用正則的話可能比較更方便，不過我不會，哈哈，在學習中。努力。