当前位置: 开源爱好者 » 编程教程 » VB教程 » 正文

VB 写入文件FSO操作:三种方法写入文件 按顺序写

  • 时间:2018-04-13
  • 简述:FSO

VB演示三种写入文件的方法:依次按顺序写入文件、一次性写入文件和逐字符写入,这三种写入方法的演示效果,定义在按钮事件中,用户单击窗体上的按钮,对应的写入演示被执行,完整代码如下:

Private Sub Command1_Click()   '用Print语句把数据写入文件
Open App.Path + "\aa.txt" For Output As #1   '打开文件
 Print #1, "VB Test"                  '依次写入顺序文件
 Print #1, Spc(5); "好好学习"
 Print #1, Tab(10); "天天向上"
 Close #1        '关闭文件
End Sub

Private Sub Command2_Click()   ' 把文件的内容一次性的写入
Open App.Path + "\bb.txt" For Output As #1  '打开文件
Print #1, Text1.Text     '文本框内容全部写入
Close #1
End Sub

Private Sub Command3_Click()
Open App.Path + "\cc.txt" For Output As #1 '打开文件
For i = 1 To Len(Text1)              '利用循环
  Print #1, Mid(Text1.Text, i, 1);   '一个字符一个字符地写入文件
Next i
Close #1                             '关闭文件
End Sub

需要完整的包含了测试文件的代码,可在此下载:VB6.0 顺序文件写操作的操作演示

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图