Extracting numbers from a text sequence in Word 1

[DLG0311]

The following text sequence needs to have the individual numbers extracted which are then put in individual boxes in a table: "69100 69101 69102 69102" etc

The "problem" is that different departments use different length numbers and some even use Alphanumeric designations.

How can I take the sequence, look as far as a space and take the number to that point then move to the next text after the space and find the number before the following space and so on for the length of the text (len(text))

My current solution only works for me (i.e. 5 digit space 5 digit etc.)

 

[SkipVought]

hi,

dim a, i, s
s = "69100 69101 69102 69102"
a = split(s, " ")
for i = 0 to ubound(a)
  msgbox a(i)
next

Skip,
[sub]
[red]Be advised:[/red] When you ignite a firecracker in a bowl of vanilla, chocolate & strawberry ice cream, you get...
Neopolitan Blownapart! [/sub]

 

[DLG0311]

Thanks very very much Skip,

perhaps you'd have the time to explain why/how this works

Thanks again

darslg

 

[SkipVought]

Take a look at VB Help on Split. Post back if you have further questions.

Skip,
[sub]
[red]Be advised:[/red] When you ignite a firecracker in a bowl of vanilla, chocolate & strawberry ice cream, you get...
Neopolitan Blownapart! [/sub]