V B题目在线求助。高手快来。

Question

1.写文本框（txtTest）内容到文本文件（MYFILE.TXT） (至少用2种方法)
2.写文本文件（MYFILE.TXT）到 文本框（txtTest）(至少用2种方法)

Answer 1

Private Sub Command1_Click()
'写方法1

Open "MYFILE.TXT" For Output As #1
Print #1, Text1.Text
Close #1

End Sub

Private Sub Command2_Click()
'写方法2
Dim i As Integer
Dim y As Byte
Open "MYFILE.TXT" For Output As #1
Close #1
Open "MYFILE.TXT" For Binary As #1
For i = 1 To Len(Text1.Text)
If Asc(Mid(Text1.Text, i, 1)) < 0 Then
y = CDec("&h" & Left(Hex(Asc(Mid(Text1.Text, i, 1))), 2))
Put #1, , y
y = CDec("&h" & Right(Hex(Asc(Mid(Text1.Text, i, 1))), 2))
Put #1, , y
Else
y = Asc(Mid(Text1.Text, i, 1))
Put #1, , y
End If
Next
Close #1
End Sub

Private Sub Command1_Click()
'读方法1
Dim a As String
Open "MYFILE.TXT" For Input As #1
Text1.Text = ""
While Not EOF(1)
Line Input #1, a
Text1.Text = Text1.Text & a & vbCrLf
Wend
Close #1

End Sub

Private Sub Command2_Click()
'读方法2

Dim y As Byte, z As Byte
Dim r As Long
Dim a As Integer
Text1.Text = ""
Open "MYFILE.TXT" For Binary As #1
While Not EOF(1)
Get #1, , y
If y < 127 Then
Text1.Text = Text1.Text & Chr(y)
Else
Get #1, , z
r = y * 256# + z - 65536
a = r
Text1.Text = Text1.Text & Chr(a)
End If
Wend
Close #1
End Sub

Answer 2

open "c:\MYFILE.TXT" for output as #1
Print #1,txttest.text
close #1

open "c:\MYFILE.TXT" for append as #1
Print #1,txttest.text
close #1

open "c:\MYFILE.TXT" for input as #
do while not eof(1)
line input #1,s
ss=ss & s & vbcrlf
loop
txttest.text=ss
close #1