My test parsing
2016-08-23
0 0 0
no vote
Other
Earn points
Private Sub Command1_Click()
Strsource = Inet1.OpenURL("http://beat.aplus.by/")
RichTextBox1 = Strsource
End Sub
Private Sub Command2_Click()
Dim mystart As String '<span id="now_playing_artist" class="playing">
'mystart = "<span" & " " & "id=" & """" & "now_playing_artist" & """" & " " & "class=" & """" & "playing" & """" & ">"
'Do
intStart = InStr(1, RichTextBox1, "now_playing_artist") + 36
If intStart = 0 Then Exit Sub
intEnd = InStr(intStart, RichTextBox1, "</span>")
strLink = Mid(RichTextBox1, intStart, intEnd - intStart)
MsgBox strLink
'Loop
End Sub
Strsource = Inet1.OpenURL("http://beat.aplus.by/")
RichTextBox1 = Strsource
End Sub
Private Sub Command2_Click()
Dim mystart As String '<span id="now_playing_artist" class="playing">
'mystart = "<span" & " " & "id=" & """" & "now_playing_artist" & """" & " " & "class=" & """" & "playing" & """" & ">"
'Do
intStart = InStr(1, RichTextBox1, "now_playing_artist") + 36
If intStart = 0 Then Exit Sub
intEnd = InStr(intStart, RichTextBox1, "</span>")
strLink = Mid(RichTextBox1, intStart, intEnd - intStart)
MsgBox strLink
'Loop
End Sub
vb
测试
分析
Related Source Codes
Student Management System
0
0
no vote
FTP upload and download written in VB
0
0
no vote
Qq batch login
0
0
no vote
Example MSNPopup
0
0
no vote
Password management software
0
0
no vote
No comment