文字檔快速讀入 TextBox - 國立交通大學如意網站

txtContent.Text = "" '清除內容 Open sFile$ For Input As #1 '開啟文字檔 While Not EOF(1) '未到檔案尾端 Line Input #1, a$ '逐行讀取 txtContent.SelText = a$ & vbCrLf '逐行加入txtContent及換行符號

yes.nctu.edu.tw