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

易语言 2020-08-19 17:06:26

易语言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文件”, #错误图标, “错误”)