Dim s As String
Private Sub Command1_Click()
Dim str As String
Open "yourfilename path" For Input As #1
Do While Not EOF(1)
Line Input #1, str
s = s + str + vbCrLf
Loop
Close #1
Text1.Text = s
End Sub
Private Sub Command1_Click()
Dim str As String
Open "yourfilename path" For Input As #1
Do While Not EOF(1)
Line Input #1, str
s = s + str + vbCrLf
Loop
Close #1
Text1.Text = s
End Sub
' Author:吴文智
' Date:2002-06-14
'Description:从Html文件中解析出文本内容 Dim lngCount As Long '记数器
Dim lngI As Long
Dim strTemp As String '用来存放操作过程中的字符串
lngCount = 0
'从尾开始可以为Mid函数的使用带来方便,不必总是重新计算长度
For lngI = Len(InputString) To 1 Step -1
Select Case Mid(InputString, lngI, 1)
Case ">"
'找到标志符,开始记数
lngCount = 1
Case "<"
'标识符结束,开始截除标识符
If lngCount > 0 Then
'这里用了strTemp来存放结果,如果直接用InputString,那第二个Mid函数就会出错了,呵呵
strTemp = Mid(InputString, 1, lngI - 1) & Mid(InputString, lngI + lngCount + 1)
InputString = strTemp
End If
lngCount = 0
Case Else
'标识符尚未结束,累加
If lngCount > 0 Then lngCount = lngCount + 1
End Select
Next
GetHtmlText = InputString
End Function