锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net打开ppt vb中播放ppt文件( 二 )

IT技术变类


如果要对文件执行按行读取操作，这时就会用到枚举 ， 这时候，代码就要更改一下了：
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 = ReadFilefLine
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)等进行排版 。

推荐阅读


上一篇：java代码写x形状，java代码怎么运行

下一篇：易直播主播金大人，易直播主播金大人是谁