77084visualbasic程式設計(編輯修改稿)
2024-11-05 09:36 本頁面
【文章內容簡介】 ing) ReadAll 讀取全部內容 (傳回 String) ReadLine 讀一行 Skip 跳過某數(shù)量的字元 SkipLine 跳過幾行 Write 寫入一個 String WriteBlankLines 寫入幾個空白行 WriteLine 寫入一行 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 Exit Sub End If readFile = True = False = True End Sub Private Sub Command2_Click() writeFile =
教學課件相關推薦
鄂ICP備17016276號-1