如何把数据保存为VB.NETTXT文件

这篇文章主要为大家展示了“如何把数据保存为VB.NET TXT文件”,内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下“如何把数据保存为VB.NET TXT文件”这篇文章吧。

成都创新互联公司专注于甘谷网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供甘谷营销型网站建设,甘谷网站制作、甘谷网页设计、甘谷网站官网定制、重庆小程序开发公司服务,打造甘谷网络公司原创品牌,更为您提供甘谷网站排名全网营销落地服务。

VB.NET TXT文件代码:

Private Sub Command1_Click()  '写文件示例  Dim strFileName As String '文件名  Dim lngHandle As Long '句柄  Dim strWrite As String '要写入的文本内容   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中后自动加双引号   Open strFileName For Output As lngHandle '打开文件  Print #lngHandle, strWrite '写入文本  Close lngHandle '关闭文件  End Sub  Private Sub Command2_Click()  '读文件示例  Dim strFileName As String '文件名  Dim lngHandle As Long '文件句柄  Dim strAll As String '所读取的文本文件的所有内容  Dim strLine As String '在循环中存放每行的内容  strFileName = App.Path & "\a.txt"  '获得文件的句柄  lngHandle = FreeFile()  'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入  Open strFileName For Input As lngHandle  '循环直到文件尾  Do While Not EOF(lngHandle)  '每次读取一行存放在strLine变量中  Line Input #lngHandle, strLine  '每次读取都把所读到的内容连接到strAll变量,由于Line Input去掉了换行符,所以这里补上  strAllstrAll = strAll & strLine & vbCrLf  Loop  '显示得到的全部分内容  MsgBox strAll  End Sub   Private Sub Command1_Click()  Open App.Path & "\a.txt" For Output As #1  Print #1, Text1.Text '这里可以是数据本身也可以是目标控件的属性  Close #1 '关闭打开的文件  End Sub  'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入

append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入 print#1,text1.text 如果print换成write则写进txt中后自动加双引号,以上就是数据保存为VB.NET TXT文件的代码。

以上是“如何把数据保存为VB.NET TXT文件”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


新闻名称:如何把数据保存为VB.NETTXT文件
文章URL:http://bzwzjz.com/article/gioopp.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 外贸网站建设 高端网站设计推广 营销网站建设 网站设计制作报价 网站建设 成都商城网站建设 成都网站设计 高端网站设计 成都网站建设 成都营销网站制作 成都网站建设公司 网站建设费用 成都企业网站设计 营销型网站建设 公司网站建设 成都网站制作 达州网站设计 成都网站设计 定制网站设计 手机网站制作 成都网站设计公司 LED网站设计方案