关于文本文件的读写问题，很着急，希望大家赐教

Question

用 write 试试，不过它的字符串和数值等是用双引号括起来的。

Answer 1

把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

Answer 2

'换成按行读写
Dim sTmp As String
Dim intFile As Integer
Dim lFree As Long
intFile = FreeFile
lFree = FreeFile
Open "原文件名" For Input As #intFile  '打开文件
Open "新文件名" For Output As lFree    '生成新文件
Close lFree
Open "新文件名" For Append As lFree    '打开新文件
Do While Not EOF(intFile)       '文件尾结束
  Line Input #intFile, sTmp
  Print #lFree, sTmp   '写入变化的内容
  Print #lFree, ""            '换行。
Loop
Close #intFile      '关闭文件
Close lFree