前端之家收集整理的这篇文章主要介绍了
vb.net 读写TXT文件！，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
- PrivateSubCommand1_Click()
- '写文件示例
- DimstrFileNameAsString'文件名
- DimlngHandleAsLong'句柄
- DimstrWriteAsString'要写入的文本内容
- strFileName=App.Path&"/a.txt"
- ''''''''App.Path&"/a.txt"相对路径
- ''"c:/w.txt"绝对路径
- lngHandle=FreeFile()'取得句柄
- '准备要写入的内容
- strWrite=Text1.Text'或者strWrite="这些文字将被写入文件。"
- 'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
- ''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入
- ''''''print#1,text1.text''''''如果print换成write则写进txt中后自动加双引号
- OpenstrFileNameForOutputAslngHandle'打开文件
- Print#lngHandle,strWrite'写入文本
- CloselngHandle'关闭文件
- EndSub
- PrivateSubCommand2_Click()
- '读文件示例
- DimstrFileNameAsString'文件名
- DimlngHandleAsLong'文件句柄
- DimstrAllAsString'所读取的文本文件的所有内容
- DimstrLineAsString'在循环中存放每行的内容
- strFileName=App.Path&"/a.txt"
- '获得文件的句柄
- lngHandle=FreeFile()
- 'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
- OpenstrFileNameForInputAslngHandle
- '循环直到文件尾
- DoWhileNotEOF(lngHandle)
- '每次读取一行存放在strLine变量中
- LineInput#lngHandle,strLine
- '每次读取都把所读到的内容连接到strAll变量，由于LineInput去掉了换行符，所以这里补上
- strAllstrAll=strAll&strLine&vbCrLf
- Loop
- '显示得到的全部分内容
- MsgBoxstrAll
- EndSub
- PrivateSubCommand1_Click()
- OpenApp.Path&"/a.txt"ForOutputAs#1
- Print#1,Text1.Text'这里可以是数据本身也可以是目标控件的属性
- Close#1'关闭打开的文件
- EndSub
- 'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
原文链接：https://www.f2er.com/vb/262428.html
