home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / binarydb / stringmg.bas < prev    next >
Encoding:
BASIC Source File  |  1997-02-19  |  2.0 KB  |  75 lines
  1. Attribute VB_Name = "StringMgmt"
  2.  
  3. Public Function Parse(ByVal T$, v%) As String
  4.     On Error Resume Next
  5.     
  6.     Const DELIMITER = "ñ"
  7.     
  8.     T$ = DELIMITER + Trim(T$) + DELIMITER
  9.     xl% = Len(T$)
  10.     Place% = 0
  11.     For Counter1% = 1 To xl%
  12.         CurrentChar$ = Mid$(T$, Counter1%, 1)
  13.         If CurrentChar$ = DELIMITER Then Place% = Place% + 1
  14.         If Place% = v% Then
  15.             xStart% = Counter1% + 1
  16.             Exit For
  17.         End If
  18.     Next
  19.     For Counter2% = xStart% To xl%
  20.         CurrentChar$ = Mid$(T$, Counter2%, 1)
  21.         If CurrentChar$ = DELIMITER Then Place% = Place% + 1
  22.         If Place% = v% + 1 Then
  23.             xStop% = Counter2% - xStart%
  24.             Exit For
  25.         End If
  26.     Next
  27.     If xStop% = 0 Then
  28.         Parse = Trim(Mid$(T$, xStart%))
  29.         If InStr(Parse, DELIMITER) Then Parse = ""
  30.     Else
  31.         Parse = Trim(Mid$(T$, xStart%, xStop%))
  32.         If InStr(Parse, DELIMITER) Then Parse = ""
  33.     End If
  34.     On Error GoTo 0
  35.     On Error Resume Next
  36. End Function
  37.  
  38. Public Function ParseTab(ByVal T$, v%) As String
  39.     On Error Resume Next
  40.     
  41.     Const DELIMITER = vbTab
  42.     
  43.     T$ = DELIMITER + Trim(T$) + DELIMITER
  44.     xl% = Len(T$)
  45.     Place% = 0
  46.     For Counter1% = 1 To xl%
  47.         CurrentChar$ = Mid$(T$, Counter1%, 1)
  48.         If CurrentChar$ = DELIMITER Then Place% = Place% + 1
  49.         If Place% = v% Then
  50.             xStart% = Counter1% + 1
  51.             Exit For
  52.         End If
  53.     Next
  54.     For Counter2% = xStart% To xl%
  55.         CurrentChar$ = Mid$(T$, Counter2%, 1)
  56.         If CurrentChar$ = DELIMITER Then Place% = Place% + 1
  57.         If Place% = v% + 1 Then
  58.             xStop% = Counter2% - xStart%
  59.             Exit For
  60.         End If
  61.     Next
  62.     If xStop% = 0 Then
  63.         ParseTab = Trim(Mid$(T$, xStart%))
  64.         If InStr(ParseTab, DELIMITER) Then ParseTab = ""
  65.     Else
  66.         ParseTab = Trim(Mid$(T$, xStart%, xStop%))
  67.         If InStr(ParseTab, DELIMITER) Then ParseTab = ""
  68.     End If
  69.     On Error GoTo 0
  70.     On Error Resume Next
  71. End Function
  72.  
  73.  
  74.  
  75.