PureBasic

Code : Tout sélectionner

; Useful for extracting information from HTML

Procedure SearchStringInit(String.s)
  Global SearchStringIndex,SearchString.s
  SearchStringIndex=1
  SearchString=String
EndProcedure

Procedure.s SearchString(StartString.s,EndString.s)
  
  Start=FindString(SearchString,StartString,SearchStringIndex)
  
  If Start
    Start=Start+Len(StartString)
    EndIndex=FindString(SearchString,EndString,Start)
    If EndIndex
      SearchStringIndex=EndIndex+Len(EndString)
      ProcedureReturn Mid(SearchString,Start,EndIndex-Start)
    EndIf
  EndIf
EndProcedure

;/ Test
SearchStringInit("This *is* a Won²der#@=full test")
Debug SearchString("*","*")
Debug SearchString("²","#@=")
Debug SearchString("*","*")