VB6.0把文本框(或控件)文字保存到txt文档的方法
VB6.0把文本框(或控件)文字保存到txt文档,有利于数据的读取和写入,对于某些功能来说很方便,比如说:写篇日志之类的,可以在自己的软件上写,保存就自动保存到自己的txt文档里。(之前我在也看到一个版本,但那个版本跟这个版本的算法不同)(代码填写黑体字)
普及版
- 01
新建一个EXE工程,在里面放置一个TextBox和一个按钮控件,把文本框的Text属性改成空白,把按钮控件的Caption属性改成“写入”。
- 02
定义一个字符串变量,把你想生成的文件路径名赋值给它。这个变量的定义可以用Dim放在按钮的Click事件中,也可以用Public放在模块中。 以下代码可任选一个: ①按钮的Click事件: Dim lj as String lj="文件路径"(如E:\123.txt) ②模块: Public lj as String lj="文件路径"(如E:\123.txt) 本经验用第一种方法。
- 03
在按钮的Click事件中,用Dir函数判断这个路径里有没有123.txt这个文件,然后如果没有的话创建文件,让文件的句柄为#1。 代码: If Dri(lj) = "" then Open lj For Output As #1...... End If
- 04
在文本中写入Text1的内容,然后关闭文本: 代码(插入刚才的省略号的地方): Print #1, Text1.Text Close #1
- 05
效果如图:
升级版
- 01
为了避免有些用户不想用123.txt这个文件名,而想随时改文件名,小编教大家进阶版的创建txt的方法。
- 02
在Form里多加一个TextBox,名称为Text2,这个TextBox里填的就是文件名。 把Text属性改成空白。
- 03
然后把上面的 Dim lj as String lj="文件路径"(如E:\123.txt) 改为 Dim lj as String lj="文件路径" & Text2.text & ".txt"(如"E:\" & Text2.text & ".txt") 或者把 Public lj as String lj="文件路径"(如E:\123.txt) 改为 Public lj as String lj="文件路径" & Text2.text & ".txt"(如"E:\" & Text2.text & ".txt")
- 04
效果如图: