ÄÜÖ in der Console?

[IcedCoffee]

Moin

ich habe heute nacht mal wider langeweile gehabt und die console geschrieben

Code: Alles auswählen

Procedure help()
  PrintN("--------------Help-------------")
  PrintN("Der Befehle Help zeigt eine Liste aller Befehle an.")
  PrintN("Mit Help [Befehl] werden vll weitere Informationen über den Befehl angezeigt.")
  PrintN("-------------------------------")
  PrintN("Befehle:")
  PrintN("Clear   - Löscht den gesamten Inhalt der Consolen")
  PrintN("Echo    - Zeigt einen Text an")
  PrintN("Exit    - Beendet das Programm")
  PrintN("Help    - Zeigt eine Liste aller Befehle")
  PrintN("Test    - Zeigt euch was ich meine mit AeUe etc")
EndProcedure
Procedure echo(echo.s)
  echoTrim.l = 1
  echoFindTrim.b = 0
  Repeat
    If FindString(echo, " ", echoTrim) = echoTrim
      echoTrim = echoTrim+1
    Else
      echoTrim = echoTrim-1
      echoFindTrim = 1
    EndIf
  Until echoFindTrim = 1
  echo = PeekS(@echo+echoTrim)
  If echo = ""
    PrintN("Bitte geben sie als Parameter den text an der angezeigt werden soll.")
    PrintN("Syntax:")
    PrintN("  echo [Text]")
  Else
    PrintN(echo)
  EndIf
EndProcedure
Procedure AeUeETC()
  Print("ÄÜÖß@?[{}]")
EndProcedure

  OpenConsole()
  ConsoleTitle("MEINE ERSTE CONSOLE v.0.02b")
  PrintN("||||| MEINE ERSTE CONSOLE |||||")
  PrintN("-------------------------------")
  PrintN("Version: 0.02b")
  PrintN("Copyright by IcedCoffee")
  PrintN("-------------------------------")
  PrintN("")
  
  Input.s
  InputTrim.l
  InputFindTrim.b
  InputLength.l
  ProgramEnde.l
  ProgramLength.l
  Program.s
  Parameter.s
  
  Sprungmarke01:
  Print("->")
  Input = ""
  Input = Input()
  Input = Input+" "
  InputTrim = 1
  InputFindTrim = 0
  InputLength = Len(Input)
  Repeat
    If FindString(Input, " ", InputTrim) = InputTrim
      InputTrim = InputTrim+1
    Else
      InputTrim = InputTrim-1
      InputFindTrim = 1
    EndIf
  Until InputFindTrim = 1
  ProgramEnde = FindString(Input, " ", InputTrim+1)-1
  ProgramLength = ProgramEnde-InputTrim
  If ProgramLength >= 3
    Program = ""
    Program = PeekS(@Input+InputTrim, ProgramLength)
    Parameter = ""
    Parameter = PeekS(@Input+ProgramEnde, InputLength-ProgarmEnde)
  Else
    PrintN("")
    Goto Sprungmarke01
  EndIf
  Select LCase(Program)
    Case "help" : PrintN("") : help() : PrintN("") : Goto Sprungmarke01:
    Case "test" : PrintN("") : AeUeETC() : PrintN("") : Goto Sprungmarke01:
    Case "echo" : PrintN("") : echo(Parameter) : PrintN("") : Goto Sprungmarke01:
    Case "clear" : PrintN("") : ClearConsole() : Goto Sprungmarke01:
    Case "exit" : CloseConsole() : End
    Default : PrintN("") : PrintN("Unbekannter Befehl") : PrintN("") : Goto Sprungmarke01:
  EndSelect

so ganz tolles ding finde ich
aber ich habe da mal eine frage wegen ÄÜÖetc weil wenn ihr mal in der console den befehl echo ausprobiert werdet ihr sehen es geht alles ganz toll aber bei dem Befehl Test werdet ihr sehen es geht gar nix mehr

so weiss einer wie ich da bei dem befehl test ein schönnes ÜÄÖ schreiben kann?

[stbi]

guck mal in diesen Beitrag

[IcedCoffee]

Thx

die funktion geht supper sogarmit Ñ und ¤ und etc

Procedure PrintN_(text.s)
CharToOem_(text.s,text.s)
PrintN( text.s)
EndProcedure