疑問 - 關於文字檔案覆寫的問題 for VB

劍痞憶秋年 · 2006-09-06, 04:26 PM

改成以下方式，不知道可否接受
因為 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

2006-09-06, 04:26 PM	#2 (permalink)
劍痞憶秋年長老會員榮譽勳章勳章總數4 UID - 15 在線等級: 註冊日期: 2002-12-06 住址: 步雲崖文章: 280 精華: 0 現金: 15847 金幣資產: 20867 金幣	改成以下方式，不知道可否接受因為 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
	__________________ 一切有為法如夢幻泡影如露亦如電應作如是觀
	送花文章: 150, 收花文章: 33 篇, 收花: 130 次

Google 提供的廣告