BBS: Inland Empire Archive
Date: 05-24-92 (13:13) Number: 166
From: RICHARD VANNOY Refer#: NONE
To: JEFF BEER Recvd: NO
Subj: Strings Conf: (2) Quik_Bas
JB>How do I test each character in a variable length string to find the
JB>start and stop positions of the words I want to pull out?
JB>It should be easy, but I can't remember... the words I want are in
JB>all caps, and the rest are small case. I also want to pull variable
JB>sized numbers (no more than three digits) and I assume the procedure
JB>would be the same. BTW - this is from an ascii sequential log file.
LINE INPUT #1, lin$
FOR i = 1 TO LEN(lin$)
a = ASC(MID$(lin$,I,1))
SELECT CASE a
number = VAL(MID$(lin$,i))
FOR j = i + 1 TO LEN(lin$)
a = ASC(MID$(lin$,J,1))
IF A < 48 OR a > 57 THEN
i = j
WHILE NOT EOF(1)
> MegaMail 2.1b #0:At least I can use his code as a bad example!
--- WM v2.01/91-0012
* Origin: Com-Dat BBS Hillsboro, OR. HST (503) 681-0543 (1:105/314)