/* ASCII in www-Tabelle */
OPTIONS RESULTS
ARG comm flag
Application_AboutMUI = 0x8042d21d
Application_OpenConfigWindow = 0x804299ba
z = 0 ; xx = 0
NL = '0A'x
ADDRESS MUIREXX
SELECT
WHEN comm = 'QUIT' THEN CALL quit
WHEN comm = ' OK ' THEN CALL Haupt
WHEN comm = 'HAUPT' THEN CALL Haupt
WHEN comm = 'PREFS' THEN CALL Prefs
WHEN comm = 'ABBR' THEN CALL Abbr
WHEN comm = 'SAVE' THEN CALL save
WHEN comm = 'BENUTZ' THEN CALL Benutz
WHEN comm = 'UEBER' THEN CALL ueber
WHEN comm = 'ZUM' THEN CALL zum
OTHERWISE CALL main
END
main:
ADDRESS AREXX
Open('Einst','ENV:HTML_TAB.prefs','R')
Progpfad = ReadLn('Einst')
frompfad = ReadLn('Einst')
topfad = ReadLn('Einst')
Um = ReadLn('Einst')
Close('Einst')
ADDRESS TEXT
WINDOW ID PR TITLE '"Textumwandler"' COMMAND 'QUIT' PORT TEXT
MENU ID 101 LABEL '"Über"'
ITEM ID 001 LABEL '"HTML_TAB"' COMMAND '"'||progpfad|| 'html_tab Ueber"'
item COMMAND '"method 'Application_AboutMUI' 0"' PORT TEXT LABEL '" MUI "'
ENDMENU
MENU ID 201 LABEL '" Voreinstellungen "'
ITEM ID 003 LABEL '" HTML_TAB "' COMMAND '"'||progpfad|| 'html_tab Prefs"'
ITEM COMMAND '"method 'Application_OpenConfigWindow'"' PORT TEXT LABEL '" MUI "'
ENDMENU
GROUP
SPACE
group horiz frame
Label Center ' Aus Turbocalc importieren ? \n (Nur fuer Registrierte User aktiv)'
check ID CHK
endgroup
GROUP FRAME
Label CENTER ' Quell-Datei '
popasl ID FRO CONTENT frompfad
Label CENTER ' Zieldatei '
label center ' (Achtung: vergiß nicht einen Dateinamen anzugeben:-))) )'
popasl ID TOP CONTENT topfad
ENDGROUP
GROUP FRAME Horiz
string ID AN CONTENT ' 0 '
ENDGROUP
GROUP FRAME Horiz
BUTTON ID BUT2 COMMAND '"'||progpfad|| 'html_tab HAUPT"' LABEL ' OK '
BUTTON ID BUT COMMAND '"'||progpfad|| 'html_tab QUIT"' LABEL ' QUIT '
ENDGROUP
SPACE
ENDGROUP
ENDWINDOW
EXIT
popasl ID PRO CONTENT progpfad
HAUPT:
ADDRESS TEXT
popasl ID FRO
frompfad = RESULT
popasl ID TOP
Hipfad = RESULT
WINDOW ID BU TITLE '"Arbeite"' PORT TEXT
GROUP
object CLASS '"Busy.mcc"'
ENDGROUP
ENDWINDOW
ADDRESS AREXX
IF Right(Hipfad,4) ~= '.htm' | Right(Hipfad,5) ~= '.html' THEN topfad = Hipfad ||'.htm'
ADDRESS TEXT
popasl ID TOP Content topfad
ADDRESS Arexx
Open('lese',frompfad,'R')
DO UNTIL Eof('lese')
xx=xx+1
Zeile.xx = ReadLn('lese')
END
Close('Lese')
Open('Einst','ENV:HTML_TAB.prefs','R')
DO Test = 1 TO 4
Spalte = ReadLn('Einst')
IF Test = 4 THEN Um = spalte
END
Close('Einst')
Um.8='ä' ; Um.2='ü' ; Um.3 = 'ö' ; um.4 = 'ß' ; um.5 = 'Ä' ; um.6 = 'Ü' ;
um.7='Ö' ; Um.1=value('um')
ht.8 = 'ä' ; ht.3 = 'ö' ; ht.2 = 'ü' ;
ht.4 = 'ß' ; ht.5 = 'Ä' ; ht.6 = 'Ü' ; ht.7 = 'Ö'
ht.1 = ' | '
DO x = 1 TO xx
ADDRESS TEXT
String ID AN CONTENT ' bearbeitet ' || x || ' von ' || xx
ADDRESS Arexx
DO i = 1 TO 8
DO z = 1 TO 100
Platz = Pos(um.i,zeile.x)
IF platz = 0 THEN LEAVE
links = Left(zeile.x,platz-1) || ht.i
Rechts= SubStr(zeile.x,platz+1)
Zeile.x = links || Rechts
END
END
zeile.x = ' | | '||zeile.x||' |
'
END
ADDRESS Text
String ID AN CONTENT ' Umgewandelt, schreibe nun in die Datei '
WINDOW ID BU CLOSE PORT TEXT
ADDRESS Arexx
Open('Schreibe',topfad,'W')
WriteLn('Schreibe','
')
WriteLn('Schreibe','')
DO y = 1 TO xx
WriteLn('Schreibe',zeile.y)
END
WriteLn('Schreibe','
')
WriteLn('Schreibe','')
WriteLn('Schreibe','')
Close('Schreibe')
ADDRESS rexx
CALL quit
EXIT
QUIT:
ADDRESS TEXT
STRING ID AN Content 'Ich wünsch dir noch einen schönen Tag'
DO i = 1 TO 1000 ; END
quit
EXIT
Prefs:
ADDRESS Arexx
Open('Einst','ENV:HTML_TAB.prefs','R')
Progpfad = ReadLn('Einst')
frompfad = ReadLn('Einst')
topfad = ReadLn('Einst')
um.1 = ReadLn('Einst')
Close('Einst')
ADDRESS TEXT
WINDOW ID PRE TITLE '"Voreinstellungen"' PORT TEXT
GROUP ID REG Register Labels 'Umwandeln,Quelle,Ziel'
GROUP FRAME HORIZ
LABEL '"cb Zeichen, daß umgewandelt werden soll "'
string ID UMW CONTENT um.1
ENDGROUP
GROUP FRAME Horiz
LABEL '"b Quelldatei"'
SPACE
popasl ID f1 CONTENT frompfad
ENDGROUP
GROUP FRAME HORIZ
LABEL '"b Zielpfad"'
SPACE
popasl ID T1 CONTENT topfad
ENDGROUP
ENDGROUP
GROUP HORIZ
BUTTON ID BUT3 COMMAND '"'||progpfad|| 'html_tab BENUTZ "' LABEL ' Benutzen '
BUTTON ID BUT4 COMMAND '"'||progpfad|| 'html_tab SAVE "' LABEL ' Speichern '
BUTTON ID BUT5 COMMAND '"'||progpfad|| 'html_tab ABBR "' LABEL ' Abbrechen '
ENDGROUP
SPACE
ENDWINDOW
EXIT
Save:
ADDRESS Arexx
Open('Einst','ENV:HTML_TAB.prefs','R')
Progpfad = ReadLn('Einst')
frompfad = ReadLn('Einst')
topfad = ReadLn('Einst')
um.1 = ReadLn('Einst')
Close('Einst')
ADDRESS command 'delete ENV:HTML_TAB.prefs ENVARC:HTML_TAB.prefs >NIL:'
ADDRESS Text
popasl ID F1
frompfad = RESULT
popasl ID T1
topfad = RESULT
string ID UMW
um.1 = RESULT
popasl ID FRO CONTENT frompfad
popasl ID TOP CONTENT topfad
ADDRESS AREXX
Open('Einst','ENV:HTML_TAB.prefs','W')
WriteLn('Einst',progpfad)
WriteLn('Einst',frompfad)
WriteLn('Einst',topfad)
WriteLn('Einst',um.1)
Close('Einst')
Open('Einst','ENVARC:HTML_TAB.prefs','W')
WriteLn('Einst',Progpfad)
WriteLn('Einst',frompfad)
WriteLn('Einst',topfad)
WriteLn('Einst',um.1)
Close('Einst')
ADDRESS Text
WINDOW ID PRE CLOSE PORT TEXT
EXIT
Benutz:
ADDRESS Arexx
Open('Einst','ENV:HTML_TAB.prefs','R')
Progpfad = ReadLn('Einst')
frompfad = ReadLn('Einst')
topfad = ReadLn('Einst')
um.1 = ReadLn('Einst')
Close('Einst')
ADDRESS command 'delete env:html_tab.prefs >NIL:'
ADDRESS TEXT
popasl ID F1
frompfad = RESULT
popasl ID T1
topfad = RESULT
string ID UMW
um.1 = RESULT
popasl ID FRO CONTENT frompfad
popasl ID TOP CONTENT topfad
ADDRESS AREXX
Open('Einst','ENV:HTML_TAB.prefs','W')
WriteLn('Einst',Progpfad)
WriteLn('Einst',frompfad)
WriteLn('Einst',topfad)
WriteLn('Einst',um.1)
Close('Einst')
ADDRESS Text
WINDOW ID PRE CLOSE PORT TEXT
EXIT
Abbr:
ADDRESS TEXT
WINDOW ID PRE CLOSE PORT TEXT
EXIT
ueber:
ADDRESS arexx
Open('Einst','ENV:HTML_TAB.prefs','R')
Progpfad = ReadLn('Einst')
Close('Einst')
ADDRESS Text
WINDOW ID TES TITLE '" ueber HTML_Tab "' PORT TEXT
GROUP FRAME
LABEL CENTER '" bu HTML_Tab VERSION 1.0 \n n HTML_Tab wurde geschrieben von i Ralph Nawratil \n E-Mail: Ralph@nawratil.mayn.de"'
GROUP
SPACE
BUTTON COMMAND '"'||progpfad|| 'html_tab Zum"' LABEL ' OK '
SPACE
ENDGROUP
ENDWINDOW
comm = 'zumachen'
EXIT
zum:
ADDRESS TEXT
WINDOW ID TES CLOSE PORT TEXT
EXIT