PureBoard

Verfasst: **28.01.2009 22:18**

Hallo,
ich beschäftige mich seit gestern mit Pure Basic und habe mal eine Frage an euch.
Wie kann ich von einem Consolenprogramm des Text auslesen und in einem anderen Fenster wieder anzeigen.

Danke für eure Hilfe

Beispiel Consolenprogramm

Code: Alles auswählen

  If OpenConsole()
    ConsoleTitle("TEST")
    PrintN("Wie geht es Ihnen ?")
    Input()
  EndIf

Verfasst: **28.01.2009 22:24**

Schau mal in die PB-Hilfe unter Process/RunProgram,
ganz unten findest du ein Beispiel.

Verfasst: **28.01.2009 22:41**

Du musst den Input auch Abfangen in dem Sinne:

Code: Alles auswählen

text$ = Input()

Dann ist der eingegebene Text in der Variable und du kannst ihn beliebig weiterverwenden...

Verfasst: **28.01.2009 23:08**

Hier mal ein simples Beispiel:
Console:

Code: Alles auswählen

OpenConsole()
PrintN("Hier ist die Console")
PrintN("Gib mal was ein: ")
Define input$ = Input()
PrintN(input$)
Input()

Zur Exe compilieren (nicht vergessen Console in den Compileroptionen einstellen)

zum Testen:

Code: Alles auswählen

Define console = RunProgram("console.exe", "", "", #PB_Program_Hide|#PB_Program_Open|#PB_Program_Read|#PB_Program_Write)

If console
  If ProgramRunning(console)
    Debug ReadProgramString(console)
    Debug ReadProgramString(console)
    Define Text$ = InputRequester("", "Gib mal was ein:", "Hallo Console")
    WriteProgramStringN(console, Text$)
    Debug ReadProgramString(console)
    KillProgram(console)
    CloseProgram(console)
  EndIf
EndIf

evtl den kompletten Pfad zur console.exe angeben

Das Beispiel macht zwar nicht viel Sinn, aber sollte den Anfang für
eigene Experimente erleichtern.

Gruß
Thomas

Verfasst: **28.01.2009 23:22**

Danke an euch alle, es hat mir sehr geholfen !
Besonders das von @ts-soft, daher einen dicken Schmatzer für Dich !

Bild

Leider wars das dann auch schon von mir hier, bis demnächst mal !

PureBoard

Text von Console auslesen

Text von Console auslesen