Parsing files....

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.

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

Here is a simple example

VB Code:

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

I would use an array to do this :

Code:

---

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 :

Code:

---

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

thx guys i hoe it work ill try it.