eldar22 » 24.04.2009 (Пт) 16:53
<html>
<head>
<title>Сайт с фреймом
</title>
</head>
<frameset rows="*,106" frameborder=1 bordercolor=black framespacing=0>
<frame name="frame" src="http://сайт/gates.php" noresize scrolling=auto id="website_frame" title="jgFNRtUwHy">
<frame name="site_eldP813q" src="http://site.ru/surf_frame.php" noresize scrolling=no>
</frameset> -274686065
</html>
MIT » 24.04.2009 (Пт) 16:55
burik » 24.04.2009 (Пт) 17:03
dr.MIG » 24.04.2009 (Пт) 17:37
burik » 24.04.2009 (Пт) 17:56
ttlStart = InStr(1, code, "title=") + 7
ttlEnd = InStr(ttlStart, code, """") - 1
title = Mid$(code, ttlStart, ttlEnd - ttlStart + 1)
eldar22 » 24.04.2009 (Пт) 19:51
Dim regexp As New Regex("<(.*?)>")
Dim html As String
Dim i As Integer
Dim m As MatchCollection
html = "<p>Это <a href='http://vbnet.ru'>пример</a> <b>поиска</b></p>"
m = regexp.Matches(html)
For i = 0 To m.Count - 1
MsgBox(m.Item(i).Value)
Next
dr.MIG » 24.04.2009 (Пт) 20:42
Dim regexp As New regexp
Dim html As String
Dim i As Integer
Dim m As MatchCollection
regexp.Global = True
regexp.Pattern = "<(.*?)>"
html = "<p>Это <a href='http://vbnet.ru'>пример</a> <b>поиска</b></p>"
Set m = regexp.Execute(html)
For i = 0 To m.Count - 1
MsgBox (m.Item(i).Value)
Next
eldar22 » 25.04.2009 (Сб) 14:08
Private Sub Command1_Click()
Dim regexp As New regexp
Dim html As String
Dim i As Integer
Dim m As MatchCollection
regexp.Global = True
regexp.Pattern = "<(.*?)>"
html = RichTextBox1.Text
Set m = regexp.Execute(html)
For i = 0 To m.Count - 1
Text1.Text = (m.Item(i).Value)
Next
End Sub burik » 25.04.2009 (Сб) 14:37
Private Sub Command1_Click()
Dim regexp As New regexp
Dim m As MatchCollection
regexp.Global = True
regexp.Pattern = "title=""(.*?)"""
Set m = regexp.Execute(Text1.Text)
MsgBox (m.Item(0).SubMatches(0))
End SubСейчас этот форум просматривают: AhrefsBot и гости: 1
