PureBasic Forum

Procedure.i explodeArray(Array sArr.s(1),  string.s, separator.s = ",", trimString.i = #False, limit.i = 0) ; String to Array
  ;From Flype's Functions - http://www.purebasic.fr/english/viewtopic.php?f=12&t=21495&start=0
  ;takes a list of delimited string and explodes out into an array 
  Protected.i index, size = CountString(string, separator)
  If Len(separator) > 1
    ProcedureReturn 0
  EndIf

  If (limit > 0)
    size = limit - 1
  ElseIf (limit < 0)
    size + limit
  EndIf

  ReDim sArr.s(size)

  For index = 0 To size
    If trimString
      sArr(index) = Trim(StringField(string, index + 1, separator))
    Else
      sArr(index) = StringField(string, index + 1, separator)
    EndIf
  Next index

  ProcedureReturn size
EndProcedure


Procedure.i FindStringWC(String.s,StringToFind.s, wildcard.s = "*", caseSensitive.i=#False)
  ;tests to see if a string is found, and supports single or multiple wildcard use.
  ; Returns 0 or 1
  ; String.s is the string to search
  ; StringToFind is the pattern to search for
  ; ie.
;   Debug "these should be true: "
;   Debug FindStringWC("this is a test","this is a test","*")                           ; true
;   Debug FindStringWC("this is a test","this is *","*")                                ; true
;   Debug FindStringWC("this is still a test","this is *","*")                          ; true
;   Debug FindStringWC("this is a test","*a test","*")                                  ; True 
;   Debug FindStringWC("this is a test","this * test","*")                              ; true
;   Debug FindStringWC("blahblahblah this is a test blahblah","*this is a test*")       ; true 
;   Debug FindStringWC("blahblahblah this is a test blahblah","*this is a test*")       ; true 
;   Debug FindStringWC("this is a test","this * test")                                  ; true
;   Debug FindStringWC("this test is true","this test is *")                            ; true
;   Debug FindStringWC("true this test is","* this test is")                            ; true
;   Debug "these should all be false:"
;   Debug FindStringWC("this is a test and should be false","this is test","*")         ; f
;   Debug FindStringWC("blahblahblah this is a false test blahblah","*this is a test*") ; f
;   Debug FindStringWC("this test is false","this * test")                              ; f
;   Debug FindStringWC("not this test","this test is *")                                ; f
;   Debug FindStringWC("this test is false","* this test is")                           ; f
;   Debug FindStringWC("blahblahblah this is a false test blahblah","*this is a test*") ; f
;   Debug FindStringWC("this is a False","this * test","*")                             ; f
;   Debug FindStringWC("this is a test","a test*","*")                                  ; f
 
  If Not caseSensitive
    string = UCase(String)
    StringToFind = UCase(StringToFind)
  EndIf
 
  Protected.i AnyPos = -1 ;wild
  Protected.i i, j, ub
  Protected Dim sSection.s(0)
    explodearray(sSection(),StringToFind,wildcard,#False)
    ub = ArraySize(sSection())
  Protected Dim iPos.i(ub)
  Protected.i nStart = AnyPos
 
  For i = 0 To ub   
    If sSection(i) = ""
      iPos(i) = AnyPos ;wild
    Else
      If i > 0
        nStart = iPos(i-1)
      EndIf
      If nStart <=0
        nStart = 1
      EndIf
      iPos(i) = FindString(String,sSection(i),nStart)
      If iPos(i) = 0 ;not found
        ProcedureReturn #False
      ElseIf i = 0 And sSection(i) <> "" And iPos(i) <> 1 ;verify the left side
        ;left side not wild, but string2find not at beginning
        ProcedureReturn #False
      EndIf
    EndIf
  Next i
  ;now verify the right side:
  If sSection(ub) <> "" ;right side not wild
    If iPos(ub) <> Len(String)-Len(sSection(ub)) + 1
      ProcedureReturn #False
    EndIf
  EndIf
 
  ProcedureReturn 1
EndProcedure

  Debug "these should be true: "
  Debug FindStringWC("this is a test","this is a test","*")                           ; true
  Debug FindStringWC("this is a test","this is *","*")                                ; true
  Debug FindStringWC("this is still a test","this is *","*")                          ; true
  Debug FindStringWC("this is a test","*a test","*")                                  ; True 
  Debug FindStringWC("this is a test","this * test","*")                              ; true
  Debug FindStringWC("blahblahblah this is a test blahblah","*this is a test*")       ; true 
  Debug FindStringWC("blahblahblah this is a test blahblah","*this is a test*")       ; true 
  Debug FindStringWC("this is a test","this * test")                                  ; true
  Debug FindStringWC("this test is true","this test is *")                            ; true
  Debug FindStringWC("true this test is","* this test is")                            ; true
  Debug "these should all be false:"
  Debug FindStringWC("this is a test and should be false","this is test","*")         ; f
  Debug FindStringWC("blahblahblah this is a false test blahblah","*this is a test*") ; f
  Debug FindStringWC("this test is false","this * test")                              ; f
  Debug FindStringWC("not this test","this test is *")                                ; f
  Debug FindStringWC("this test is false","* this test is")                           ; f
  Debug FindStringWC("blahblahblah this is a false test blahblah","*this is a test*") ; f
  Debug FindStringWC("this is a False","this * test","*")                             ; f
  Debug FindStringWC("this is a test","a test*","*")                                  ; f


End