home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / csapi / controls.gbl next >
Text File  |  1993-10-25  |  596b  |  19 lines
  1.  
  2. Sub ParseToAdditem (StringToParse$, VBControl As Control, Delimiter$, ClearFirst%)
  3.  
  4.     If ClearFirst% Then VBControl.Clear
  5.     If Right$(StringToParse$, 1) <> Delimiter$ Then StringToParse$ = StringToParse$ & Delimiter$
  6.     xstart% = 1
  7.     Do
  8.         xstop% = InStr(xstart%, StringToParse$, Delimiter$)
  9.         If xstop% Then
  10.             xlength% = xstop% - xstart%
  11.             newString$ = Mid$(StringToParse$, xstart%, xlength%)
  12.             If Len(newString$) Then VBControl.AddItem newString$
  13.             xstart% = xstop% + 1
  14.         End If
  15.     Loop While xstop%
  16.  
  17. End Sub
  18.  
  19.