孤獨者 - 心在黑暗裡旅行 ...... ...
至尊會員
遊蕩的過客 - 枉入紅塵若許年 .. ...
txtContent.Text = "" '清除內容 Open sFile$ For Input As #1 '開啟文字檔 While Not EOF(1) '未到檔案尾端 Line Input #1, a$ '逐行讀取 txtContent.Text = txtContent.Text & a$ & vbCrLf '逐行加入txtContent及換行符號 Wend '反覆執行 Close #1 '關閉檔案
txtContent.Text = "" '清除內容 Open sFile$ For Input As #1 '開啟文字檔 While Not EOF(1) '未到檔案尾端 Line Input #1, a$ '逐行讀取 txtContent.SelText = a$ & vbCrLf '逐行加入txtContent及換行符號 Wend '反覆執行 Close #1 '關閉檔案
txtContent.Text = "" '清除內容 Open sFile$ For Input As #1 '開啟文字檔 txtContent.Text = StrConv(InputB(LOF(F), #1), vbUnicode) '一次讀入整個檔案 Close #1 '關閉檔案
查看詳細資料
TOP
常客會員
正式會員
中級會員
試用會員
本站所有圖文均屬網友發表,僅代表作者的觀點與本站無關,如有侵權請通知版主會盡快刪除。