TextFieldParser.PeekChars 方法
更新：2007 年 11 月
读取指定数量的字符，而无需向前移动光标。
' Usage
Dim value As String = TextFieldParserObject.PeekChars(numberOfChars)
' Declaration
Public Function PeekChars( _
ByVal numberOfChars As Integer _
) As String
参数
- numberOfChars
Int32。要读取的字符数。必选。
返回值
String.
异常
以下情况可能会导致引发异常：
- numberOfChars 小于 0 (ArgumentException)。
备注
numberOfChars 值必须小于行中的字符总数。否则，PeekChars 返回的字符串将被截断为该行的长度。
空行会被忽略。
不会返回行尾的字符。
PeekChars 方法不执行分析；分隔字段内中的行尾字符将被解释为实际的行尾。
任务
下表列出了涉及 PeekChars 方法的任务的示例。
要执行的操作 |
请参见 |
|---|---|
在分析字段之前确定字段的格式 |
示例
此示例使用 PeekChars 来查找数据的结尾，并在该处停止分析文件。
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\ParserText.txt")
MyReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
MyReader.Delimiters = New String() {","}
MyReader.CommentTokens = New String() {"'"}
Dim currentRow As String()
While (MyReader.PeekChars(1) IsNot "")
Try
currentRow = MyReader.ReadFields()
For Each currentField As String In currentRow
My.Computer.FileSystem.WriteAllText _
("C://testfile.txt", currentField, True)
Next
Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
MsgBox("Line " & ex.Message & " is invalid. Skipping")
End Try
End While
End Using
要求
命名空间：Microsoft.VisualBasic.FileIO
**程序集：**Visual Basic 运行库（位于 Microsoft.VisualBasic.dll 中）
权限
下面的权限是必需的：
权限 |
说明 |
|---|---|
控制访问文件和文件夹的能力。关联的枚举：Unrestricted。 |
|
描述应用于代码的安全权限集。关联的枚举：ControlEvidence。 |