一个日下面一个成:如何用 VB 读写文件？

Open 文件位置 For Input As #1 If LOF(1) > 0 Then Text1.Text = "" While Not EOF(1) x = DoEvents Line Input #1, str Text1.Text = Text1.Text + str + vbCrLf' Debug.Print str Wend End If Close #1
上边是读文件！

Open 文件位置 For Output As #2 Print #2, Text1.Text Close #2

这是写文件！

可以用ReadLine 方法读入文件,
ReadLine 方法从一个 TextStream 文件读取一整行（到换行符但不包括换行符）并返回得到的字符串。

用WriteLine 方法写入文件, WriteLine 方法写入一个指定的字符串和换行符到一个 TextStream 文件中。.

或者用Read 方法和Write方法,

以上函数的具体用法附:
ReadLine 方法
描述
从一个 TextStream 文件读取一整行（到换行符但不包括换行符）并返回得到的字符串。
语法
object.ReadLine
object参数始终是一个 TextStream 对象的名字。

WriteLine 方法
描述
写入一个指定的字符串和换行符到一个 TextStream 文件中。.
语法
object.WriteLine([string])
WriteLine 方法语法有如下几部分：
部分 描述
object 必需的。始终是一个 TextStream 对象的名字。
string 可选的。要写入文件的正文。如果省略，一个换行符被写入文件中。

Read 方法

描述

从一个 TextStream 文件中读取指定数量的字符并返回得到的字符串。

语法

object.Read(characters)

Read 方法语法有如下几部分：

部分 描述
object 必需的。始终是一个 TextStream 对象的名字。
characters 必需的。从文件中要读取的字符数。

Write 方法

描述

写一个指定的字符串到一个 TextStream 文件。

语法

object.Write(string)

Write 方法语法有如下几部分：

部分 描述
object 必需的。始终是一个 TextStream 对象的名字。
string 必需的。要写到文件中去的正文。

说明

指定的字符串被写入到文件中，在每个字符串之间没有插入空格或字符。使用 WriteLine 方法写入一个换行符或一个以换行符为结尾的字符串。

你的需求不高，数据又不多的情况那种方法太麻烦了，建议使用GetSetting(AppName As String, Section As String, Key As String, [Default]) As String和
SaveSetting(AppName As String, Section As String, Key As String, Setting As String)函数,他们可以在Windows 注册表的应用程序项中返回和读取一个关键字设置值，非常方便。

用streamwriter写
streamreader 读

或者用 filstream 来