Find words in big texts

[imre]

For example: I want to delete everything between <Script ..............>
And </Script......>

My simple method was using a loop that counts to the last character in the
string, using the commands Left() and Mid().
Okay, it works, but my script analyses over 600 pages and rebuilds script,
head and body sections.
So, it uses all my server capacity at onces for about an our !!!

Like:

Sub Page_load(Src As Object, E As Eventargs)

Dim Count, StartPosScript, EndPosScript as integer
Dim str as string = "This is my text and <Script>This is the
script</Scr" & "ipt> That needs to be retrieved and deleted from str"
Dim scri, newstr as string

For count = 1 to len(str)
If left(mid(Str, Count),7) = "<Script" Then StartPosScript =
count
If left(mid(Str, Count),8) = "</Script" Then EndPosScript = count
Next

Scri = left(mid(Str, StartPosScript),(EndPosScript - StartPosScript) +
9)

For count = 1 to len(str)
If count < StartPosScript then newstr = newstr & left(mid(Str,
count),1)
If count > EndPosScript + 8 then newstr = newstr & left(mid(Str,
count),1)
Next

Response.write(server.htmlencode(Str) & "<br>")
Response.write(server.htmlencode(scri) & "<br>")
Response.write(server.htmlencode(newstr) & "<br>")

End sub


Is there a better method to find words, phrases and characters, retrieve
them and/or erase them out of the string ??

Thanks in advance.

Imre

 

[Steve C. Orr [MVP, MCSD]]

You could use the IndexOf method or you could use Regular Expressions or you
could use the VB.NET methods Instr and InstrRev.
Here's more info:
http://msdn.microsoft.com/library/d...f/html/frlrfsystemstringclassindexoftopic.asp
www.regexplib.com
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctInStr.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vafctinstrrev.asp

 

[imre]

Thanks,

I am going to do some study on it.

imre