Makro til WordPerfect 6.1,
som transformerer databaseposter fra DNLB's billeddatabase til tabelrækker i HTML

Application (A1; "WordPerfect"; Default; "DK")
Font ("Courier New Regular"; FamilyCourier!; FontMatchNormal!; 90; WidthUnknown!;
DRSFile!; TrueType!; FontMatchASCII!)
FontSize (9.96p)
SearchString ("sysno          ")
ReplaceString ("<A
HREF=""http://cosmos.dnlb.dk:4500/ALEPH/DAN/DGD/DGD/DGD.ALT/FULL/")
ReplaceForward (Extended!)
PosDocTop ()
SearchString ("URL            ")
ReplaceString ("?""><IMG BORDER=0 ALIGN=LEFT SRC=""")
ReplaceForward (Extended!)
PosDocTop ()
SearchString ("?")
ReplaceString ("?")
ReplaceForward (Extended!)
PosDocTop ()
SearchString (".JPG")
ReplaceString (".jpg""></A>")
ReplaceForward (Extended!)
PosDocTop ()
SearchString ("hefte/tavlenr  ")
ReplaceString ("")
ReplaceForward (Extended!)
PosDocTop ()
SearchString ("oedernavn      ")
ReplaceString ("<P>")
ReplaceForward (Extended!)
PosDocTop ()
SearchString ("langenavn      ")
ReplaceString ("<P>")
ReplaceForward (Extended!)
PosDocTop ()
SearchString ("<A HREF")
ReplaceString ("</TD></TR><TR
VALIGN=TOP><TD><A HREF")
ReplaceForward (Extended!)
PosDocTop ()
SearchString ("</TD></TR>")
SearchNext (Extended!)
ReplaceString ("<TABLE BORDER=0>")
ReplaceCurrent ()
MatchSelection ()
SearchNext (Extended!)
PosDocTop ()
SearchString ("/www/")
ReplaceString ("/thn/")
ReplaceForward (Extended!)
PosDocBottom ()
PosCharPrevious ()
Type ("</TD>")
Type ("</TR>")
HardReturn ()
Type ("</TABLE>")