PureBasic Forums - English

Code: Select all

EnableExplicit

Macro AddExcludedWord(_Word_) 
  AddMapElement(ExcludedWords$(),_Word_)
EndMacro

Procedure CapitalizeInplace(*inString)
  Protected *String.character 
  Protected *Start, *End, exit,do,len
  Protected *char.Unicode,tchar,bnext,word$ 
  
  Static NewMap ExcludedWords$()
  If MapSize(ExcludedWords$()) = 0 
    AddExcludedWord("a")
    AddExcludedWord("an")
    AddExcludedWord("the")
    AddExcludedWord("and")
    AddExcludedWord("but")
    AddExcludedWord("or")
    AddExcludedWord("for")
    AddExcludedWord("nor")
    AddExcludedWord("on")
    AddExcludedWord("at")
    AddExcludedWord("to")
    AddExcludedWord("by")
    AddExcludedWord("of")
    AddExcludedWord("in")
    AddExcludedWord("up")
    AddExcludedWord("with")
    AddExcludedWord("as")
  EndIf 
  
  *String = *inString
  *Start = *String
  *End = *String
  
  Repeat
    If *String\c = 0
      exit = #True
      do = #True
      *End = *String
    Else
      If *String\c = ' '
        do = #True
        *End = *String
      EndIf
    EndIf
    If do
      bnext=1
      len = (*End - *Start) >> 1 
      If Len > 0
        word$ = PeekS(*Start, len)
        If Not FindMapElement(ExcludedWords$(),word$) 
          *char = *Start 
          While *char\u  
            If *Char\u = ' ' 
              bnext= 1 
              *char+2  
              Break 
            ElseIf bnext     
              bnext = 0 
              If *char\u >=97 And *char\u <= 122 
                *char\u -32 
              EndIf   
            EndIf   
            *char+2 
          Wend 
        EndIf  
        
      EndIf
      *Start = *String + SizeOf(character)
      do = #False
    EndIf
    *String + SizeOf(character)
  Until exit
  
EndProcedure

Procedure.b ListContainsString(List List$(), String$)
String$ = LCase(String$)
ForEach List$()
If LCase(List$()) = String$ : ProcedureReturn #True : EndIf
Next
ProcedureReturn #False
EndProcedure

; Converts a string to title case, respecting all the semantic rules that come along with that. For example, the at the very beginning of the string is capitalized, but anywhere else it isn't.
Procedure$ Capitalize(String$)
	Protected.i i, Count
	Protected Res$, Word$, FirstCharacter$, WordTail$
	Static NewMap ExcludedWords$()
	AddExcludedWord("a")
	AddExcludedWord("an")
	AddExcludedWord("the")
	AddExcludedWord("and")
	AddExcludedWord("but")
	AddExcludedWord("or")
	AddExcludedWord("for")
	AddExcludedWord("nor")
	AddExcludedWord("on")
	AddExcludedWord("at")
	AddExcludedWord("to")
	AddExcludedWord("by")
	AddExcludedWord("of")
	AddExcludedWord("in")
	AddExcludedWord("up")
	AddExcludedWord("with")
	AddExcludedWord("as")
	Count = CountString(String$, " ") + 1
	For i = 1 To Count
		Word$ = StringField(String$, I, " ")
		FirstCharacter$ = Left(Word$, 1)
		WordTail$ = Right(Word$, Len(Word$) - 1)
		If i = 1 Or Not FindMapElement(ExcludedWords$(), Word$) : FirstCharacter$ = UCase(FirstCharacter$) : EndIf
		Word$ = FirstCharacter$ + WordTail$
		Res$ + Word$ + " "
	Next
	Res$ = RTrim(Res$, " ")
	ProcedureReturn Res$
EndProcedure

Global input.s = "this is a test of the function to see how it works with the two functions to see if they're the same or different" 

Debug Capitalize(input) 

CapitalizeInplace(@input) 
Debug input