Cornelis96
Gebruiker
- Lid geworden
- 22 mrt 2010
- Berichten
- 107
Beste allemaal ik ben bezig met een soort SWF player, Hij heet The Ultimate SWF player
ik heb een browser er in waarmee ik alle SWF file's uit de wepagina filter, alleen kan ik niet een " tussen haakjes zetten en de charcode weet ik ook niet weet iemande de charcode van dit teken: " ?
voor nieuwsgierigen heb ik de code van mijn prog hier.
Groeten Corné
ik heb een browser er in waarmee ik alle SWF file's uit de wepagina filter, alleen kan ik niet een " tussen haakjes zetten en de charcode weet ik ook niet weet iemande de charcode van dit teken: " ?
voor nieuwsgierigen heb ik de code van mijn prog hier.
Code:
Private Sub SimpleButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton4.Click
Dim aaa As String = WebBrowser1.DocumentText
Dim tlr As Integer
Dim txt As String = Nothing
Dim swf As Boolean
Dim fswf As Integer = -1
Dim rcrd As Boolean
Do While tlr < aaa.Length
If aaa(tlr) = Chr(34) Or aaa(tlr) = Chr(39) Then
rcrd = True
If txt <> Nothing Then
If swf Then
ListBoxControl1.Items.Add(txt)
swf = False
fswf = -1
End If
txt = Nothing
End If
Else
If rcrd Then
txt += aaa(tlr)
End If
If aaa(tlr) = "." Then
fswf = 0
ElseIf aaa(tlr) = "S" Or aaa(tlr) = "s" Then
If fswf = 0 Then fswf = 1
ElseIf aaa(tlr) = "W" Or aaa(tlr) = "w" Then
If fswf = 1 Then fswf = 2
ElseIf aaa(tlr) = "F" Or aaa(tlr) = "f" Then
If fswf = 2 Then swf = True
Else
fswf = -1
End If
End If
tlr += 1
Loop
End Sub
Groeten Corné
Laatst bewerkt: