VB读写TXT文档的方法（编写个人日记本软件）

1、打开VB6.0，新建标准EXE工程，摆放一个TextBox、两个CommandButton控件（位置随意摆放，大小任意布局，推荐如图位置）。

2、把TextBox控件的Text属性改为空白，把第一个CommandButton控件的Caption属性改为“写入”，把第二个CommandButton控件的Caption属性改为“读取”。（如图所示）

3、在D盘新建一个名称为123的文本文档（123.txt）（名称可以不是123，硬盘也可以不是D盘，但下面的代码要稍微改动一下），当然，名称也可以任意，有兴趣的读者可以去我的百度经验主页查看进阶版的 VB读写TXT文档、INI文档的方法 经验。

4、双击“写入”的CommandButton控件，进入代码框，在

Private Sub Command1_Click()

......

End Sub

省略号的位置输入（可不用输入注释部分）：

    Open "D:\123.txt" For Output As #1     '打开XXX路径的XXX文件（双引号里表示文件位置和文件名）

    Print #1, Text1.Text     '写入Text1的Text内容

    Close #1     '关闭

（如图）

5、试试写好的软件！

①点击左上角三角形。

②在打开的软件（你编写的软件）的文本框中输入你想写入的内容。（比如我输入“哈哈哈”）

③在123.txt里即可写入“哈哈哈”。

1、双击“读取”的CommandButton控件，进入代码框，在

Private Sub Command2_Click()

......

End Sub

省略号的位置输入（可不用输入注释部分）：

    Open "D:\123.txt" For Input As #1     '打开打开XXX路径的XXX文件（双引号里表示文件位置和文件名）

    Do While Not EOF(1)

        Line Input #1, s

        Text1.Text = s

    Loop     'Do...Loop表示循环读取文件的内容，并让Text1.Text=内容

    Close #1     '关闭

（如图）

2、试试写好的软件！

①点击“读取”。（此时123.txt里本来就有“哈哈哈”的内容）

②文本框里出现“哈哈哈”。