🚀 go-pugleaf

JR-EWING@DAME.DE (Jens Reimer) benutze seine Tastatur am 05.04.1996 um 08:36:17 Uhr, um
folgenden Text unter dem Betreff "AREXX Problem" zu erzeugen:
> Ich habe mit einem ARexx Programm Probleme.
> Wahrscheinlich bin ich einfach zu dämlich und sehe den Wald vor lauter Bäumen
> nicht...
> Es könnte aber auch sein, daß ich etwas grundsätzlich falsch gemacht habe.
> Vielleicht habt ihr einen Tip!
> 
> /* Importieren von Superbase Dateien für DataBase Professional */
> 
> OPTIONS RESULTS
> 
> device ="CON:0/0/640/200//WAIT/CLOSE/SCREENDATABASE"
> 
> ADDRESS Command
> 'C:Requestfile TITLE="Superbase File" PATTERN="#?.sbf" NOICONS PUBSCREEN DataBase >T:input'
> 
> ADDRESS DATABASE
> Requesttext "Feldseperator (HEX)"
> feldsep = result
> Requesttext "Recordseperator (HEX)"
> recsep = result
> TRACE ?R
> /* Bis hierhin ist noch alles ok */
> /* In T:input steht die Datei */
> IF ~Open(sbfile,T:input,R) THEN DO
> /*              ^^^^^^^ */
> /* Hier nicht mehr, lt trace wird ausdruck nicht ausgewertet !!!*/
> /* WIE bekomme ich das hin ???*/
> 
> IF ~Open(out, device, W) THEN DO
> 
> DO WHILE ~EOF(sbfile)
>    DO while (data = READCH(sbfile,1)) == recsep
>       /* Hier zwischen kommt noch etwas */
>       WRITECH(out,data)
>    END
> END
> 
> Close(out)
> END
> 
> Close(sbfile)
> END
> 
> TRACE o
> 
> EXIT
> 
Danke für die Tips!!!
Hat sich erledigt
Es läuft jetzt


Und Tschüss,

Jens Reimer
--
MicroDot 1.11Beta16
EMAIL: jr-ewing@dame.de
     : jens.reimer@hamburg.netsurf.de