UC知道大家来看看我的程序为何出现乱码？
来源：百度知道 编辑：UC知道 时间：2024/06/05 21:45:51
我的程序是将ascII码65~90的字符（A~Z）分别输出到TXT文件和文本框，可是文本框输出正常，TXT件却出现乱码：䉁䑃䙅䡇䩉䱋乍偏剑呓噕涂婙
程序如下：Private Sub Command1_Click()
Dim nStr As String, nStr1 As String, H As Long, B() As Byte, F As String, S As Long
F = "C:\aaa.txt"
Open F For Binary As #1
For i = 65 To 90
a = a + Chr(i)
Next i
Put #1, , a
Text2.Text = Text2.Text + a
Close #1
End Sub
大家也可以试一试，告诉我一下这是为什么，怎么解决。
谢谢了！
程序如下：Private Sub Command1_Click()
Dim nStr As String, nStr1 As String, H As Long, B() As Byte, F As String, S As Long
F = "C:\aaa.txt"
Open F For Binary As #1
For i = 65 To 90
a = a + Chr(i)
Next i
Put #1, , a
Text2.Text = Text2.Text + a
Close #1
End Sub
大家也可以试一试，告诉我一下这是为什么，怎么解决。
谢谢了！
别用二进制方式了吧。用Output模式会好一些。改两句。
========================
Private Sub Command1_Click()
Dim nStr As String, nStr1 As String, H As Long, B() As Byte, F As String, S As Long
F = "C:\aaa.txt"
Open F For Output As #1 '改
For i = 65 To 90
a = a + Chr(i)
Next i
Print #1, a '改
Text2.Text = Text2.Text + a
Close #1
End Sub
Dim nStr As String, nStr1 As String, H As Long, B() As Byte, F As String, S As Long,i as byte
F = "C:\aaa.txt"
Open F For Binary As #1
For i = 65 To 90
a = a + Chr(i)
Put #1, , i
Next i
Text2.Text = Text2.Text + a
Close #1
End Sub
这样改应该好些，不过建议写文件时，如果是往文件中写字符，最好用output或append方式，不要用binary方式。