網站去重復源碼易語言

⑷ 易語言編輯框數字內容去重復

.版本 2

.支持庫 spec

.局部變數 文本, 文本型

.局部變數 Buf, 文本型

.局部變數 文本數組, 文本型, , "0"

.局部變數 i, 整數型

.局部變數 asc, 整數型

文本 ＝ 編輯框1.內容

Buf ＝ 取空白文本 (取文本長度 (文本) × 2)

CallWindowProcA ({ 87, 139, 124, 36, 16, 51, 192, 51, 201, 56, 7, 116, 54, 86, 139, 116, 36, 24, 138, 20, 56, 128, 250, 127, 118, 9, 136, 20, 49, 131, 192, 1, 131, 193, 1, 138, 20, 56, 136, 20, 49, 131, 193, 1, 198, 4, 49, 32, 131, 192, 1, 131, 193, 1, 128, 60, 56, 0, 117, 214, 198, 4, 49, 0, 94, 95, 195, 139, 84, 36, 20, 136, 4, 17, 95 }, 窗口1.取窗口句柄 (), 1025, 文本, Buf)

文本數組 ＝ 分割文本 (Buf, 「 」, )

.計次循環首 (取數組成員數 (文本數組), i)

.如果真 (尋找文本 (編輯框2.內容, 文本數組 [i], , 假) ＝ -1)

asc ＝ 取代碼 (文本數組 [i], 1)

調試輸出 (asc, 文本數組 [i])

.如果真 (asc ≥ 48 且 asc ≤ 57)

編輯框2.加入文本 (文本數組 [i])

.如果真結束

.如果真結束

.計次循環尾 ()

.版本 2

.DLL命令 CallWindowProcA, 整數型, "user32.dll", "CallWindowProcA"

.參數 位元組集, 位元組集

.參數 窗口句柄, 整數型

.參數 消息類型, 整數型

.參數 文本, 文本型

.參數 buf, 文本型

⑸ 易語言去除重復問題，把超級列表框的重復去掉，留下一個，求源碼

添加一個流程判斷命令，當新出現的QQ和原QQ相同是咋直接不處理，並反饋

⑹ 易語言去重復。兩個或多個重復的只留一個，寫成源碼，或者直接發到這上面來，

.版本 2

.子程序 _按鈕1_被單擊
.局部變數 數組, 文本型, , "0"
.局部變數 計次, 整數型
.局部變數 計數, 整數型

編輯框2.內容 ＝ 「」
數組 ＝ 分割文本 (編輯框1.內容, 「,」, )
.計次循環首 (取數組成員數 (數組), 計次)
.如果真 (數組 [計次] ＝ 「-1」)
到循環尾 ()
.如果真結束
.變數循環首 (計次 ＋ 1, 取數組成員數 (數組), 1, 計數)
.如果真 (數組 [計次] ＝ 數組 [計數])
數組 [計數] ＝ 「-1」
.如果真結束

.變數循環尾 ()
編輯框2.加入文本 (數組 [計次], 「,」)
.計次循環尾 ()

⑺ 易語言禁止多次運行程序的源碼

.版本 2
.支持庫 EInterProcess

.局部變數 flag, 整數型
flag ＝ 創建命名管道 (「注意這段字元盡量的特別一些XXX」)
.如果真 (flag ＝ 0)
信息框 (「該程序已經運行」, 0, )
結束 ()
.如果真結束

⑻ 易語言去重復網址怎麼寫

用換行符分割文本 然後在循環里檢查網址是否出現過 如果沒有 就把網址放到編輯框3

⑼ 求一個易語言清除文本重復內容的源碼。

.版本2

.子程序__啟動窗口_創建完畢

.局部變數文本,文本型

.局部變數文本組,文本型,,"0"

.局部變數數1,整數型

.局部變數數2,整數型

文本＝到文本(讀入文件(取運行目錄()＋「文本.txt」))

文本組＝分割文本(文本,「,」,)

文本＝「」

.如果真(取數組成員數(文本組)＝0)

信息框(「在運行目錄下沒有」＋#引號＋「文本.txt」＋#引號＋「文件!」,0,)

結束()

.如果真結束

.計次循環首(取數組成員數(文本組),數1)

.如果真(文本組[數1]＝「」)

到循環尾()

.如果真結束

.變數循環首(數1＋1,取數組成員數(文本組),1,數2)

.如果真(文本組[數1]＝文本組[數2])

文本組[數2]＝「」

.如果真結束

.變數循環尾()

文本＝文本＋文本組[數1]＋「,」

.計次循環尾()

寫到文件(取運行目錄()＋「文本.txt」,到位元組集(文本))

⑽ 易語言 去除編輯框內重復的文本

.版本 2

.子程序 _按鈕1_被單擊

.局部變數 成員, 文本型, , "0"

.局部變數 文本位置, 整數型

.局部變數 計次, 整數型

.如果真 (編輯框1.內容 ≠ 「」)

成員 ＝ 分割文本 (編輯框1.內容, 「 」, )

.計次循環首 (取數組成員數 (成員), 計次)

文本位置 ＝ 尋找文本 (編輯框2.內容, 成員 [計次], , 假)

.如果真 (文本位置 ＝ -1)

到循環尾 ()

.如果真結束

編輯框2.內容 ＝ 文本替換 (編輯框2.內容, 文本位置, 3, )

.計次循環尾 ()

.如果真結束