View Single Post
Old 08-14-2018, 11:43 AM
bstedh bstedh is offline
Registered User
Join Date: Jan 2018
Posts: 41
Remove all the excess spaces and then split by space to put each item in an array.

Start by reading the line into a variable.
input = crt.Screen.Readstring (vbCr)
Remove excess spaces

Do While InStr(1,input,"  ") 'loop while there are more than just single spaces
    input = Replace(input,"  "," ") 'replaces double spaces with a single space
Split the input into an array that contains each item in the line.

arroutput = Split (input," ") 'splits the info using a space as a delimiter
Now the array arroutput contains each item separately to use as you would like.
Version 6.7.3 (build 292)
Reply With Quote