<< Script to create a template for an HTML document.
Copyright 2000 Robelle Solutions Technology Inc.
Version 1.02 April 27, 2000
>>
name QSLUtilBasicHTML group "&Html" command "Basic &HTML";
property QSLScriptVersion = "Basic HTML 1.01 - Copyright 2000 Robelle Solutions Technology Inc." ;
sub gettitle
result = dialog("Enter the document title", 1, "");
if result.button = 1 then
return result.enteredtext;
else
return "";
endif
endsub
sub createStart(file, name)
lines = {};
lines = lines + ('');
lines = lines + ('');
lines = lines + ('' + name + '');
lines = lines + ('');
lines = lines + ('');
lines = lines + ('');
lines = lines + ('' + name + '
');
lines = lines + ('');
lines = lines + ('');
file.insert(lines);
endsub
sub createEnd(file, main)
lines = {};
lines = lines + "";
lines = lines + "";
lines = lines + "";
lines = lines + "";
file.insert(lines);
endsub
sub positionCaret(file)
file.select(startline: file.linecount - 3, startcolumn: 1);
endsub
title = gettitle();
if title <> "" then
file = newfile();
createStart(file, title);
createEnd(file);
positionCaret(file);
endif