[劍痞憶秋年]

改成以下方式，不知道可否接受
因為 put 我不熟(哈哈)

Dim gstrText As String, vtLineText As Variant
Dim JetFile_1 As String, JetStr_Temp As String
Dim JetFileNo1 As Integer

JetFile_1 = "c:\test.txt"
JetFileNo1 = FreeFile
'Open "c:\test.txt" For Binary As JetFileNo1
Open "c:\test.txt" For Input As JetFileNo1
  gstrText = StrConv(InputB(LOF(1), JetFileNo1), vbUnicode)
Close JetFileNo1
'Kill "c:\test.txt"
vtLineText = Split(gstrText, vbNewLine)

JetFileNo1 = FreeFile

'Open "c:\test.txt" For Binary As #1
Open JetFile_1 For Output As JetFileNo1
JetStr_Temp = CStr(vtLineText(0) & vbNewLine & vtLineText(1) & vbNewLine & vtLineText(3))
'  Put #JetFileNo1, , JetStr_Temp
  Print #JetFileNo1, JetStr_Temp
Close JetFileNo1