|
RE: Case talker
Similar in VBScript:
Function talker(input)
Dim i, Str, Char
Str = ""
For i = 1 To Len(input)
Char = Mid(input, i, 1)
If Char = LCase(Char) Then
Char = UCase(Char)
ElseIf Char = UCase(Char) Then
Char = LCase(Char)
End If
Str = Str & Char
Next
talker = Str
End Function
This will change "This is a tëst - Ë" into "tHIS IS A TËST - ë" (note that ë, í, ô, etc. can also be upper/lowercased, these will be converted correctly also!)
This post was edited on 09-19-2004 at 01:35 AM by CookieRevised.
.-= A 'frrrrrrrituurrr' for Wacky =-. | 
/ 
