易语言网页另存为html,易语言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文件”, #错误图标, “错误”)