從文件中讀取字符串
有三個函數(shù)可以從順序文件中讀取字符串：Input,InputString和LineInput。
Input函數(shù)
從打開的順序文件中讀取數(shù)據(jù)并將數(shù)據(jù)分配給變量。
Public Sub Input( FileNumber As Integer, ByRef Value As Object)
其中參數(shù)FileNumber為有效文件號；Value為被賦予從文件讀取的值的變量，它不能為數(shù)組或?qū)ο笞兞俊?
下面的例子是一個寫入和讀取文本example.txt的Hello，world!例子，新建一個控制臺應(yīng)用程序，寫入下面的代碼查看結(jié)果。
FileOpen(1, "c:\example.txt", OpenMode.Output)
Write(1, "Hello,")
Write(1, "World!")
FileClose(1)
Dim s As String
FileOpen(1, "c:\example.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, s)
Console.WriteLine(s)
Loop
FileClose(1)
InputString函數(shù)
返回 String 值，該值包含以 Input 或 Binary 模式打開的文件中的字符。
InputString ( ByVal FileNumber As Integer, ByVal CharCount As Integer ) As String
其中參數(shù)FileNumber是有效文件號，CharCount是指定要讀取的字符個數(shù)的有效數(shù)值表達(dá)式。
與 Input 函數(shù)不同，InputString 函數(shù)返回它讀取的所有字符，包括逗號、回車符、換行符、引號和前導(dǎo)空格等。對于以 Binary 訪問模式打開的文件，如果試圖在 EOF 返回 True 之前用InputString 函數(shù)讀取整個文件，則會產(chǎn)生錯誤。在用 InputString 讀取二進(jìn)制文件時，用 LOF 和 Loc 函數(shù)代替 EOF 函數(shù)，而在使用 EOF 函數(shù)時則使用 FileGet 函數(shù)。
示例：
Dim s As String
FileOpen(1, " c:\example.txt ", OpenMode.Binary)
Do While Not EOF(1)
s = InputString(1, 9)
Console.WriteLine(s)
Loop
FileClose(1)
LineInput 函數(shù)：
從打開的順序文件中讀取一行數(shù)據(jù)并將它賦給 String 變量。
Public Function LineInput (ByVal FileNumber As Integer) As String
參數(shù) FileNumber 是有效文件號。
此函數(shù)從文件一次讀取一個字符，直到遇到回車符（Chr(13)）或回車–換行符（Chr(13) + Chr(10)）為止�；剀嚚C換行序列被跳過而不是附加到字符字符串上。
示例：
Dim s As String
FileOpen(1, " c:\example.txt ", OpenMode.Binary)
Do While Not EOF(1)
s = LineInput(1)
Console.WriteLine(s)
Loop
FileClose(1)
把字符串寫入文件
如果要向文件中寫入數(shù)據(jù)，可以用Print/PrintLine函數(shù)，如果要寫入的數(shù)據(jù)是字符串或是數(shù)值，則可以用Write/WriteLine函數(shù)，要寫文件，應(yīng)該先將文件以O(shè)utput或Append方式打開，然后菜可以使用Print函數(shù)或Write函數(shù)。
Print/PrintLine函數(shù)：將格式化的顯示數(shù)據(jù)寫入順序文件。
Public Sub Print( ByVal FileNumber As Integer, ByVal ParamArray Output() As Object)
Public Sub PrintLine( ByVal FileNumber As Integer, Val ParamArray Output() As Object )
其中參數(shù)FileNumber 是有效文件號，Output 是要寫入文件的零個或更多個用逗號分隔的表達(dá)式。
示例：
FileOpen(1, " c:\example.txt ", OpenMode.Output)
Printline(1)
Printline(1,”Hello,”)
Print(1,spc(4),”World!”)
FileClose(1)
Write/Writeline和print/printline類似
|
