新手关于VB点虐 的问题

您好，在Visual Basic.NET中，是没有像这样的文件I/O操作的，一般都是通过System.IO.StreamReader和System.IO.StreamWriter类，System.IO.BinaryReader和System.IO.BinaryWriter类来读写文件以及利用My.Computer.FileSystem类读写文件，利用System.IO.Filestream类来创建文件，通过引用Microsoft Scripting Runtime来执行文件（夹）和驱动器的特殊操作，常用的是System.IO.StreamReader和System.IO.StreamWriter类。

创新互联建站主要从事网站设计、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务银海,10多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

例如说要读取一个文件，我们可以利用System.IO.StreamReader类编写一个方法（也就是函数），但是首先要在当前类的开头添加一个引用，引用名称：System.IO，添加引用的代码如下

Imports System.IO

添加引用之后，就在当前类的内部创建方法：

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

ReadFile = sr.ReadToEnd()

sr.Close()

sr = Nothing

End Function

示例说明：

该方法是一个返回String（字符串）数据的函数，FileURL作为参数是用来存放需要访问的文件的URL，当然，要获取一个文件的URL，就是利用这一句代码实现的：

Dim sr As StreamReader = New StreamReader(FileURL)

当获取了URL之后，就要对文件进行读取操作了，然后将读取的结果返回给方法：

ReadFile = sr.ReadToEnd()

读取文件完毕之后，要对文件执行关闭操作：

sr.Close()

当然别忘了清理资源：

sr = Nothing

StreamReader类可以从流或文件中读取字符，在创建StreamREader类的对象时，可以指定一个流对象，也可以指定一个文件URL，创建对象后就可以调用他的方法，从流中读取数据，其常用方法如下：

Peek：返回下一个可用字符，但不使用它。

Read：读取输入流中下一个字符或一组字符并移动流或文件指针。

ReadBlock：从当前流中读取最大数量字符并从index开始将数据写入buffer。

ReadLine：从当前流中读取一行字符并将字符作为String返回。

REadToEnd：从流的当前位置到末尾读取流。

Close：关闭打开的对象，释放资源。

注：流，一种新的数据格式，这种格式可通过System.IO命名空间下的类访问。流用Stream类表示，所有的流都是从这个类中继承的。流向用户提供了一个一般的数据视图，隐藏了操作系统和底层设备的实现细节，所有的流都支持读写操作。在打开文件时将返回对应的流对象，用户可以对流对象进行读写操作。

如果要对文件执行按行读取操作，这时就会用到枚举，这时候，代码就要更改一下了：

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

For Each fLine As String In sr.ReadToEnd()

Line = sr.ReadLine()

ReadFile = ReadFile fLine

Next sr.ReadLine

sr.Close()

End Function

示例说明：

For Each…Next：派生于For…Next循环，用于枚举一系列对象中的成员，而这些对象组成集合，如果集合中至少存在一个元素，程序就会静茹For Each块执行。其格式如下：

For Each 元素 [As 数据类型] In 元素集合

[循环体]

[Exit For]

[循环体]

Next [元素]

比如：

Dim CountNumber As ULong = 0

Dim FolderName() As String = New String() {" "}

For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")

CountNumber = CountNumber + 1

ReDim Preserve FolderName(1 To CountNumber)

FolderName = strFolder

Next strFolder

注：My.Computer.FileSystem.GetDirectories：主要用来枚举指定目录的子文件夹。

Preserve：主要用来避免重定义数组而不损失数组元素的原有数据。

另外，利用My.Computer.FileSystem也可以实现文件的读取，其代码如下：

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")

示例说明：

定义一个字符串变量利用My.Computer.FileSystem.ReadAllText来实现对“C:\test.txt”的读取。

如果是已经编码的文本，则可以使用My.Computer.FileSystem对象中的ReadAllText方法并提供路径和文件编码类型，将文本写入字符串变量中，例如：

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _

System.Text.Encoding.UTF32)

当然，System.Text.Encoding的成员不止一个，它还有如下成员：

System.Text.Encoding.UTF8

System.Text.Encoding.UTF16

System.Text.Encoding.ASCII

System.Text.Encoding.Unicode

这些是常见的成员，也是主要的成员。

另外，利用My.Computer.Filesystem类无法实现文件的行操作，还有，如果您的计算机未安装完整的Microsoft.NET Framework Runtime，则无法实现这种操作！

写入文件的操作同样简单，Visual Basic.NET 允许用户使用StreamWriter来对文件写入内容，下面就让我们来创建一个子例程，来实现文件的写入：

Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)

Dim sr As StreamWriter = New StreamWriter(FileURL)

sr.Write(FileCon)

sr.Close()

