PureBoard

@Stefan2: Du bist immer noch nicht auf darauf eingegangen, ob Du bei PureBasic in "Compiler-Optionen" unter "Executeable-Format" auf "Console" gestellt hast, statt auf "Windows".

Stefan2 hat geschrieben:Aber warum sollte es am Zeichensatz liegen?
Bei VBScript und Pascal war das ja auch kein Problem.
Und ich bekomme ja gar nichts aus der Pipe übermittelt....

PureBasic ist recht maschinennah. Vereinfacht gesagt: Du hast sehr viel Kontrolle darüber, was Dein Programm genau macht und kannst Programme schreiben die sehr schnell und klein sind, hast aber oft mehr Schreibarbeit. Im Vergleich hast Du z.B. bei VisualBasic weniger Schreibarbeit, dafür aber weniger Kontrolle und weißt aber oft überhaupt nicht was Dein Programm wirklich macht, weil alles automatisch funktioniert, wie zum Beispiel fröhliches hin- und herkonvertieren von einem zum anderen Stringformat. VisualBasic (und vermutlich auch VBScript und Pascal) nutzt heimlich still und leise im Hintergrund CharToOem_() und OemToChar_(), während man das bei PureBasic manuell machen muss, dafür aber sicherstellen kann, dass nicht unnötig zigfach rumkonvertiert wird. Ist alles nicht auf- oder abwertend gemeint. Jede Sprache hat ihre Stärken und Schwächen!

Warum es (evetuell!) zu Problemen wegen dem OEM-Zeichensatz bei Pipes kommen kann, ist dass der OEM-Zeichensatz mehrdeutig ist. Der Zeilenumbruch im Windowsformat ist Chr(10) + Chr(13). In Ascii und Unicode ist 13 immer ein "Carriage Return" (Wagenrücklauf) und 10 ist immer ein "Linefeed" (Zeilenvorschub). Vereinfacht: "Cursor zum Anfang der Zeile und eins nach unten" (das stammt noch von der Schreibmaschine bzw. vom Fernschreiber ). In OEM (hier nochmal der Link zur Zeichentabelle) kann es entweder das gleiche bedeuten, also 10 für "Linefeed" und 13 für "Carriage Return" oder aber auch im grafischen Modus 10 für "◙" und 13 für "♪".

Versuche mal folgendes zur Veranschaulichung:

1. Notepad starten
2. Alt drücken und halten
3. 13 auf dem Nummernblock tippen
4. Alt loslassen (ein "♪" erscheint)
5. nochmal Alt drücken und halten
6. 013 auf dem Nummernblock tippen
7. Alt loslassen (ein Zeilenumbruch wird eingefügt)

Das sind Überbleibsel von MS-DOS und "vor XP" Windows. Ohne Null vor der 13 wird die Nummer als OEM-Zeichen interpretiert und mit Null davor als Ascii. Die Null hat nix mit dem Ascii-Code an sich zu tun! Die einleitende Null gilt nur für die Tastatur-Eingabe und wurde eingeführt, damit damals die MS-DOS-Nasen auch unter Windows weiter ihre OEM-Codes tippen konnten und nix neues lernen müssen.

Aber zu Deinem Code: Warum hat der mit Input() nicht funktioniert? Es ist gut möglich, dass es am OEM-Zeichensatz liegt.
Bedenke mal wie Input funktioniert: Es unterbricht die Programm-Ausführung, wartet auf eine Eingabe von einer Zeichenkette gefolgt von einem RETURN! Na? Klingelts? Return? Carriage Return? Ascii-Zeichen Nr. 13? Bzw. das mehrdeutige OEM-Zeichen 13: "Carriage Return" oder "♪".

Wann wie wo das genau wie interpretiert wird kann ich Dir leider nicht sagen, da ich zu selten mit Pipes arbeite. Wenn etwas nicht funktioniert, dann schaue ich halt einfach mal ob's vielleicht am Zeichensatz liegt, und das tut es auch erstaunlich oft, aber oft auch leider dann doch nicht...

Wollte Dir darum nur ein bisschen Hintergrundwissen vermitteln, damit Du selber Deinen Code besser untersuchen kannst. Danilo hat Dir ja inzwischen schon eine konkrete Lösung gepostet!

Tipp: Schau dir mit "ShowMemoryViewer()" gefolgt von "CallDebugger" mal an was Du da genau mit ReadConsoleData() empfängst! Wegen dem OEM-Zeichensatz werden z.B. die Umlaute trotzdem noch Probleme machen!

Wenn ich's richtig mitbekommen habe nutzt Du die Demo von PureBasic? Dann läuft mein ASCII-OEM-Wandlercode leider nicht... (nutzt WinAPI). Also folgend mal eine Konvertierungstabelle inkl. Erstellungscode. Oh mann! Spiele ich hier groß den Erklärbär und wundere mich dann gerade warum zunächst nach dem kompilieren so eine seltsame und definitiv falsche Konvetierungstabelle rauskam... Hatte ich jetzt auch erst vergessen den Haken bei "Unicode-Executeable" rauszunehmen...

@Danilo : Danke, "Procedure vor dem Hauptcode, oder zumindest Declare verwenden" , damit funktioniert das.

@Regenduft: ich habe als Console subsystem kompiliert.

Und mit dem Zeichensatz hatte es nichts zu tun, ich wusste nur nicht wie man die Daten aus der Pipe einliest.
Aber trotzdem vielen Dank für deine ausführliche Erklärung! Das wird mir im nächsten Schritt bei der Anpassung an verschiedene Zeichencodes helfen.

@ "ShowMemoryViewer()" gefolgt von "CallDebugger"
Ohh , da kommt ja noch einiges zum Vorschein. Dankeschön.

Den Rest deines Postings verarbeite ich später noch, da brauch' ich ein bisschen Zeit.


- - -

Nachdem ich jetzt noch gemerkt habe, dass PeekS() mir den kompletten Inhalt der Pipe am Stück übermittelt,
und nicht Zeilenweise, wie ich zuerst vermutet hatte, konnte ich mittels eines split( at #CRLF$ ) meine Funktion für jede Zeile einzeln aufrufen.


Danke für eure tolle Hilfe! Jetzt bin ich schonmal ein Stück weiter. (und finde es Klasse, wie klein die Exe's sind )

Stefan2 hat geschrieben:

Code: Alles auswählen

For Occu = 1 To CountString(input$, #CRLF$) 
        funcDoIt( StringField( input$, Occu, #CRLF$ ) )
Next

Pass nur auf, dass so CountString() für jeden Durchgang wieder aufgerufen wird,
obwohl es nur einmal nötig ist. Bei grossen Strings wird das ziemlich langsam,
da es jedes mal den ganzen String durchsucht.