jennyvenus() 再帮我看看吧

Question

把文本文件内容读取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 1

Option ExplicitPrivate Sub Command1_Click()
    '把文本文件内容读取TextBox:
    Dim TempFile As Long
    Dim LoadBytes() As Byte
    
    TempFile = FreeFile
    Open "d:\a.dlt" For Binary As #TempFile
    ReDim LoadBytes(1 To LOF(TempFile)) As Byte
    Get #TempFile, , LoadBytes
    Close TempFile
    
    Text1.Text = StrConv(LoadBytes, vbUnicode)
    
    
    
    '把TextBox内容写入文本文件:
    Dim SaveBytes() As Byte
    
    SaveBytes = StrConv(Text1.Text, vbFromUnicode)
    
    TempFile = FreeFile
    Open "d:\a.txt" For Binary As #TempFile
    Put #TempFile, , SaveBytes
    Close TempFile
    Kill "d:\a.dlt"       '这个用于删除原来的文件，可以不用
End Sub