PureBoard

Verfasst: **22.12.2005 20:39**

ist auch so

MFG kurt

Verfasst: **22.12.2005 20:48**

Ach hier ist das her ... HW hat sich in der Lounge darueber auch Gedanken gemacht . Dann poste ich das auch nochmal hier.

Code: Alles auswählen

  Procedure.s IncreaseFirstCases (String.s)
    
    *b.BYTE = @String
    
    sbyte =  *b\b & $FF
    If (sbyte >= 97 And sbyte <= 122) Or (sbyte >= 224 And sbyte <= 255) 
      If sbyte <> 223
        *b\b  = sbyte - 32 
      EndIf
    EndIf
    
    While *b\b <> 0 
      
      If *b\b = 32
        *b + 1
        sbyte =  *b\b & $FF
        If (sbyte >= 97 And sbyte <= 122) Or (sbyte >= 224 And sbyte <= 255) 
          If sbyte <> 223
            *b\b  = sbyte - 32 
          EndIf
        EndIf
      Else
        *b + 1
      EndIf
      
    Wend
    
    ProcedureReturn String
  EndProcedure

PureBoard

große buchstaben