vb6代码如下，添加模块，工程--属性--启动对象选择sub mainSub main()Open "c:\temp\25.txt" For Input As #1Clipboard.ClearClipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub
