我想问一问高手们，能不能教我写WINDOWS文本文件的代码呀？

Question

http://www.csdn.net/Expert/topic/504/504942.shtm
读取：
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)写入：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

Answer 1

Private Sub Command1_Click()
'把text框的内容写入文件:
Dim FileName As String
Dim TempFile As Long
    FileName = "C:\aa.txt"
    TempFile = FreeFile
    Open FileName For Output As #TempFile '覆盖
        Print #TempFile, Text1.Text
    Close #TempFile
End SubPrivate Sub Command2_Click()
'把text框的内容写入文件:
Dim FileName As String
Dim TempFile As Long
    FileName = "C:\aa.txt"
    TempFile = FreeFile
    Open FileName For Append As #TempFile '追加
        Print #TempFile, Text1.Text
    Close #TempFile
End Sub

Answer 2

open "filename" for input as #1
dim buff as stringinput #1,,buff

Answer 3

open "filename" for input as #1
dim buff as stringinput #1,buff