PureBasic Forums - English

Code: Select all

; String function CountWords
; Returns the number of words in a string
; You can declare the divide char to localize the words.
; something like: CountWords("Hello,World",",") will return 2
; something like: CountWords("Hello,World,",",") will return 3
; because the third word is empty but separated!
; something like: CountWords("Hello,nice,World",",") will return 3
; something like: CountWords("Hello,,World",",") will return 3
; because the second word is empty but separated! and so on...
; usage: CountWords(String$,Divider$)
Procedure CountWords(S$,D$)
  If Len(S$)=0
    W=0
  Else
    W=1 : F=1
    While FindString(S$,D$,F)>0
      F=FindString(S$,D$,F)+1
      W=W+1
    Wend
  EndIf
  ProcedureReturn W
EndProcedure



; String function Delete
; Deletes a given lenght of characters in a string from a given position
; Usage: Delete(String$,StartPosition,Lenght)
Procedure$ Delete(S$,P,L)
  If P>0 And L>0
    S$=Left(S$,P-1)+Right(S$,Len(S$)-(P+L-1))
  EndIf
  ProcedureReturn S$
EndProcedure


; String function Insert
; Inserts a string to a string from a given position
; If the position is higher then the lenght of the string it will be added
; Usage: Insert(String$,InsertString$,StartPosition)
Procedure$ Insert(S$,I$,P)
  While Len(S$)0
    S$=Left(S$,P-1)+I$+Right(S$,Len(S$)-(P-1))
  EndIf
  ProcedureReturn S$
EndProcedure


; String function MCase
; Returns the original string converted in to mixed case.
; The string starts with upper case.
; Usage: MCase(String$)
Procedure$ MCase(S$)
  ProcedureReturn UCase(Left(S$,1))+LCase(Right(S$,Len(S$)-1))
EndProcedure


; String function Remove
; Removes all occurrences of a string in a string.
; Usage: Remove(String$,RemoveString$)
Procedure$ Remove(S$,R$)
  F=1
  While FindString(S$,R$,F)>0
    S$=Left(S$,FindString(S$,R$,F)-1)+Right(S$,Len(S$)-(FindString(S$,R$,F)+Len(R$)-1))
    F=F+1
  Wend
  ProcedureReturn S$
EndProcedure


; String function Replace
; Replaces all occurrences of 'replacestring' with 'newstring'.
; Usage: Replace(String$,ReplaceString$,NewString$)
Procedure$ Replace(S$,R$,N$)
  While FindString(S$,R$,1)>0
    S$=Left(S$,(FindString(S$,R$,1)-1))+N$+Right(S$,Len(S$)-(FindString(S$,R$,1)+Len(R$)-1))
  Wend
  ProcedureReturn S$
EndProcedure


; String function ReturnWord
; Returns a word with a given number from a string. 
; You can declare the divide char to localize the words.
; Usage: ReturnWord(String$,Divider$,WordPosition)
Procedure$ ReturnWord(S$,D$,P)
  If Len(S$)=0
    W=0
  Else
    W=1 : F=1
    While FindString(S$,D$,F)>0
      F=FindString(S$,D$,F)+1
      W=W+1
    Wend
    If W0 : B=1 : L=F-1 : EndIf
        If P>1 And F>0 And W=P : L=F-B : EndIf
        If P>1 And F=0 And W=P : L=Len(S$)-B+1 : EndIf
        If P>1 And F>0 And W0
    O$=O$+Mid(S$,P,1)
    P=P-1
  Wend
  ProcedureReturn O$
EndProcedure


; String function Strip
; Removes all the 'space' characters located in front and at the end of a string.
; Usage:  Strip(String$)
Procedure$ Strip(S$)
  ProcedureReturn StripLead(StripTrail(S$))
EndProcedure


Text$ = Str(CountWords("Hello World"," "))
MessageBox_(0,Text$,"CountWords: All is OK",0)

Text$ = Delete("Hello World !",10,1)
MessageBox_(0,Text$,"Delete: All is OK",0)

Text$ = Insert("Hello World !","nice ",7)
MessageBox_(0,Text$,"Insert: All is OK",0)

Text$ = MCase("hElLO!")
MessageBox_(0,Text$,"MCase: All is OK",0)

Text$ = Remove("Hello nice World !","nice ")
MessageBox_(0,Text$,"Remove: All is OK",0)

Text$ = Replace("Hello World World !","World","Franco")
MessageBox_(0,Text$,"Replace: All is OK",0)

Text$ = ReturnWord("Hello,nice,World,!",",",3)
MessageBox_(0,Text$,"ReturnWord: All is OK",0)

Text$ = Reverse("Hello World !")
MessageBox_(0,Text$,"Reverse: All is OK",0)

Text$ = Strip("                            Hello World !                   ")
MessageBox_(0,Text$,"Strip: All is OK",0)

End