vb.net操作 vbnet操作list

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

VB.NET读写文本文件方法

工作需要我需要使用对文本文件进行读写操作编程需要完成如下工作

把程序执行错误追加到错误日志中

使巧巧读书网的编辑能够读取错误日志

记得以前使用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（）

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.net 文件夹操作

vb.net使用控件FolderBrowserDialog1,在程序中:

'设置对话框中在树视图控件上显示的说明文本

Me.FolderBrowserDialog1.Description

"请选择输出报表所在路径:"

'设置从其开始浏览的根文件夹

Me.FolderBrowserDialog1.SelectedPath

"c:\"

Me.FolderBrowserDialog1.ShowDialog()

DialogResult.OK

Then

'取得全路径（包含文件名）

reportPath1

System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)

'设定text显示文件名

txtReport1.Text

reportPath1

setReportList()

End

在setReportList()中针对你所需要的文件进行操作等

使用VB.NET的五个技巧之处理数据行

处理数据行（DataRow）

Windows窗体中的数据绑定列表框和组合框很节省时间典型的代码如下（假定已经建立了SqlDataAdapter或者其它部件获取数据）

Dim ds As New DataSet() SqlDataAdapter Fill(ds Customers ) ListBox DataSource = ds Tables( Customers ) ListBox DisplayMember = CompanyName ListBox ValueMember = CustomerID

在这种情况下代码使用Northwind数据库的顾客记录工作 DisplayMember属性设置为你希望用户在列表框中看到的记录字段它是customers表的CompanyName 通常ValueMember属性设置为数据表中的一个键字段对于customer来说是CustomerID 一旦用户选择了列表框中的一行很容易使用列表框的SelectedValue属性获得键字段

MsgBox（ListBox SelectedValue）

但是有可能需要一个与被选择项相关的整个数据行对象的引用例如如果被选择的行需要被删除就不知道键了你需要一个数据行的引用以使用Delete方法

典型的Visual Basic开发者通常这样想我已经得到了该行的键了我将编写一些逻辑来查找使用该键的行这样可以实现但是有更好的实现方法可以使用一行代码获取与列表框中选项关联的数据行

Dim dr As DataRow = CType（ListBox SelectedItem DataRowView） Row

通常该逻辑不会凭直觉出现即使对经验丰富的开发者为了解释这是怎样实现的我把上面的一行拆成几行下面的代码与上面代码的功能相同

Dim drv As DataRowView drv = CType(ListBox SelectedItem DataRowView) Dim dr As DataRow dr = drv Row

DataRowView类是数据行的包装它被多个Windows窗体控件使用它使得显示与控件中的数据行相关的数据更加容易当列表框被数据绑定到数据表时（假定列表框中的有些行当前被选定了）列表框的SelectedItem属性保存了一个DataRowView对象

这意味着我们能把列表框的SelectedItem属性转换到DataRowView对象这就是上面代码中的第二行实现的接着DataRowView暴露一个Row属性它指向被包装的数据行上面的代码声明了一个数据行并设置了Row属性

转换对象的类型以访问它的接口的技术在Visual Basic 中不是经常使用但是在Visual Basic NET中这是经常的有了上面的例子后大多数有经验的开发者迅速跟上了这种技术

数据行的引用（dr）可用于用任何方式维护行访问数据行中的任何特定字段是可行的行中的数据可以被改变能使数据行的Delete方法把该行标识为删除或者从数据表的行集合中删除该行下面的代码标识删除了一行

dr Delete（）

lishixinzhi/Article/program/net/201311/12974