String case

Take the string "alphaBETA", and demonstrate how to convert it to UPPER-CASE and lower-case.

4D

$string:="alphaBETA"
$uppercase:=Uppercase($string)
$lowercase:=Lowercase($string)

ActionScript

var string:String = 'alphaBETA';
var upper:String = string.toUpperCase();
var lower:String = string.toLowerCase();

Ada

with Ada.Characters.Handling; use Ada.Characters.Handling;
with Ada.Text_Io; use Ada.Text_Io;

procedure Upper_Case_String is
   S : String := "alphaBETA";
begin
   Put_Line(To_Upper(S));
   Put_Line(To_Lower(S));
end Upper_Case_String;

C

Standard: C

Compiler: GCC gcc (GCC) 3.4.4 (cygming special, gdc 0.12, using dmd 0.125)

Library: libc

 // Demonstrate toupper and tolower for 
 // standard C strings.
 // This does not work for multibyte character sets.
 #include <ctype.h>
 #include <stdio.h>
 
 //optional - un-comment to use function versions of
 //toupper and tolower, leave commented
 //to use macro versions
 //#undef toupper
 //#undef tolower

 //upper-cases s in place and returns it
 char *str_toupper(char *s)
 {
     char *originalstring;
     originalstring=s;
     while(*s)
     {
         *s=toupper(*s);
         s++;
     }
     return originalstring;
 }
 
 
 //lower-cases s in place and returns it
 char *str_tolower(char *s)
 {
     char *originalstring;
     originalstring=s;
     while(*s)
     {
         *s=tolower(*s);
         s++;
     }
     return originalstring;
 }
 
 int main(int argc, char *argv[])
 {
     char *s=NULL;
     char t[255]="abcdefg 123 ABCDEFG";
     //edit in place
     str_toupper(t);
     printf("uppercase: %s\n", t);
     str_tolower(t);
     printf("lowercase: %s\n", t);
     //use returned strings, be aware the string is still
     //edited in place
     printf("uppercase: %s\n", str_toupper(t));
     printf("uppercase: %s\n", str_tolower(t));
     return 0;
 }
 
 Output:
 
 uppercase: ABCDEFG 123 ABCDEFG
 lowercase: abcdefg 123 abcdefg
 uppercase: ABCDEFG 123 ABCDEFG
 uppercase: abcdefg 123 abcdefg

C++

Standard: ANSI C++

Compiler: GCC g++ (GCC) 3.4.4 (cygming special)

Library: STL

This method does the transform in-place. Alternate methods might return a new copy or use a stream manipulator.

/// \brief in-place convert string to upper case
/// \return ref to transformed string
void str_toupper(std::string &str) {
  std::transform(str.begin(), 
                 str.end(), 
                 str.begin(),
                 std::toupper);
}

/// \brief in-place convert string to lower case
/// \return ref to transformed string
void str_tolower(std::string &str) {
  std::transform(str.begin(), 
                 str.end(), 
                 str.begin(),
                 std::tolower);
}

here is sample usage code:

#include <iostream> 

using namespace std;
int main() {
  string foo("_upperCas3Me!!");
  str_toupper(foo);
  cout << foo << endl;
  str_tolower(foo);
  cout << foo << endl;
  return 0;
}

C#

string array = "alphaBETA";
System.Console.WriteLine(array.ToUpper());
System.Console.WriteLine(array.ToLower());

ColdFusion

converting a string literal

<cfset upper = UCase("alphaBETA")>
<cfset lower = LCase("alphaBETA")>

converting the value of a variable

<cfset string = "alphaBETA">
<cfset upper = UCase(string)>
<cfset lower = LCase(string)>

Delphi

Compiler: ALL

 writeln(uppercase('alphaBETA'));
 writeln(lowercase('alphaBETA'));

E

["alphaBETA".toUpperCase(),
 "alphaBETA".toLowerCase()]

Forth

create s ," alphaBETA"
s count type
s count 2dup upper type
s count 2dup lower type

Output:

alphaBETA
ALPHABETA
alphabeta

JavaScript

alert( "alphaBETA".toUpperCase() );
alert( "alphaBETA".toLowerCase() );

Output:

ALPHABETA
alphabeta

Perl

Interpreter: Perl v5.x

my $string = "alphaBETA";
my $uppercase = uc($string);
my $lowercase = lc($string);

Python

s = "alphaBETA"
print s.upper()
print s.lower()

Ruby

Interpreter: Ruby 1.8

"alphaBETA".downcase
"alphaBETA".upcase
"alphaBETA".swapcase

Seed7

writeln(upper("alphaBETA"));
writeln(lower("alphaBETA"));

SQL

--tested in Microsoft SQL 2005
declare @s varchar(10)
set @s = 'alphaBETA'
print upper(@s)
print lower(@s)

Tcl

set string alphaBETA
string toupper $string
# ==> ALPHABETA
string tolower $string
#==>  alphabeta