Text von Console auslesen

[Sabrina]

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
 

[edel]

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

[KeyKon]

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...

[ts-soft]

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

[Sabrina]

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


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