Parsing files....

[ArChAnGeL2k3]

hey guys its me again.

i want to write simple script which gets TXT file, which contains for example:

Hello world my name is Steave jones from canda,
i like dogs but i hate big ones...


now from these lines i want search all steave+space (Steave ) and to cut the first word after it.
any ideas?



thx.

[Danial]

You will need to use combination of Instr function and Mid function to search and cut the string.

Here is a simple example

Dim txt
txt = "Hello world my name is Steave jones from canda,  like dogs but i hate big ones..."
 
Dim pos
Dim SearchWord
SearchWord = "steave "
 
pos = InStr(1, txt, SearchWord, vbTextCompare)
 
response.write Mid(txt, Len(SearchWord) + pos)

Hope this helps
Danial

[Anglo Saxon]

I would use an array to do this :

Dim TextString
TextString = "Hello world my name is Steave jones from canda, Steave jones likes dogs small dogs , "
TextString = TextString & "but Steave jones hates big ones... "
Dim WordArray
Dim SearchWord
SearchWord = "Steave"

WordArray = Split(TextString," ")

for i = 0 to UBound(WordArray)
	if WordArray(i) = SearchWord and i < Ubound(WordArray) then
		WordArray(i+1) = ""
		i = i + 1
	end if
next

TextString = join(WordArray," ")

response.write(TextString)

You can even add replace functionality easily :

Dim TextString
TextString = "Hello world my name is Steave jones from canda, Steave jones likes dogs small dogs , "
TextString = TextString & "but Steave jones hates big ones... "
Dim WordArray
Dim SearchWord
Dim ReplaceWord
SearchWord = "Steave"
ReplaceWord ="Smith"
WordArray = Split(TextString," ")

for i = 0 to UBound(WordArray)
	if WordArray(i) = SearchWord and i < Ubound(WordArray) then
		WordArray(i+1) = ReplaceWord
		i = i + 1
	end if
next

TextString = join(WordArray," ")

response.write(TextString)

--
Anglo Saxon

[ArChAnGeL2k3]

thx guys i hoe it work ill try it.