致新手:用VB6解决一些有趣的问题(七)
来源:互联网 发布:python 创建两个字典 编辑:程序博客网 时间:2024/06/06 16:52
文件读写
程序总离不开数据的输入输出,除了键盘鼠标最重要的媒介就是磁盘文件
而且无论什么语言,如果不支持二进制文件的操作,就算不上是强大的语言
文件读写常用的有下面的语句和函数:
Open FreeFile Input Get Put Lof Loc EOF Close ...
要操作一个文件我们必须先打开它:
Open 文件名(全路径) For 模式 Access 读/写 Lock 读/写 As #文件号 Len = 长度
文件名是能够指明文件位置的字符串常量或者表达式,如:
"c:/1.txt",Text1.Text,strFileName,Label1.Caption,List1.List(0),List1.Text
模式是打开进行操作的类型,如:
Input(输入),Output(输出),Append(追加),Random(随机),Binary(二进制)
Access 是指明读写的类型(方式):读 或 写 这部分可以省略
Lock 指明不能进行的操作,如Lock Write 就使得其它进程不能对该文件写入数据,也可以省略
#文件号 标识文件的东西,究竟是什么不需要知道,1-511之间的值,可以用FreeFile返回可用的
文件号,如:
Dim f As Integer
f = FreeFile
后面还有个Len 就是制定文件读写的长度,小于或等于 32,767(字节)的一个数。对于用随机
访问方式打开的文件,该值就是记录长度。对于顺序文件,该值就是缓冲字符数。可以省略,且如
果是二进制模式,Len 部分是无效的,写多少都没用.
文件名:程序目录下 Test.txt文件
文本框:Text1
按钮:Command1
点击Command1,把Test.txt的内容读到Text1
Private Sub Command1_Click()
Dim s As String
Open App.Path & "/Test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1,s
Text1.Text = Text1.Text & s & vbCrLf
Loop
Close #1
End Sub
逐行输入是最常用的输入,其他的要各位新手多摸索了
下面演示一种自定义文件类型的文档读写,这里也顺便演示函数/过程的写法
设定文档文件头WBX三个字节,第四字节为加密的密文
读取 只要传递 文件名 和加密码就可以了
比如
Private Sub Command1_Click()
Text1.Text = ReadFile(App.Path & "/Test.wbx")
'Text1.Text = ReadFile(CommonDialog1.FileName)
End Sub
Private Sub Command2_Click()
If WriteFile(App.Path & "/Test.wbx",Text1.Text) = True Then
Msgbox "保存完毕!"
Else
Msgbox "保存失败!"
End If
End Sub
到这个程度,很多东西只能靠意会,靠摸索,考的是程序员的思考能力!
要把某一种语言讲透彻那是学者的事情了
- 致新手:用VB6解决一些有趣的问题(七)
- 致新手:用VB6解决一些有趣的问题(一)
- 致新手:用VB6解决一些有趣的问题(二)
- 致新手:用VB6解决一些有趣的问题(三)
- 致新手:用VB6解决一些有趣的问题(四)
- 致新手:用VB6解决一些有趣的问题(五)
- 致新手:用VB6解决一些有趣的问题(六)
- 致新手:用VB6解决一些有趣的问题(八)
- 致新手:用VB6解决一些有趣的问题(九)
- 致新手:用VB6解决一些有趣的问题(十)
- 一些有趣的问题
- 用VB6设计有趣的动画场景
- 终于解决了,vista下用VB6的问题
- 一些有趣的JAVA问题!
- 一些有趣的数学问题
- 用PHP解决一个有趣的字符串问题
- 有趣的机器学习(七)
- VB6开发中注意的一些小问题
- Zend Framework 1.10.1 开始使用 Zend_Session,Zend_Auth,和 Zend_Acl
- C++ 默认复制构造函数备忘
- swing弹出对话框
- Identify Anagram
- Cognos8 处理父子维度浅析
- 致新手:用VB6解决一些有趣的问题(七)
- CK3刷机步骤
- 彻底删除SQL Server2005的步骤
- 无法割舍
- CHM文章不能显示的问题
- 远程桌面问题,连接后马上断开,并显示“远程计算机已结束连接”或者不显示
- 婚礼上残疾的叔婶原来是公婆……
- rowguid列删除
- 将.cs文件编译成为.dll文件的亲身经历