77084visualbasic程式設(shè)計(jì)-展示頁(yè)
2024-10-12 09:36本頁(yè)面
【正文】 否是文字行的最後一個(gè)字元 AtEndOfStream 傳回是否在檔尾 Column 目前位置 Line 目前在第幾行 13 TextStream(cont?d) 方法 Close 關(guān)閉檔案 Read 讀取某數(shù)量的字元 (傳回 String) ReadAll 讀取全部?jī)?nèi)容 (傳回 String) ReadLine 讀一行 Skip 跳過(guò)某數(shù)量的字元 SkipLine 跳過(guò)幾行 Write 寫(xiě)入一個(gè) String WriteBlankLines 寫(xiě)入幾個(gè)空白行 WriteLine 寫(xiě)入一行 14 TextStream(cont?d) Private Sub Command1_Click() Dim fs As New FileSystemObject Dim st As TextStream If (Not ()) Then MsgBox File does not exist!! Exit Sub End If Set st = (, _ ForReading) MsgBox (2), , Read MsgBox , , ReadLine MsgBox , , ReadAll End Sub 15 小小編輯器 16 Dim fileName As String Dim fs As New FileSystemObject Private Sub readFile() Dim st As TextStream Set st = (fileName, ForReading) = () End Sub Private Sub writeFile() Dim st As TextStream (fileName) Set st = (fileName, _ ForAppending, True) () End Sub 17 Private Sub Command1_Click() = 文字檔 (*.txt)|*.txt fileName = If (fileName = ) Then
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1