怎样用 VB 将数据写入文本文件？怎样更新文本文件中的数据？

Question

up

Answer 1

OPEN语句，INPUT语句，CLOSE语句

Answer 2

Dim strTemp As String, sTemp As String * 128
    strTemp = App.Path & "\Config.ini"
    If FileLen(strTemp) <> 0 Then
        Open App.Path & "\Config.ini" For Binary As #1
        Get #1, , HostSocket
        Get #1, , UserInfo.AutoRecordTele
        Close #1
    End If

Answer 3

Dim strTemp As String, sTemp As String * 128
    strTemp = App.Path & "\Config.txt"
    If FileLen(strTemp) <> 0 Then
        Open App.Path & "\Config.ini" For Binary As #1
        Get #1, , HostSocket
        Get #1, , UserInfo.AutoRecordTele
        Close #1
    End If

Answer 4

Dim ss As String    Private Sub Form_Load()
  On Error Resume Next
  Dim s As String
  ss = App.Path
  If Right(ss, 1) <> "\" Then ss = ss + "\"
  
    ss = "" & ss & "\abc.txt" '打开当前文件夹下的abc.txt文件
    text1.Text = ""
  Open ss For Input As #1  '逐行
    Do While Not EOF(1)
    Line Input #1, s
      text1.Text = text1.Text + s + vbCrLf
    Loop
    Close #1
End Sub
Private Sub cmdSave_Click()  '保存
  On Error Resume Next
  Open ss For Output As #1
  Print #1, text1.Text 
  Close #1
End Sub

Answer 5

上面是读取
下面才是写入
    Open App.Path & "\Config.txt" For Binary As #2
    Put #2, , HostSocket
    Put #2, , UserInfo.AutoRecordTele
    Close #2

Answer 6

使用顺序文件访问 
推荐您使用 File System Objects 来创建文本文件，但该信息只在需要使用旧文本文件创建方法时才提供。当要处理只包含文本的文件时，比如由典型文本编辑器所创 建的文件－也就是说，其中的数据没有分成记录的文件，使用顺序型访问最好。顺序型访问不太适于存储很多数字，因为每个数字都要按字符串存储。一个四位数将需要 4 个字节的存储空间，而不是作为一个整数来存储时只需的 2 个字节。打开顺序访问文件
当以顺序型访问打开一个文件时，可执行以下操作： 从文件输入字符 (Input)
向文件输出字符 (Output)
把字符加到文件 (Append) 
要顺序型访问打开一个文件，Open 语句使用以下语法：Open pathname For [Input | Output | Append] As filenumber [Len = buffersize]当打开顺序文件作为 Input 时，该文件必须已经存在，否则，会产生一个错误。然而，当打开一个不存在的文件作为 Output 或 Append 时，Open 语句首先创建该文件，然后再打开它。当在文件与程序之间拷贝数据时，选项 Len 参数指定缓冲区的字符数。在打开一个文件 Input、Output 或 Append 以后，在为其它类型的操作重新打开它之前必须先使用 Close 语句关闭它。编辑为顺序访问打开的文件 
如果要编辑一个文件，先把它的内容读入到程序变量，然后改变这些变量，最后再把这些变量写回到该文件。以下各节讨论如何编辑以顺序型访问打开的各记录。从文件中读取字符串 
要检索文本文件的内容，应以顺序 Input 方式打开该文件。然后使用 Line Input#，Input( )，或者 Input# 语句将文件拷贝到程序变量中。Visual Basic 提供了一次读写顺序文件一个字符或一行的语句和功能。例如，以下代码段逐行读取一个文件：Dim LinesFromFile, NextLine As StringDo Until EOF(FileNum)
   Line Input #FileNum, NextLine
   LinesFromFile = LinesFromFile + NextLine + Chr(13) + Chr(10)
Loop尽管 Line Input # 到达回车换行时它会识别行尾，但是，当它把该行读入变量时，不包括回车换行。如果要保留该回车换行，代码必须添加。也可以使用 Input # 语句，它读取文件中所写的一列的数字和/或字符串表达式。例如，要从一个邮件列表文件中读取一行，可使用以下语句：Input #FileNum, name, street, city, state, zip可以使用 Input 函数来从文件向变量拷贝任意数量的字符，所给的变量大小应足够大。例如，以下的代码使用 Input 把指定数目的字符复制到变量。LinesFromFile = Input(n, FileNum)要将整个文件复制到变量，请使用 InputB 函数将字节从文件复制到变量。因为InputB 函数返回一个 ANSI 字符串，您必须使用 StrConv 函数将 ANSI 字符串转换为一个如下的 UNICODE 字符串：LinesFromFile = StrConv(InputB(LOF(FileNum), FileNum), vbUnicode)
把字符串写入文件 
要在顺序文件中存储变量的内容，应以顺序 Output 或 Append 打开它，然后使用 Print # 语句。例如，文本编辑器可以使用以下代码行来把一个文本框的内容拷贝到文件。Print #FileNum, TheBox.TextVisual Basic 也支持 Write # 语句，它把一列数字和/或字符串表达式写入文件。它自动地用逗号分开每个表达式，并且在字符串表达式端放置引号。Dim AnyString As String, AnyNumber As IntegerAnyString = "AnyCharacters"
AnyNumber = 23445
Write #FileNum AnyString, AnyNumber这个代码段把两个表达式写入由 FileNum 指定的文件。第一个表达式包含一个字符串而第二个包含数字 23445。因而，Visual Basic 把以下的字符（包括所有标点符号）写入到文件中："AnyCharacters",23445注意 如果正在用顺序型访问的 Write # 与 Input # 语句，可考虑换用随机型 或二进制型访问，因为它们更适合面向于记录的数据。详细信息 有关顺序文件访问的其它信息，请参阅“Open 语句”。

Answer 7

这是MSDN上的讲解，该明白了吧：）