77084visualbasic程式设计内容摘要：
ing) ReadAll 讀取全部內容 (傳回 String) ReadLine 讀一行 Skip 跳過某數量的字元 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 =。阅读剩余 0%
本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体)，仅供学习参考。
用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权，请联系我们反馈本站将在三个工作日内改正。