文件名称:方法一次性读-全国二级vb课件
文件大小:1.54MB
文件格式:PPT
更新时间:2024-05-15 03:16:41
计算机等级考试
方法2:一次性读 Text1.Text = "" Open "MYFILE.TXT" For Input As #1 Text1.Text = Input$( LOF(1), 1) Close #1 方法3:一个个字符读 Dim InputData as String*1 Text1.Text = "" Open "MYFILE.TXT" For Input As #1 Do While Not EOF(1) InputData= Input$(1,#1) Text1.Text = Text1.Text + InputData Loop Close #1 例9.2读入文本文件。