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。 |