易語言2個(gè)文本, 取重復(fù)過的文本

.版本 2
.子程序 _按鈕1_被單擊
.局部變量 文本1, 文本型, , "0"
.局部變量 文本2, 文本型, , "0"
.局部變量 n, 整數(shù)型
.局部變量 n1, 整數(shù)型
.局部變量 重復(fù)文本, 文本型
文本1 ＝ 分割文本 (編輯框1.內(nèi)容, #換行符, )
文本2 ＝ 分割文本 (編輯框2.內(nèi)容, #換行符, )
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (文本1), n)
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (文本2), n1)
.判斷開始 (文本1 [n] ＝ 文本2 [n1])
重復(fù)文本 ＝ 重復(fù)文本 ＋ 文本2 [n1] ＋ #換行符
跳出循環(huán) ()
.默認(rèn)
.判斷結(jié)束
.計(jì)次循環(huán)尾 ()
.計(jì)次循環(huán)尾 ()
編輯框3.內(nèi)容 ＝ 重復(fù)文本