Need Help with RegEx and replacing stings in a html file

O

Omegarex

Member
Licensed User
Longtime User
I need to strip some tags from an html file. I have the lines of code below. One line works and the other doesn't. Any help would be greatly appreciated.

html = html.Replace(">", ">" & CRLF) <-- This line works

html = html.Replace("/<head>.*?<\/head>/is", "") <-- This line doesn't
 
M

melamoud

Active Member
Licensed User
Longtime User
the second line wont work since string.replace is not regecp replace, its a string replace only call.

in order to use regexp you need something like this sub:
B4X: 
Sub RegexReplace(Pattern As String, Text As String, Replacement As String) As String    
   Dim m As Matcher    
   m = Regex.Matcher(Pattern, Text)    
   Dim r As Reflector    
   r.Target = m    
   Return r.RunMethod2("replaceAll", Replacement, "java.lang.String")
End Sub

' example of how to use it
sub parser
Dim s As String = Utilities.RegexReplace("<head>.*?<\/head>", "jlasdkj <head> yes </head>more!","")
   Log ("---" & s)
end sub
 
O

Omegarex

Member
Licensed User
Longtime User
RegexReplace code doesnt work

Melamoud,

Thank you for your response.

The problem I am having now is that the <head> and </head> tags are not on the same line. So the regex code does not find a match and replace the tags. Do you have any other suggestions to fix the code?
 
O

Omegarex

Member
Licensed User
Longtime User
stupid question

melamoud,

I know this is a stupid question but could you post the code to remove all the line feeds...
 
M

melamoud

Active Member
Licensed User
Longtime User
B4X: 
        Dim s As String 
   s= "jlasdkj <head> yes " & CRLF & "</head>more!"
   s= s.Replace(CRLF,"")
   s = RegexReplace("<head>.*?<\/head>",s,"")
    Log ("---" & s)
 
You must log in or register to reply here.
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…