这样读取比较好！先将整个文件全部读入一个字符串变量，利用你的“解密文本的函数Decode()”将字符串变量解密，然后将字符串按行存入一个字符串数组，再进行你后期的操作。 主要代码如下：'将全部文本读入字符串msgDim msg As String,Dim str As StringDim Buffer As VariantDim i As Integer, j As IntegerOpen "c:\1.txt" For Input As #1msg = StrConv(InputB(LOF(1), 1), vbUnicode)Close #1 '利用你的“解密文本的函数Decode()”将字符串变量解密...
