No self-introduction
Loading
Profile
Follow
codes (2)
WaveIn Rec
no vote
this program is for the recorded sound "wav" of the sound card line-in or microphone webcam
yokoshima 0 0
1
My test parsing
no vote
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
yokoshima 0 0
1
No more~
Follows0
Fans0