Zeichenkette in Kleinbuchstaben umwandeln

PUB strtolower (strAddr) | i
{{ sets all characters in string to lowercase. }}
  bytefill(@ostr, 0, STR_MAX_LENGTH)    
                             
  REPEAT i FROM 0 TO strsize(strAddr)                          
    IF (byte[strAddr + i] => 65 AND byte[strAddr + i] =< 90)   ' if byte is in the uppercase range, add 32 to byte
      ostr[i] += byte[strAddr + i] + 32
    ELSE                                     
      ostr[i] += byte[strAddr + i]
                                  
  return @ostr
schnipsel/string1.txt · Zuletzt geändert: 04.08.2009 17:44 (Externe Bearbeitung)
 
Falls nicht anders bezeichnet, ist der Inhalt dieses Wikis unter der folgenden Lizenz veröffentlicht: GNU Free Documentation License 1.3
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki