VB文件读取方法

方法1:一次性读取

Text1.Text = Input$(LOF("MYFILE.TXT"), 1)

方法2:逐字符读取

Dim InputData As String * 1
Text1.Text = ""
Do While Not EOF(1)
  InputData = Input$(1, #1)
  Text1.Text &= InputData
Loop
ppt 文件大小:2.37MB