• Visitors can check out the Forum FAQ by clicking this link. You have to register before you can post: click the REGISTER link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. View our Forum Privacy Policy.
  • FREE webinar: What does a post IR35 reform CV look like? : Wed, Jul 28, 2021 7:15 PM - 8:15 PM BST More details here.

VBScript Question

Collapse
X
  •  
  • Filter
  • Time
  • Show
Clear All
new posts

    VBScript Question

    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

    #2
    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

    Comment


      #3
      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.

      Comment


        #4
        ta

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

        Alex

        Comment


          #5
          sadly neither am I

          but google is a wonderful thing.

          Comment


            #6
            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.

            Comment

            Working...
            X