Private?Sub?Form_Load()
'記得將所有文件放在同壹目錄下
Dim?PasswordLine(10000)?As?String,?Password(10000)?As?String
Dim?Tgt(10000)?As?String
Dim?i?As?Integer
'讀取原編碼,文字代碼對應Password數組下標
Open?App.Path?&?"\My碼.txt"?For?Input?As?#1
Do?While?Not?EOF(1)
i?=?i?+?1
Line?Input?#1,?PasswordLine(i)
Password(i)?=?Left(PasswordLine(i),?1)
Loop
Close
'讀取需翻譯的編碼
i?=?0
Open?App.Path?&?"\密碼本.txt"?For?Input?As?#1
Do?While?Not?EOF(1)
i?=?i?+?1
Line?Input?#1,?Tgt(i)
Loop
Close
'翻譯,原理,用數字匹配下標就是對應文字
For?i?=?1?To?UBound(Tgt)
If?Tgt(i)?<>?""?Then?Tgt(i)?=?Tgt(i)?&?Password(Val(Tgt(i)))
Next
'輸出
Open?App.Path?&?"\New碼.txt"?For?Output?As?#1
For?i?=?1?To?UBound(Tgt)
If?Tgt(i)?<>?""?Then?Print?#1,?Tgt(i)
Next
Close
End?Sub
看了下妳的原始編碼不是順號的,這點疏忽了
妳最好改下原始碼使其順號,不然翻譯就出錯了
我現在有事要出門,不然就把代碼改了
要是我回來還沒有人幫妳解決,那就在來改代碼把