Dim Lstr As String (用来存储文本中读取到的字符串)Open "G:\ww.txt"For Input As #1 （打开文本，读取内容）Do While Not EOF(1) （开始按行循环读取） Line Input #1, Lstr If Lstr <>""Then 展开
Dim Lstr As String (用来存储文本中读取到的字符串)Open "G:\ww.txt"For Input As #1 （打开文本，读取内容）Do While Not EOF(1) （开始按行循环读取） Line Input #1, Lstr If Lstr <>""Then （如果读取到一行不为空，即不为空行时显示在Text1中） Text1.Text = Text1.Text & Lstr & vbCrLf End IfLoopClose #1需要说明的是Text的MultiLine属性要选择为True即该Text中文本显示为多行模式 收起
