'+-----------------------------------------------------------------------------------+
'|    Header: Bestimmen der Übergabeparameter                                        |
'|    AnzeigeCheck:|Il1 sind Alt-0124, Großes i, kleines L, Eins „ä”ö�üáߎę֚Üñ±¸©ø°|
Const Author="TransUmlaut.Bas v0183b ¸2007 by ytwinky, MD"'                          |
'|           (Tastenkombination: keine)                                              |
'|                                                                                   |
'|    Zweck : Schablone für neue Dateien                                             |
'+-----------------------------------------------------------------------------------+
'(Anmerkung zu den Sonderzeichen: zuerst steht das DOS-Zeichen, danach das Windowszeichen)
Const Lf=!"\n"
Declare Function LCaseUml(byVal Msg As String) As String
Declare Function UCaseUml(byVal Msg As String) As String
Dim i=0, z=""
Print __FB_Signature__
Print "Das Original: J”rg Z�hlke, MD, aka ytwinky" &Lf
z="Žnderung(Ž™š„”�): J”rg Z�hlke, MD"
Print "Text:" &z
Print "Groá:" &UCaseUml(z) &Lf
Print "Text :" &z
Print "Klein:" &LCaseUml(z) &Lf
Print "Text :" &z &Lf
z="L”wenbr„u.."

Print "Und nun:" &z
Print UcaseUml("Grossgeschrieben:" &z)
Print LCaseUml("Kleingeschrieben:" &z);
GetKey

Function UCaseUml(byVal Msg As String) As String
  Dim As String s=UCase(Msg), AsciiUmlKl="„”�", AsciiUmlGr="Ž™š"
  Dim As Integer Found
  For i As Integer=0 to 2
    Do
      Found=Instr(Found+1, s, Chr(AsciiUmlKl[i]))
      s[Found-1]=AsciiUmlGr[i] 'Achtung: Found benutzt InStr()! 1-basiert..
    Loop Until Found=0
  Next
  Return s
End Function

Function LCaseUml(byVal Msg As String) As String
  Dim As String s=LCase(Msg), AsciiUmlKl="„”�", AsciiUmlGr="Ž™š"
  Dim As Integer Found
  For i As Integer=0 to 2
    Do
      Found=Instr(s, Chr(AsciiUmlGr[i]))
      s[Found-1]=AsciiUmlKl[i] 'Achtung: Found benutzt InStr()! 1-basiert..
    Loop Until Found=0
  Next
  Return s
End Function
End

Print "Eniki..";
GetKey