PDA

View Full Version : VBScript Question



alexd
24th September 2002, 14:19
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
24th September 2002, 18:34
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
25th September 2002, 10:02
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
25th September 2002, 16:30
cheers guys. Not really a vb man so that helped.

Alex

eek
25th September 2002, 20:36
but google is a wonderful thing.

Joe Bloggs
25th September 2002, 20:46
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.