View difference between Paste ID: Wv8Zypwq and 2gyAAeD4

 #include "crt.bi"
 
 function WildMatch( sWildText as string , sCompare as string , iCaseSensitive as boolean = false ) as boolean
   dim as integer iTxt, iCmp
 
   'if any of them is empty... then result is direct
   if sCompare[0] = 0 then return false
   do
     var iCT = sWildText[iTxt] : iTxt += 1
     var iCC = sCompare[iCmp] : iCmp += 1
     'print iTxt-1;" ";chr(iCT),iCmp-1;" ";chr(iCC)
     select case iCT
     case 0        : return iCC=0 'once it text reachs end.. it's a success
-    case asc(" "),asc("~") 'white space (at least 1, at least 0)
+    case asc("^"),asc("~") 'white space (at least 1, at least 0)
       dim as long iNum = 0
       do
         select case iCC
         case asc(" "),asc(!"\r"),asc(!"\n"),asc(!"\t")
           iNum += 1 : iCC = sCompare[iCmp] : iCmp += 1
         case else
-          if iCT=asc(" ") andalso iNum=0 then return false 'must at least have one blank
+          if iCT=asc("^") andalso iNum=0 then return false 'must at least have one blank
           iCmp -= 1 : continue do,do 'continue repeating same char
         end select
       loop
     case asc("?") : 'if it's a single char wild
       'we're done if reached end of comparsion
       'and it will be true if next wildtext is also done
       if iCC=0 then return sWildText[iTxt]=0
     case asc("*")
       var iCT2 = sWildText[iTxt]
       'if matching anything after then it will be true if it's the end of wildtext
       if iCT2 = 0 then return true
       'if is not another wildcard then must continue checking
       if iCT2 <> asc("?") andalso iCT2 <> asc("*") then
         'if end of compare text happened then it's false!
         if iCC = 0 then return false
         'if found matching char then continue matching
-        if iCT2 = asc(" ") orelse asc("~") then
+        if iCT2 = asc("^") orelse asc("~") then
           select case iCC
           case asc(" "),asc(!"\r"),asc(!"\n"),asc(!"\t")
-            continue do
+            iCmp -= 1 : continue do
           end select
         elseif iCaseSensitive then
           if iCC=iCT2 then iTxt += 1: continue do
         else
           if ToLower(iCC)=ToLower(iCT2) then iTxt += 1: continue do
         end if
         'otherwise goes back on wildtext (to compare against *) again
         iTxt -= 1 : continue do
       end if
       'next is also a wildcard, so we will process that
     case else 'is a direct comparsion...
       'if compare string finished or didnt match then we failed
       if iCC=0 then return false
       if iCaseSensitive then
         if iCC<>iCT then return false
       else
         if ToLower(iCC)<>ToLower(iCT) then return false
       end if
     end select
   loop
 end function
 
 #define WildMatchTest(_A,_B,_C...) WildMatch(_A,_B,_C),"'" _A "'", "'" _B "'"
 print "Expected","Result","WildCards","Comparsion"
 print string(60,"-")
 print true,  WildMatchTest("Hello","Hello")
 print false, WildMatchTest("Hell","Hello")
 print false, WildMatchTest("Hello","Hell")
 print false, WildMatchTest("Hello","HELLO",true)
 print false, WildMatchTest("Hello","World")
 print true,  WildMatchTest("B?n","Bin")
 print true,  WildMatchTest("b?n","Ben")
 print false, WildMatchTest("B?n","Bem")
 print true,  WildMatchTest("*us","jealous")
 print false, WildMatchTest("*us","jealously")
 print true,  WildMatchTest("Bang*","Bangaloo")
 print false, WildMatchTest("Leap*","lip")
 print false, WildMatchTest("Bi*us","Binocculus") 'want this to be true?
 print true,  WildMatchTest("Bi*us","Binocc?lus")
 print true,  wildMatchTest("*cup*","Porcupine")
 print true,  WildMatchTest("*Hi*Ta*","Hippopotamus")
 print true,  WildMatchTest(" Hello",!"\t \t Hello")
 print false, WildMatchTest(" Hello","Hello")
 print true,  WildMatchTest("~Hello~;"," Hello;")
 print true,  WildMatchTest("*~Hello;",!"World\t Hello;")
 print true,  WildMatchTest("*^Hello;",!"World Hello;")
 print false,  WildMatchTest("*~Hello;","WorldHello;")
 
 sleep