Dim strFilePath As String =SaveFileDialog1.FileName
创新互联是一家以网络技术公司,为中小企业提供网站维护、成都网站制作、成都网站建设、外贸营销网站建设、网站备案、服务器租用、主机域名、软件开发、微信小程序等企业互联网相关业务,是一家有着丰富的互联网运营推广经验的科技公司,有着多年的网站建站经验,致力于帮助中小企业在互联网让打出自已的品牌和口碑,让企业在互联网上打开一个面向全国乃至全球的业务窗口:建站欢迎咨询:18982081108
Dim sw As StreamWriter = New StreamWriter(strFilePath, True) 'true是指以追加的方式打开指定文件
For i = 0 To j
temp = i.ToString
sw.WriteLine(temp)
sw.Flush()
Next
sw.Close()
sw = Nothing
以下示例一次从文件中读取一行,然后将每行文本打印到控制台。
Sub ReadTextLinesFromFile()
Dim file As New System.IO.StreamReader("c:test.txt")
Dim oneLine As String
oneLine = file.ReadLine()
While (oneLine "")
Console.WriteLine(oneLine)
oneLine = file.ReadLine()
End While
file.Close()
End Sub
工作需要 我需要使用对文本文件进行读写操作 编程需要完成如下工作
把程序执行错误追加到错误日志中
使巧巧读书网的编辑能够读取错误日志
记得以前使用vb 的时候 对文本文件的操作挺麻烦的 特别是在写文件的时候 需要区分什么顺序文件 随机文件 很教材都专门针对文本文件的读写开辟了一个章节来讲解 够麻烦的了 现在使用 net读写文本文件 因为时间仓促 没来得及细看MSDN 同时受到 的思路影响 把问题复杂化了 在追加记录到文本文件尾部的时候就写不下去了 后来仔细看了一下MSDN中例子 问题终于得到了解决
好了下面进入正题 分别把中对文本文件进行读和写的通用操作做个示例 免得后来新手多走弯路
我们这里是对文件流进行操作 所以模块前面要加上
Imports System IO
写操作
使用System IO的StreamWriter 下面是代码
Dim strFilePath As String = SaveFileDialog FileName
Dim sw As StreamWriter = New StreamWriter(strFilePath True) true是指以追加的方式打开指定文件
For i = To j
temp = i ToString
sw WriteLine(temp)
sw Flush()
Next
sw Close()
sw = Nothing
首先要说明的是构造函数new
Public Sub New(path append Encoding)
path 要打开文件的完整路径 如果文件不存在则自动建立一个新的文件
append 缺省值为false 指示是否以追加方式打开指定文件 false——如果存在path指定的文件 则覆盖原文件 否则建立一个新文件 true——如果存在path指定的文件 则打开该文件 以追加数据的方式在文尾写数据 否则建立一个新文件
Encoding 缺省值为System Text Encoding Default 即使用系统缺省的编码 指示以什么样的编码写文件
WriterLine(str) 在文本中添加一个新行 同时在行尾加上回车换行符
读操作
Dim line As String
Dim sr As StreamReader = New StreamReader(strPath System Text Encoding Default)
Do While sr Peek()
line = sr ReadLine()
Loop
sr Close()
sr = Nothing
构造函数new
Public Sub New(Path Encoding)
path 要打开文件的完整路径 如果文件抛出一个错误
Encoding 缺省值为System Text Encoding Default 即使用系统缺省的编码 指示以什么样的编码读文件
lishixinzhi/Article/program/net/201311/11973
分享文章:vb点虐
输出文本 vbnet printdocument
本文链接:https://www.cdcxhl.com/article0/ddidgio.html
成都网站建设公司_创新互联,为您提供、网站内链、手机网站建设、定制网站、搜索引擎优化、App设计
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联