把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
把文本文件内容读取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 文件名称是什么都无所谓,可以是任何文件
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 搞定
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile
改后缀名是程序完成的,完成后生成的.txt文件自动读入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
文件名称是什么都无所谓,可以是任何文件
'把文本文件内容读取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
搞定