原理很簡單
比如你有兩個詞庫 w開頭的詞庫，和 y開頭的詞庫，例如
娃 挖 蛙 瓦 襪 歪 外 彎 灣 丸 完 玩 頑 挽 晚 碗 萬 汪 亡 王 網 往 妄 忘 旺 望 危 威 微 爲 圍 違 唯 維 偉 僞 尾 委 衛 未 位 味 畏 胃 喂 慰 溫 文 紋 聞 蚊 穩 問 翁 窩 我 沃 臥 握 烏 污 嗚 屋 無 吳 五 午 伍 武 侮 舞 勿 務 物 誤 悟 霧壓 呀 押 鴉 鴨 牙 芽 崖 啞 雅 亞 咽 煙 淹 延 嚴 言 巖 沿 炎 研 鹽 蜒 顏 掩 眼 演 厭 宴 豔 驗 焰 雁 燕 央 殃 秧 揚 羊 陽 楊 洋 仰 養 氧 癢 樣 妖 腰 邀 窯 謠 搖 遙 咬 藥 要 耀 爺 也 冶 野 業 葉 頁 夜 液 一 衣 醫 依 儀 宜 姨 移 遺 疑 乙 已 以 蟻 倚 椅 義 億 憶 藝 議 亦 異 役 譯 易 疫 益 誼 意 毅 翼 因然後
.版本 2
.子程序 __啓動窗口_創建完畢
.局部變量 yy, 文本型, , "0"
.局部變量 ww, 文本型, , "0"
.局部變量 結果集, 文本型
.局部變量 i, 整數型
.局部變量 j, 整數型
yy ＝ 分割文本 (#y, “ ”, )
ww ＝ 分割文本 (#w, “ ”, )
' 1 2
' 3 4
' 12 14
' 32 34
.計次循環首 (取數組成員數 (ww), i)
.計次循環首 (取數組成員數 (yy), j)
結果集 ＝ 結果集 ＋ ww [i] ＋ yy [j] ＋ #換行符
.計次循環尾 ()
寫到文件 (取運行目錄 () ＋ “\data\” ＋ ww [i] ＋ “.txt”, 到字節集 (結果集))
結果集 ＝ “”
.計次循環尾 ()
' 置剪輯板文本 (結果集)
輸出調試文本 (“ok”)
分別分割數組，然後組合起來就好了