大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
工作需要 我需要使用对文本文件进行读写操作 编程需要完成如下工作
成都创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于成都网站制作、做网站、嘉禾网络推广、小程序开发、嘉禾网络营销、嘉禾企业策划、嘉禾品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;成都创新互联公司为所有大学生创业者提供嘉禾建站搭建服务,24小时服务热线:18980820575,官方网址:www.cdcxhl.com
把程序执行错误追加到错误日志中
使巧巧读书网的编辑能够读取错误日志
记得以前使用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
首先执行Sub Main()
①定义两个变量a=45 b=18
②将a和b作为sum过程的两个参数x=45(按值传递),y=18(按地址传递,将在过程中改变b的初始值)
③xy满足条件,将 x-y=45-18=27 赋值给x ;将 x+y=27+18=45 赋值给y,此时改变了b值为45.
④输出x的值27 y的值45
⑤输出a的值45 b的值45
软糖来告诉你吧。
VB点虐 中读写文件主要使用System.IO命名空间。
① 使用 File.ReadAllText 读取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 读取,注意编码格式和写入的编码保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
③ 使用 File.WriteAllText 写入,会覆盖同名的文件。
Dim 要写的内容 As String = ""
File.WriteAllText(文件路径, 要写的内容, System.Text.Encoding.UTF8)
④ 使用 StreamWriter 写入。
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)
sw.WriteLine(TextTB.Text)
sw.Close()
⑤ 使用 StreamWriter 追加写入。
将上面代码的第二个参数False改为True。
◆ 满意请采纳,谢谢 ◆
在工程目录下面有一个debug\bin\中可以找到你要的文件,自动生成,如果你要发部这个工程,要生成安装包,可以用installshield之类软件,建议使用VS2005或者VS2008