vb.net人脸定位 vb人脸识别( 二 )


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 (字节数,[#]文件号)
从文件的访问当前位置读入指定字节数的数据 。仅适用于顺序文件和二进制文件 。

推荐阅读