1樓：
（樓上的**需要再改改）我也給一份...希望能幫到您o(∩_∩)o~
請新建一個控制檯程式，置入以下**：
.版本 2
.支援庫 spec
.程式集 程式集1
.子程式 _啟動子程式, 整數型, , 本子程式在程式啟動後最先執行
.區域性變數 交集1, 整數型, , "0"
.區域性變數 交集2, 整數型, , "0"
.區域性變數 返回值, 文字型
.區域性變數 計次, 整數型
.區域性變數 a, 整數型, , "0"
.區域性變數 b, 整數型, , "0"
.區域性變數 c, 整數型, , "0"
標準輸出 (, “請輸入第一組的幾個數(請用單個空格分開)：”) ' 取值
文字陣列到整數 (分割文字 (標準輸入 (), 取空白文字 (1), ), a)
標準輸出 (, “請輸入第二組的幾個數(請用單個空格分開)：”)
文字陣列到整數 (分割文字 (標準輸入 (), 取空白文字 (1), ), b)
標準輸出 (, “請輸入第三組的幾個數(請用單個空格分開)：”)
文字陣列到整數 (分割文字 (標準輸入 (), 取空白文字 (1), ), c)
除錯輸出 (a)
除錯輸出 (b)
除錯輸出 (c)
取交集 (a, b, 交集1) ' 即a∩b
取交集 (交集1, c, 交集2) ' 即（a∩b）∩c
.計次迴圈首 (取陣列成員數 (交集2), 計次)
返回值 ＝ 返回值 ＋ 到文字 (交集2 [計次]) ＋ “ ”
.計次迴圈尾 ()
標準輸出 (, “公共的數字是：” ＋ 返回值)
標準輸入 ()
返回 (0) ' 可以根據您的需要返回任意數值
.子程式 取交集
.引數 陣列1, 整數型, 陣列
.引數 陣列2, 整數型, 陣列
.引數 存放陣列, 整數型, 參考 陣列
.區域性變數 計次1, 整數型
.區域性變數 計次2, 整數型
.計次迴圈首 (取陣列成員數 (陣列1), 計次1)
.計次迴圈首 (取陣列成員數 (陣列2), 計次2)
.判斷開始 (陣列1 [計次1] ＝ 陣列2 [計次2])
加入成員 (存放陣列, 陣列1 [計次1])
.預設.判斷結束
.計次迴圈尾 ()
.計次迴圈尾 ()
.子程式 文字陣列到整數
.引數 文字陣列, 文字型, 陣列
.引數 存放的整型陣列, 整數型, 參考 陣列
.區域性變數 計次, 整數型
.計次迴圈首 (取陣列成員數 (文字陣列), 計次)
加入成員 (存放的整型陣列, 到整數 (文字陣列 [計次]))
.計次迴圈尾 ()
2樓：一棵v大樹
提出第1組的數和第2組比較，有一樣的就再和第3組比，有一樣的保留，沒有就丟掉繼續
在易語言裡怎樣取出兩個或幾個陣列中相同的數
3樓：匿名使用者
.版本 2
.程式集 主窗集, , , 面向人
.子程式 _你_被單擊
' 刪除重複行 ()‘＾ω＾這個也可以用，挺方便的
取不相同行 ()
.子程式 刪除重複行
.區域性變數 金, 文字型
.區域性變數 割組, 文字型, , "0"
.區域性變數 計次, 整數型
.區域性變數 吃, 邏輯型
金 ＝ 我.內容
割組 ＝ 分割文字 (金, #換行符, )
.計次迴圈首 (取陣列成員數 (割組), 計次)
吃 ＝ 尋找文字 (他.內容, 割組 [計次], , 真) ＝ -1
.如果 (吃)
他.內容 ＝ 他.內容 ＋ 割組 [計次] ＋ #換行符
.否則' 我.內容 ＝ 他.內容 ＋ 分文 [計次] ＋ #換行符
.如果結束
.計次迴圈尾 ()
.子程式 取不相同行
.區域性變數 酸我, 文字型
.區域性變數 我割組, 文字型, , "0"
.區域性變數 酸俺, 文字型
.區域性變數 俺割組, 文字型, , "0"
.區域性變數 我吃, 邏輯型
.區域性變數 俺吃, 邏輯型
.區域性變數 我行數, 整數型
.區域性變數 俺行數, 整數型
.區域性變數 總次, 整數型
.區域性變數 計次, 整數型
.區域性變數 比較, 整數型
.區域性變數 誰, 文字型
酸我 ＝ 我.內容
我割組 ＝ 分割文字 (酸我, #換行符, )
酸俺 ＝ 俺.內容
俺割組 ＝ 分割文字 (酸俺, #換行符, )
我行數 ＝ 取陣列成員數 (我割組)
蛇我的行數.內容 ＝ 到文字 (我行數)
俺行數 ＝ 取陣列成員數 (俺割組)
蛇俺的行數.內容 ＝ 到文字 (俺行數)
.判斷開始 (取符號 (我行數 － 俺行數) ＜ 0)
總次 ＝ 我行數 ' 負
誰 ＝ “我”
.判斷 (取符號 (我行數 － 俺行數) ＞ 0)
總次 ＝ 俺行數 ' 正
誰 ＝ “俺”
.預設總次 ＝ 俺行數 ' 0
誰 ＝ “俺”
.判斷結束
他.內容 ＝ “”
.計次迴圈首 (總次, 計次)
比較 ＝ 文字比較 (我割組 [計次], 俺割組 [計次], 真)
.如果真 (比較 ＜ 0)
他.內容 ＝ 他.內容 ＋ “■第” ＋ 到文字 (計次) ＋ “ 行” ＋ #換行符
他.內容 ＝ 他.內容 ＋ “我：” ＋ 我割組 [計次] ＋ #換行符 ' <
他.內容 ＝ 他.內容 ＋ “俺：” ＋ 俺割組 [計次] ＋ #換行符 ＋ #換行符
.如果真結束
.如果真 (比較 ＝ 0)
' =.如果真結束
.如果真 (比較 ＞ 0)
他.內容 ＝ 他.內容 ＋ “■第” ＋ 到文字 (計次) ＋ “ 行” ＋ #換行符
他.內容 ＝ 他.內容 ＋ “我：” ＋ 我割組 [計次] ＋ #換行符 ' >
他.內容 ＝ 他.內容 ＋ “俺：” ＋ 俺割組 [計次] ＋ #換行符 ＋ #換行符
.如果真結束
.計次迴圈尾 ()
他.內容 ＝ 他.內容 ＋ “★注：從第” ＋ 到文字 (總次 ＋ 1) ＋ “行之後【” ＋ 誰 ＋ “】無內容” ＋ #換行符
我有原始碼,要麼
4樓：匿名使用者
可以迴圈對比每個數
如果你想刪除重複的數,可以用節點操作,速度最快
易語言怎麼取出文字里的一組數字
5樓：匿名使用者
.版本 2
.支援庫
.支援庫 spec
.程式zhi
集視窗程式集1
.子程dao序 __啟動視窗_建立完內畢
.子程式 _按鈕1_被單擊
.區域性變容量 文字, 文字型
.區域性變數 表示式, 正規表示式
.區域性變數 結果陣列, 搜尋結果, , "0"
.區域性變數 i, 整數型
.區域性變數 輸出文字, 文字型
文字 ＝ 編輯框1.內容 ' 假設：編輯框1.內容為：fsdfsd“12345”sdfsd“456789”sdfdfd“01232”
表示式.建立 (#左引號 ＋ “([0-9])” ＋ #右引號, )' 在易中全形雙引號要用常量 #左引號 #右引號' 半形雙引號要用常量：#引號 半形單引號要用常量：
#單引號結果陣列 ＝ 表示式.搜尋全部 (文字)
.計次迴圈首 (取陣列成員數 (結果陣列), i)除錯輸出 (結果陣列 [i].取子匹配文字 (文字, 1, ))' 將輸出結果：
' * “12345”
' * “456789”
' * “01232”
' 你可以在此處理相關文字輸出文，可以用逗號連起來或存入陣列等。
.計次迴圈尾 ()
6樓：麥兜
x = replace("""12345"" sdfsd ""456789"" sdfdfd ""01232""", """", "")
for each i in split(x, " ")if isnumeric(i) = "1" then print i & ",";
next
沒學過易
復語言制 這是vb**僅供參考 看不看的懂我就沒辦法了
7樓：匿名使用者
家我qq我幫你解決 用最簡單的方法190796515
在excel中怎麼在一組數字裡面的數字上加上下劃線 例如123648一組數字只在4下面加下劃線
善良的豬頭 如果是純數字,需轉換成文字 選中需要操作的內容,設定下劃線 你用 alt f11進入 vba,將以下 複製進去,引數設下,執行就ok了 sub set font wz 4 設定下劃線開始位置 cd 1 設定下劃線的字數 clmn 1 設定需設定的列 rowk 1 設定需設定的開始行row...
易語言怎麼判斷編輯框裡面有幾個0 9的數字呢
方法一 整數型 取文字長度 文字型 文字資料 系統核心支援庫 文字操作 方法二 如果你是要找包含的0 9數字，用尋找文字。 小樓思雨 樓主只要數字，其它的我就不幫你算了 版本 2 子程式 按鈕1 被單擊 區域性變數 i,整數型 區域性變數 數值,文字型 區域性變數 數值2,文字型 區域性變數 s,整...
在易語言的程式中到底要不要儘量避免使用變數？
區域性變數沒有多大關係因為區域性變數都是放到棧上的，棧段是固定的，所以不用考慮記憶體佔用問題全域性變數，需要用的時候就要用，你覺得放幾個整數上去佔的哪點小記憶體還不夠你建立一個視窗占用的gdi資源多。儘量要使用變數，否則做大型軟體到後期你會很亂的，親身經歷。變數還是要有的，不然後期維護很麻煩的，只不...