怎样把一个变量（数据）写进*.TXT文件？

Question

同题。
谢谢！

Answer 1

如果变量不多的话，小于10000个，建议用ini文件，很方便的啦
相关API
GetPrivateProfileInt
GetPrivateProfileString
WritePrivateProfileString

Answer 2

Option ExplicitPrivate Sub Command1_Click()
Dim s As String
s = "123456789abcdefg"
Open "c:\123.txt" For Output As #1
    Print #1, s
Close #1
End Sub

Answer 3

goodname008(卢培培，想学好VB) 是小姑娘吗？她用的这个方法很好啊~最简单的方法，简单实用，呵呵~ TO: goodname008(卢培培，想学好VB)
佩服你对VB的热情~我和你一样同样支持VB~

Answer 4

我基本上支持goodname008的做法。实际上就是一个Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]语句。不过记得要用Append 的模式打开。否则，就会覆盖原来文件里的内容。^_^

Answer 5

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