No.7 读写txt文件​mp.weixin.qq.com

许多程序需要读写数据，比如商品管理，图书管理，学生档案等，当需要查询的时候，就是读取数据，新增或者更改就需要写数据，VB来讲，中小型的数据一般用Access数据库，大型的数据多用SQL server数据库，这些以后再讲，今天主要了解如何读写txt文本文件。

如何读取txt

在生活中，我们要看一本书，先找到这本书，然后打开，开始读，读完了要合上书，放回原处，然后别人再读。在程序中，过程是一样的，我们新建一个工程，在窗体上放一个label标签控件，一个Text文本框控件，一个Command按钮控件，在C盘根目录新建一个文本文件，重命名为1.txt，在txt中写入张明并保存，如图设置:

在Command1的单击事件中写下面的代码:

我来解释每一个代码的含义：

Open 是打开文件，相当于你读书前要翻开书一样。

"C:1.txt" 是文件的地址，就像你读书前要知道这本书在哪一样。

For Input 是打开的方式，Input是读取，以这种方式打开文件时，文件必须存在，否则会产生错误。也就是说，刚才如果C盘根目录没有这个1.txt程序就会报错。

As #1 为打开的文件指定文件号.对文件进行读写操作时,要用文件号表示该文件.文件号是介于1~511之间的整数。

Line Input #1, a 的意思是读取第一行并赋值给a。

Close #1 是关闭这个文件，然后释放文件号，也就是你看完书，合上，放回原处。

运行效果:

如何写入txt

我们在原有的窗体上再加上一个标签，一个文本框，一个按钮，如图：

然后在"写入"按钮的单击事件中写入如下代码：

我们发现只有两处代码不一样，其他都一样，相同的部分我们就不解释了，我们来看不同的：

For Output表示向打开的文件中写入数据。以这种方式打开文件时，文件中原有的数据将被覆盖，新的数据将从文件开始写入。如果文件不存在，则创建一个新文件。如果刚才C盘根目录没有1.txt，程序就会自动创建一个。

Print #1, a ，这里Print是输出，也就是把a写入到#1里面。

用这种方式打开文件，写入的时候会覆盖原有的数据，形成一个新的数据，比如原来的txt文件里面是张明，我们写入"李亮"以后，就会把"张明"覆盖，看下运行效果：

读取方式还有一种：

For Append，表示向打开的文件中添加数据。以这种方式打开时，文件中原有的数据将被保留，新的数据将从文件开始添加。如果文件不存在，则创建一个新文件。

我们把写入的读取方式改为For Append ，用这种方式打开文件，写入"李亮"的时候，会在原有的数据上增加，并不会把"张明"覆盖。我们看下效果：

我们把打开方式改为 Append :

效果图:

读写txt有什么用

虽然txt用来储存数据不规范，但是也有一定的用途，比如可以当做程序的配置文件，举个例子，我们把上面的代码稍加改动，在窗体加载的时候读取"C:1.txt"里面的数值，并把按钮的字体大小设置成这个数值，就可以当一个简易的程序配置文件：

代码：