VB6.0一次性读取方法教程
方法2：使用一次性读取txtTest.Text = "" Open "MYFILE.TXT" For Input As #1 txtTest.Text = Input( LOF(1),1) Close #1方法3：逐个字符读取Dim InputData as String*1 txtTest.Text ＝ "" Open "MYFILE.TXT" For Input As #1 Do While Not EOF(1) InputData= Input(1,#1) txtTest.Text ＝ txtTest.Text + InputData Loop Close #1
文件大小：3.12MB
评论区