Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Parsing using Mid( )
- Thread starter pintto
- Start date
Cykadelyxx
Technical User
try this... just a quick outline
String$="When will the new train be coming"
DIM Words(1 to 100) as String
DO
i=i+1
f$=MID$(String$,i,1)
if f$ <> " " then Word$=Word$+f$ else GOSUB Seperate_Word
LOOP UNTIL i = LEN(String$)
Seperate_Word:
Index=Index+1
Words(Index)=Word$
Word$=""
Return
String$="When will the new train be coming"
DIM Words(1 to 100) as String
DO
i=i+1
f$=MID$(String$,i,1)
if f$ <> " " then Word$=Word$+f$ else GOSUB Seperate_Word
LOOP UNTIL i = LEN(String$)
Seperate_Word:
Index=Index+1
Words(Index)=Word$
Word$=""
Return
[tt]MID$()[/tt] is fairly easy to use. You tell it where you want it to start in the string and how many characters you want it to grab. The more difficult part is determining where you want to start and how many characters you want 
A good approach for this is the [tt]INSTR()[/tt] function. It takes either 2 or 3 parameters. Unusually, it is the first parameter which is optional In its two-parameter form, INSTR takes a string and a substring (in that order), and returns the offset into the string of the first occurrance of the substring, or 0 if it does not occur. In its second form, a third parameter is added in front of the other two, which is where in the string to start looking. The following code outputs the offset of each space in the input string:
[tt]
LINE INPUT "Enter a string: ", a$
x% = INSTR(a$, " "
IF x% = 0 THEN
PRINT "There are no spaces in that string."
ELSE
PRINT "Spaces are at locations:"
DO
PRINT x%;
x% = INSTR(x% + 1, a$, " "
LOOP WHILE x% <> 0
END IF
[/tt]
I'm sure you can adapt this to fit your needs.
A good approach for this is the [tt]INSTR()[/tt] function. It takes either 2 or 3 parameters. Unusually, it is the first parameter which is optional
In its two-parameter form, INSTR takes a string and a substring (in that order), and returns the offset into the string of the first occurrance of the substring, or 0 if it does not occur. In its second form, a third parameter is added in front of the other two, which is where in the string to start looking. The following code outputs the offset of each space in the input string:[tt]
LINE INPUT "Enter a string: ", a$
x% = INSTR(a$, " "
IF x% = 0 THEN
PRINT "There are no spaces in that string."
ELSE
PRINT "Spaces are at locations:"
DO
PRINT x%;
x% = INSTR(x% + 1, a$, " "
LOOP WHILE x% <> 0
END IF
[/tt]
I'm sure you can adapt this to fit your needs.
- Status