TXT转换为HTML文件的宏代码 macro1.mac
(不包括引号内的注释文字)
"设定文件模式"
InsertMode
ColumnModeOff
HexOff
UnixReOff
"去掉文章各行尾部空格"
Top
TrimTrailingSpaces
"去掉文章顶部空格"
Loop 10
Top
Key END
IfColNum 1
Key DOWN ARROW
Key BACKSPACE
Else
"标题行超过字符数，改用通用语句"
IfColNumGt 48
Top
"
"
Top
Template 4
EndIf
ExitLoop
EndIf
EndLoop
"删去标题行前面空格"
Top
Key HOME
DeleteToStartofLine
"将标题行复制一行"
SelectLine
Copy
Key LEFT ARROW
"
"
Key HOME
Paste
Key BACKSPACE
"标题行有的较长，故标识符单列一行"
Top
"
"
"加HTML格式文首标识符"
Top
Template 0
"加HTML格式标题"
Key DOWN ARROW
Key END
Template 1
"加文章题目"
Key DOWN ARROW
Key HOME
Key BACKSPACE
Key END
Template 2
"加HTML文末标识符"
Bottom
Key END
Template 3
Top
Save
Top
CloseFile
模块设置内容（0-4号模块）
html0:
html1: