Question

html的P标签中的一段文字,怎样得到每一行的文字？

因为p标签中的文字是自动换行排版的，怎样能得到每一行的文字？
错了，其实是div标签，它内部的文字因为是自动排版的。要怎么获取每一行的文字，或者是行首或者行尾的单个文字也可以？
不能通过每行的字数来计算行数，因为每行字数有多有少……
跪求啊……

Answer 1

界面中需要一个按钮command1，一个MS internet controls 名为webbrowser1,代码如下：
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.163.com" ‘此处改为你的url
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set doc = WebBrowser1.Document
Dim fn As Integer
fn = FreeFile
'输出文件在C:\网页标题.txt
Open "c:\" & doc.Title & ".txt" For Output As fn
For i = 0 To doc.All.length - 1
If LCase(doc.All(i).tagname) = "p" Then
Print #fn, doc.All(i).innertext
End If
Next i
Close fn
MsgBox "提取完成"
End Sub

追问

你这是html代码么？…………|
你是不是特地来消遣洒家的？

追答

仔细看HTML源码，看内的文字中有无其它标记，比哪,

追问

谢谢回答。
我看了W3Cschool，没看源码，貌似里面没有其它标签，如果有就好了
（源码在那儿看？）