易语言office文档转换html文件软件

.子程序 Office转HTML, 逻辑型
.参数 strSrcFile, 文本型, , 要转换的文件
.参数 strDestFile, 文本型, , 新保存的文件
.局部变量 strExt, 文本型, , , 扩展名

strExt ＝ 取文本右边 (strSrcFile, 取文本长度 (strSrcFile) － 倒找文本 (strSrcFile, “.”, , 假))
strExt ＝ 到小写 (strExt)
.判断开始 (strExt ＝ “doc”)
返回 (WORD转HTML (strSrcFile, strDestFile))
.判断 (strExt ＝ “xls”)
返回 (Execl转HTML (strSrcFile, strDestFile))
.判断 (strExt ＝ “ppt”)
返回 (PPT转HTML (strSrcFile, strDestFile))
.默认
信息框 (“转换失败:文件格式不支持” ＋ #换行符 ＋ “当前只支持Word/Execl/PowerPoint文件”, #错误图标, “错误”)