sr = Nothing

End Sub

示例说明：

sr.Write(FileCon)：将FileCon写入文件FileURL之中。

另外，StreamWriter常用方法如下：

WriteLine：向流中写入一行，后面跟结束符。

Write：写入流，向流对象中写入字符并移动流或文件指针。

Close：关闭打开的对象，释放资源。

附：Visual Basic 6.0文件操作解说：

打开： Open 文件名 For Input | Output | Append As [#]文件号

Input打开读入，文件不存在报错。Output打开覆盖写入，文件不存在则创建。Append打 开追加写入，文件不存在则创建。

读： Line Input #文件号, 字符串变量

读一行数据存入字符串变量，数据包括空格、Tab、等，不包括回车符和换行符，所以要显示文件的换行效果，要手动添加回车符和换行符（vbCrLf）

Input #文件号, 变量1[, | ;] [变量2]...

这种方式可以存入多个变量，而且变量类型不限于字符串型。

写： Print #文件号, 参数1[, | ;] [参数2]...

将各参数逐个写入文件。参数间用逗号隔开时，文件中相应插入多个空格；用分号隔开时，插入一个空格。可以用Spc(n)、Tab(n)等进行排版。

Write #文件号, 参数1[, | ;] [参数2]...

这种写入方式将自动添加界定符，对不同参数的类型加以界定。

Visual Basic 6.0文件操作函数：

Seek： Seek(文件号)

返回文件正在访问的位置，返回值为长整型。对顺序文件和二进制文件，返回值以字节为单位；对随机访问文件，返回值以记录号为单位。

Seek： Seek [#]文件号，位置

定位文件到指定位置。位置单位同上所述。

Input： Input (字节数，[#]文件号)

从文件的访问当前位置读入指定字节数的数据。仅适用于顺序文件和二进制文件。

EOF： EOF(文件号)

判断文件的访问位置是否在文件尾，如果是，返回True，否则，返回False。

LOF： LOF(文件号)

返回文件长度，单位为字节。

FileLen： FileLen (文件名)

返回文件名对应文件的长度，单位是字节。该函数取磁盘文件标识中的长度，即文件打开前的长度，可以取未打开的文件长度。

GetAttr： GetAttr (Pathname)

返回指定文件或文件夹的属性。

FileAttr： FileAttr (文件号)

返回文件号对应文件的打开方式。

GetDateTime： GetDateTime (Pathname)

返回文件被创建或修改的最后日期和时间。

Free： FreeFile[(0|1)]

返回未被占用的文件号，Free或Free(0)返回1～255之间未占用的文件号，Free(1)返回256～511之间未占用的文件。

Dir： Dir (Pathname [,Attributes])

测试指定路径是否有某文件，Attributes附加文件属性条件，取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。

Kill： Kill (文件名)

删除指定文件，文件名可包含路径。

FileCopy： FileCopy 源文件，目标文件

拷贝文件。

Name： Name 旧文件名 As 新文件名

文件重命名。前后路径不一致时，操作为移动文件并重命名。

MkDir： MkDir path

新建文件夹。

RmDir： Rmdir path

删除文件夹。

ChDrive： ChDrive Drive

改变当前驱动器 ChDrive "D"

CurDir： CurDir [(driver)]

返回当前工作路径，指定driver则返回目标驱动器的当前工作路径。

举例：

'新建文件，并写入数据，关闭

Open "a.txt" For Output As #1

Print #1, "ABCDEFG"; vbCrLf; "HIJK"

Close #1

'打开文件，并全部写入新文件，关闭

Open "a.txt" For Input As #2

Open "b.txt" For Output As #3

Dim str As String

While (Not EOF(2))

Line Input #2, str

Print #3, str

Wend

Close

注：关于Visual Basic 6.0的文件操作资料来自于

如果您觉得我的回答帮助了您解决难题，别忘了采纳哦，如果我的回答未能解决您的问题，您可以在互联网上寻找更多的解决方案！

vb点虐 datatable 可以排序吗

// 数据排序（该步骤仅对默认视图进行排序）

datatable.DefaultView.Sort = "序号";

// 把数据视图更新到数据结果集 （将默认视图的已经排序的内容复制到table中）

datatable = datatable.DefaultView.ToTable();

参考资料：

急！！！VB.NET按月份数据画统计图

用crystal报表，文件——新建文件——crystal报表，然后根据向导建立

vb点虐 dataview 的用法

定制数据视图

DataView类用来表示定制的DataTable的视图。DataTable和DataView的关系是遵循著名的设计模式--文档/视图模式，其中DataTable是文档，而Dataview是视图。

在任何时候，你都可以有多个基于相同数据的不同的视图。更重要的是，你可以对每一个具有自己一套属性、方法、事件的视图作为独立的对象进行处理。这也代表了相对ADO一个巨大的飞跃。

创建DataView

public DataView();

public DataView(DataTable);

DataView只有同已经存在的、很可能是非空的DataTable对象连接后才可用。通常，这个连接在构造时就指定了。

DataView dv;

dv = new DataView(theDataSet.Tables["Employees"]);

但是，你也可以先创建一个新的视图，然后再用Table属性同表相关联。

DataView dv = new DataView();

dv.Table = theDataSet.Tables["Employees"];

DataView构造函数使你由DataTable中得到一个DataView对象。如果需要，反之亦可。事实上，DataTable对象的DefaultView属性返回一个该表的DataView对象。

DataView dv = dt.DefaultView;

一旦你有了DataView对象， 你可以利用它的属性来建立你希望用户见到的数据行集。一般，你可以使用下列属性：

RowFilter

Sort

前者可以定制视图中可见数据应匹配的规则。而后者通过表达式来进行排序。当然你可以使用这两者的任意组合。

设置过滤 RowFilter是一个可读写的属性，用来读取和设置表过滤的表达式。

public virtual string RowFilter {get; set;}

你可以用列名，逻辑和数字运算符和常量的任意合法组合组成表达式。以下是一些例子：

dv.RowFilter = "Country = 'USA'";

dv.RowFilter = "EmployeeID 5 AND Birthdate #1/31/82#"

dv.RowFilter = "Description LIKE '*product*'"

让我们来看一下过滤器的基本规则和运算符。

过滤字符串是表达式的逻辑连接。可以用AND，OR，NOT来连接成一个较短的表达式,也可以使用圆括号来组成子句，指定优先的运算。

通常包含列名的子句同字母、数字、日期或另一个列名进行比较。这里，可以使用关系运算符和算术运算符，如=, , , +, *, % (取模)等等。

如果要选取的行并不能方便地通过算术或逻辑运算符表达，你可以使用IN操作符。以下代码显示如何选取一个随机行：

dv.RowFilter = "employeeID IN (2,4,5)"

你也可以使用通配符*和%，它们同LIKE运算符一起使用时显得更有用。它们都表示任意数量的字符，可以相互替代使用。

请注意，如果在LIKE子句中已经有了*或%字符，你必须用方括号将其括起，以免歧义。如果很不幸，字符串中方括号本身也存在了，那么它也必须用将本身括起。这样，匹配语句会如下所示：

dv.RowFilter = "Description LIKE '[[]*[]]product[[]*[]]"

通配符只允许在过滤字符串的开头或结尾处使用，而不能在字符串中间出现。例如，下列语句会产生运行时错误：

dv.RowFilter = "Description LIKE 'prod*ct"

字符串必须以单引号括起，而日期型必须以#符号括起。字符型值可以使用小数点和科学计数法。

RowFilter也支持聚合函数，如SUM, COUNT, MIN,MAX, and AVG。如果表中没有数据行，那么函数将返回NULL。

在介绍RowFilter表达式的最后，让我们讨论三个很便利的函数：Len，IIF和Substring。

正如其名，Len()返回特定表达式的长度。该表达式可以是一个列名，也可以是其他合法的表达式。

Substring()返回指定的表达式自特定位置开始，特定长度的字符子串。

我最喜欢用的是IIF()，它按照逻辑表达式的值有一到两个值。IIF是IF-THEN-ELSE语句的紧凑表达。语法如下：

IIF(expression, if_true, if_false)

通 过该函数，可以建立非常复杂的过滤字符串。例如，假定你从SQL Server的Northwind数据库中取得Employees表，下列表达式可以选出那些employeeID小于6且lastname为偶数个字符 和employeeID大于6且lastname为奇数个字符的员工。

IIF(employeeID6, Len(lastname) %2 =0, Len(lastname) %2 0)

预排视图

在上面的举例中，datagrid必须负责预排视图中的数据行，以便刷新用户界面。这个自动机制是.NET

数据绑定的产物。Datagrid是通过DataSource属性来获取数据的数据绑定控件。DataView是一个可数据绑定的类，可构建DataSource属性的内容。

如果你想使用datagrid之外的另一个控件，应该怎么办呢？又如果你不想使用自动数据绑定呢？应该怎样预排视图中所选的数据行呢？

DataView的Table属性指向相应的数据表，但DataTable并不保存过滤信息。所以，预排表中的数据注定是不可行的。虽然DataTable和DataView是紧密相联的，但它们各自保持独立，并执行独立的功能。

以下Visual Basic .NET代码段显示了如何遍历视图中所有的数据行，并加入到listbox中。

Dim dv As New DataView()

dv = ds.Tables("Employees").DefaultView

dv.RowFilter = "employeeid 5"

ListBox1.Items.Clear()

Dim buf As String

Dim dr As DataRowView

For Each dr In dv

buf = ""

buf = dr("lastname").ToString() ", " dr("firstName").ToString()

ListBox1.Items.Add(buf)

Next

正如前面说提到的，DataView是可枚举的类，因此你可以安全的将它传给For..Each语句。Count属性存储了视图中数据行数，以便在For..Next循环中使用。

要访问视图中某一行，可以使用DataRowView类。DataRowView可表示DataRow的视图，就像DataView表达DataTable定制的视图一样。

总的来说，DataRow最多有四种状态：default，original，current和proposed。这些状态由DataRowVersion枚举类型设置，由RowVersion属性表达。

DataRow的视图只能是其中某一种状态。

数据行的默认(default)版本只有当其列在构造时设定了默认值时才有。而初始(original)版本是指在最后一次调用表的AcceptChanges后，从数剧源中得到数据行或快照。当前(Current)版本是指当前的数据行，包括所有当时发生的更新。Proposed状态只存在于调用BeginEdit和EndEdit的编辑过程中。

可以通过访问DataRow相同的语法访问DataRowView。这里最重要的属性叫Item。

排序和其他便捷的特性

DataView支持Sort属性，可以用来对视图中的内容排序。Sort由用逗号分隔的列名表达式进行排序。通过在任何列名后加ASC或者DESC限定词，可以使得字段按照上升或者下降的顺序排列。如果没有方向限定词，默认顺序为ASC。

DataView是内存中的对象，所以排序在本地进行，无需调用数据库服务器。

RowStateFilter是DataView另一有趣的属性。它可以用任何预定义的标准来过滤DataTable中的内容。下表中是DataViewRowState枚举类型的所有取值：

CurrentRows包括所有未更新的、新的和修改的数据行Deleted所有自上次调用AcceptChanges后删除的数据行ModifiedCurrent所有自上次调用AcceptChanges后修改过的数据行ModifiedOriginal所有自上次调用AcceptChanges后original版本的数据行New所有自上次调用AcceptChanges后新添加的行OriginalRows返回初始数据行，包含unchanged和deleted 的Unchanged所有未更新的数据行

如果要操作非连接的数据，所有更新都在对DataTable调用AcceptChanges后生效。对单一行的更新在调用DataRow的AcceptChanges后生效。类似的，这些更新可以通过调用DataTable或DataRow对象的RejectChanges来取消。

DataView对象还有一些属性，如AllowEdit，AllowDelete和AllowNew，用来得到或设定是否允许更新的值。它们的默认值设为True，允许任何种类的更新。如果在标志设为False时，你想要完成相应的更新操作，会有一个运行时错误发生。

DataViewManager类

DataTable对象的DefaultView属性用来返回一个DataView对象，作为数据表中内容的默认视图。它按照自然顺序读取数据并显示表中所有的行，而不使用任何过滤。

theMasterGrid.DataSource = m_ds.Tables("Employees").DefaultView

如果需要数据特定的视图，你可以进行排序并/或对DefaultView对象直接进行过滤。

m_ds.Tables("Employees").DefaultView.Sort = "lastname"

theMasterGrid.DataSource = m_ds.Tables("Employees").DefaultView

DataViewManager类是用来存储DataSet中所有表的视图设置。

可以通过传递一个合法的非空的DataSet给类的构造函数来创建DataViewManager

Dim dvm As DataViewManager

dvm = New DataViewManager(m_ds)

也可以通过DataSet对象的DefaultViewManager属性直接得到：

Dim dvm As DataViewManager = m_ds.DefaultViewManager

重要的是DataViewManager类是同一个DataSet相关联的。下面是另一种可行的方法：

Dim dvm As New DataViewManager()

dvm.DataSet = m_ds

DataViewManager最重要的属性是DataViewSettings，一个DataViewSetting对象的集合。

Dim dvs As DataViewSetting

dvs = dvm.DataViewSettings("Employees")

dvs.Sort = "lastname"

DataViewSetting对象包含了表视图的参数信息。当将数据绑定到对数据敏感的控件时，使用DataViewManager而不是DataSet或DataTable可以保留你的视图设置（过滤和排序字段）

theMasterGrid.DataSource = dvm

theMasterGrid.DataMember = "Employees"

在这里，视图按照DataViewSetting中对Employees表指定的自动进行排序和过滤。换而言之，DataViewSetting类是对特定表的视图的一种缓存。

新闻名称：vb点虐 数据视图的简单介绍
网页URL：http://scyanting.com/article/ddesjji.html