vb.net 读写TXT文件！

1. PrivateSubCommand1_Click()
2. '写文件示例
3. DimstrFileNameAsString'文件名
4. DimlngHandleAsLong'句柄
5. DimstrWriteAsString'要写入的文本内容
7. strFileName=App.Path&"/a.txt"
8. ''''''''App.Path&"/a.txt"相对路径
9. ''"c:/w.txt"绝对路径
10. lngHandle=FreeFile()'取得句柄
11. '准备要写入的内容
12. strWrite=Text1.Text'或者strWrite="这些文字将被写入文件。"
13. 'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
14. ''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入
15. ''''''print#1,text1.text''''''如果print换成write则写进txt中后自动加双引号
17. OpenstrFileNameForOutputAslngHandle'打开文件
18. Print#lngHandle,strWrite'写入文本
19. CloselngHandle'关闭文件
20. EndSub
21. PrivateSubCommand2_Click()
22. '读文件示例
23. DimstrFileNameAsString'文件名
24. DimlngHandleAsLong'文件句柄
25. DimstrAllAsString'所读取的文本文件的所有内容
26. DimstrLineAsString'在循环中存放每行的内容
27. strFileName=App.Path&"/a.txt"
28. '获得文件的句柄
29. lngHandle=FreeFile()
30. 'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
31. OpenstrFileNameForInputAslngHandle
32. '循环直到文件尾
33. DoWhileNotEOF(lngHandle)
34. '每次读取一行存放在strLine变量中
35. LineInput#lngHandle,strLine
36. '每次读取都把所读到的内容连接到strAll变量，由于LineInput去掉了换行符，所以这里补上
37. strAllstrAll=strAll&strLine&vbCrLf
38. Loop
39. '显示得到的全部分内容
40. MsgBoxstrAll
41. EndSub
43. PrivateSubCommand1_Click()
44. OpenApp.Path&"/a.txt"ForOutputAs#1
45. Print#1,Text1.Text'这里可以是数据本身也可以是目标控件的属性
46. Close#1'关闭打开的文件
47. EndSub
48. 'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!