VBScript Question

[alexd]

I'm trying to extract some text using VBScript in MS Word 97. Can anyone help with the following?

Aim to extract the complete words with country in them and copy to the bottom of the page. e.g.

england country1 london
wales country2 cardiff
scotland country3 edinburgh

The script will just extract (copy and paste) the following at the bottom of the page:

country1
country2
country3

I can get the thing to find anything with 'country' and paste, but not the complete word (i.e. country1, country2). The text is seperated by blank spaces only.

Any ideas anyone?

cheers

 

[Karl1]

easy in excel,
export to txt file then reimport setting the delimter to space
should drop the countries into single column.
or
use a combination of seek / mid / length commands

 

[eek]

Use Instr

Use Instr

Use Instr to find the word country

a=instr(string,"country",1)

Then use instr to find the first space after it

b=instr(a,string," ",1)

Then simply grab the middle bit of text you have found

wanted=mid(string,a,b-a)

simple really.

 

[alexd]

ta

ta

cheers guys. Not really a vb man so that helped.

Alex

 

[eek]

sadly neither am I

sadly neither am I

but google is a wonderful thing.

 

[Joe Bloggs]

Re: sadly neither am I

Re: sadly neither am I

An easier solution:

Dim myArray, a, b, c

myArray = vba.split(myString, " ")

a = "first word is " & myArray(0)
b = "second word is " & myArray(1)
c = "third word is " & myArray(2)

Look up help for further info.