易语言CHM电子书编译

liu_svip

于 2024-11-21 13:38:07 发布

阅读量357

点赞数 3

文章标签：生活

本文链接：https://blog.csdn.net/liu_svip/article/details/143942711

版权

.版本 2

.图片 hha, , hha.dll
.图片 hhc, , hhc.exe

.版本 2

.常量 hhp模板, "<文本长度: 320>"
.常量 htm模板, "<文本长度: 189>"
.常量 hhc头, "<文本长度: 122>"
.常量 hhc尾, "<文本长度: 21>"
.常量 hhc模板, "<文本长度: 149>"
.常量 hhk头, "<文本长度: 31>"
.常量 hhk尾, "<文本长度: 19>"
.常量 hhk模板, "<文本长度: 108>"

.版本 2
.支持库 WebBrowser2
.支持库 iext

.子程序 _保存工程_被选择, , , 保存工程
.局部变量临时变量, 文本型
.局部变量默认首页, 文本型
.局部变量计次, 整数型
.局部变量主题文件, 文本型
.局部变量临时变量2, 文本型
.局部变量层次, 整数型
.局部变量计次2, 整数型

' =============================保存当前htm文件========================================
互联网浏览器1.执行命令 (3, , , )

' =============================写出hhp文件========================================
临时变量＝ #hhp模板
默认首页＝树型框1.取项目文本 (0)

临时变量＝子文本替换 (临时变量, “■”, 工程路径＋默认首页＋ “.htm”, , , 真)
临时变量＝子文本替换 (临时变量, “●”, 工程名＋ “.hhc”, , , 真)
临时变量＝子文本替换 (临时变量, “▲”, 工程名＋ “.hhk”, , , 真)
临时变量＝子文本替换 (临时变量, “◆”, _启动窗口.编辑框1.内容, , , 真)

.计次循环首 (树型框1.取项目数 (), 计次)
主题文件＝主题文件＋树型框1.取项目文本 (计次－ 1) ＋ “.htm” ＋ #换行符
.计次循环尾 ()
临时变量＝子文本替换 (临时变量, “★”, 主题文件, , , 真)

写到文件 (工程路径＋工程名＋ “.hhp”, 到字节集 (临时变量))

' =============================写出hhc文件========================================
编辑框_容器.内容＝ “”
编辑框_容器.内容＝ #hhc头＋ #hhc尾
.计次循环首 (树型框1.取项目数 (), 计次)
临时变量＝ #hhc模板
临时变量＝子文本替换 (临时变量, “●”, 树型框1.取项目文本 (计次－ 1), , , 真)
临时变量＝子文本替换 (临时变量, “■”, 工程路径＋树型框1.取项目文本 (计次－ 1) ＋ “.htm”, , , 真)
.判断开始 (树型框1.是否有子项目 (计次－ 1) ＝真)
临时变量＝子文本替换 (临时变量, “▲”, “2”, , , 真)
.默认
临时变量＝子文本替换 (临时变量, “▲”, “1”, , , 真)
.判断结束

层次＝树型框1.取缩进层次 (计次－ 1)
.判断开始 (层次＝ 1)
编辑框_容器.内容＝取文本左边 (编辑框_容器.内容, 取文本长度 (编辑框_容器.内容) －取文本长度 (#hhc尾))
编辑框_容器.加入文本 (临时变量＋ #hhc尾)

.判断 (层次＝ 2)
编辑框_容器.内容＝取文本左边 (编辑框_容器.内容, 取文本长度 (编辑框_容器.内容) －取文本长度 (#hhc尾))
编辑框_容器.加入文本 (“<UL>” ＋临时变量＋ “</UL>” ＋ #hhc尾)

.判断 (层次 ≥ 3)
临时变量2 ＝ “</UL></body></html>

.版本 2
.支持库 vclbase
.支持库 shell

.子程序 _编译工程_被选择, , , 编译

.如果真 (位图按钮1.禁止＝真)
返回 ()
.如果真结束

_保存工程_被选择 ()

写到文件 (工程路径＋ “\hha.dll”, #hha)
写到文件 (工程路径＋ “\hhc.exe”, #hhc)

执行 (4, 工程路径＋ “\hhc.exe”, 工程名＋ “.hhp”, 工程路径, #隐藏窗口)
载入 (导入提示窗口, , 假)
导入提示窗口.标签1.标题＝ “正在编译，请稍后……”
时钟1.时钟周期＝ 500