Monday, November 08, 2010 at 12:03 AM.
system.verbs.builtins.html.data.iso8859.work.loader
local (adrtable = @websites.dw.crossPlatformWork.iso8859work.table);
table.emptytable (adrtable);
local (f = "c:\\frontier 5\\test.txt", s, ch, code);
s = string (file.readwholefile (f));
while sizeof (s) > 0 {
while s [1] == ' ' {
s = string.delete (s, 1, 1)};
ch = s [1];
s = string.delete (s, 1, 1);
while s [1] == ' ' {
s = string.delete (s, 1, 1)};
code = string.nthfield (s, '\r', 1);
msg (code);
adrtable^.[string (number (ch))] = "&" + (code - " ") + ";";
s = string.delete (s, 1, sizeof (code) + 2)};
msg (sizeof (s))
This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.