[RESOLVED] How do I remove JavaScript from HTML source using Regular Expressions. Almost solved.

[rory]

And without RegExpressions ..

Added removal of Extra Chars, Special Symbols, Single Letters, Digits, Common Words. Upper Case first letter of each word.

Option Explicit
 
Private Sub Command1_Click()
    Dim i As String
    i = Inet1.OpenURL("http://www.yujunet.com/")
    If Len(i) Then
        i = RemoveLines(i)
        i = RemoveTags(i, "<style", "</style>")
        i = RemoveTags(i, "<script", "</script>")
        i = RemoveTags(i, "<!--", "-->")
        i = RemoveTags(i, "<", ">")
        i = RemoveTags(i, "&#", ";")  ' SPECIAL SYMBOLS
        i = RemoveChars(i, "&nbsp#&amp;#&quot#&gt;#&lt;#[#]#""#;#:#.#,#'#/#$#%#?#!#|#(#)#=#-#+#&#*#©#®")
        i = RemoveDigits(i, "0 1 2 3 4 5 6 7 8 9")
        i = RemoveCommon(i, "a b c d e f g h i j k l m n o p q r s t u v w x y z")
        i = RemoveCommon(i, "at and com is or of to that this then the was what with where who when")
        i = RemoveMultiple(i, "  ")   ' GET RID OF MULTIPLE SPACES
        i = StrConv(i, vbProperCase)  ' UPPER CASE FIRST LETTER
        Text1 = Trim$(i)
    End If
End Sub
 
Private Function RemoveTags(ByVal myString As String, _
    start As String, finish As String) As String
    Dim sArray() As String, i As Integer
    Dim iPor As String, iPoe As Integer
    sArray = Split(myString, start, , 3)                            ' SPLIT BY TAG START
    For i = 0 To UBound(sArray)                                     ' LOOP THROUGH
        iPoe = InStr(1, sArray(i), finish, 3)                       ' GET REPLACE LENGTH
        If iPoe Then                                                ' IF EXISTS IN TEXT
            iPor = start & Mid$(sArray(i), 1, (iPoe - 1)) & finish  ' OUR REPLACE STRING
            myString = Trim$(Replace(myString, iPor, " ", , , 3))   ' REPLACE IN TEXT
        End If
    Next i                                                          ' NEXT TAG START
    RemoveTags = myString
End Function
 
Private Function RemoveCommon(ByVal myString As String, _
    myVal As String) As String
    Dim sArray() As String, i As Integer
    sArray = Split(myVal)
    For i = 0 To UBound(sArray)
        Do While (InStr(1, " " & myString & " ", " " & sArray(i) & " ", 3))
            myString = Replace(" " & myString & " ", " " & sArray(i) & " ", " ", , , 3)
        Loop
    Next
    RemoveCommon = myString
End Function
 
Private Function RemoveDigits(ByVal myString As String, _
    myVal As String) As String
    Dim sArray() As String, i As Integer
    sArray = Split(myVal)
    For i = 0 To UBound(sArray)
        Do While (InStr(myString, sArray(i)))
            myString = Replace(myString, sArray(i), " ")
        Loop
    Next
    RemoveDigits = myString
End Function
 
Private Function RemoveChars(ByVal myString As String, _
    myVal As String) As String
    Dim sArray() As String, i As Integer
    sArray = Split(myVal, "#")
    For i = 0 To UBound(sArray)
        myString = Replace(myString, sArray(i), " ", , , 3)
    Next i
    myString = Replace(myString, "#", " ")
    RemoveChars = myString
End Function
 
Private Function RemoveMultiple(ByVal myString As String, _
    myVal As String) As String
    Do While (InStr(myString, myVal))
        myString = Replace(myString, myVal, " ", , , 3)
    Loop
    RemoveMultiple = myString
End Function
 
Private Function RemoveLines(ByVal myString As String) As String
    myString = Replace(myString, vbTab, " ")
    myString = Replace(myString, Chr(13), " ")
    myString = Replace(myString, Chr(10), " ")
    RemoveLines = myString
End Function