五笔打字通主页
用VB编写一个记事本,一定要用到读文本文件和保存文本文件这两个模块,这两个模块做成两个函数
Private Function GetTXT(Path As String) '读取文本
Open Path For Input As #1
GetTXT = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
End Function
Private Sub SetTXT(Strl As String, Path As String) '保存文本
Open Path For Output As #1
Print #1, Strl;
Close #1
End Sub
有了以上两个函数,你在窗体的任何地方都可以调用了。
假如你的C盘下有一个文本文件名叫 abc.txt
在窗体上,要读取这个txt文本文本的内容到窗体上的文本框1的代码就是:
Text1.Text = GetTXT("c:\abc.txt")
在窗体要要把文本框1的内容保存到c:\abc.txt 代码就是:
Call SetTXT(Text1.Text, "c:\abc.txt")
来源:济亨网
本文链接:http://wb98.com/post/23.html