方法一次性读-VB6.0教程
方法2：一次性读tttxtTest.Text ＝ "" ttOpen "MYFILE.TXT" For Input As #1t tttxtTest.Text = Input( LOF(1),1)t ttClose #1t t方法3：一个个字符读ttDim InputData as String*1 tttxtTest.Text ＝ "" ttOpen "MYFILE.TXT" For Input As #1t ttDo While Not EOF(1)t tttInputData= Input(1,#1) ttttxtTest.Text ＝ txtTest.Text + InputData ttLoop ttClose #1
文件大小：3.12MB
评论区