home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
csapi
/
controls.gbl
next >
Wrap
Text File
|
1993-10-25
|
596b
|
19 lines
Sub ParseToAdditem (StringToParse$, VBControl As Control, Delimiter$, ClearFirst%)
If ClearFirst% Then VBControl.Clear
If Right$(StringToParse$, 1) <> Delimiter$ Then StringToParse$ = StringToParse$ & Delimiter$
xstart% = 1
Do
xstop% = InStr(xstart%, StringToParse$, Delimiter$)
If xstop% Then
xlength% = xstop% - xstart%
newString$ = Mid$(StringToParse$, xstart%, xlength%)
If Len(newString$) Then VBControl.AddItem newString$
xstart% = xstop% + 1
End If
Loop While xstop%
End Sub