用Javascript与WScript实现PPT->HTM在线转换，压缩并上传

关注

原创最新推荐文章于 2026-08-30 16:41:35 发布 1.8k 阅读 AI 写同款· GEO 优化 ›

FreeMASTER ActiveX接口实战：嵌入式系统自动化测试与调试在嵌入式系统开发中，自动化测试与调试是提升效率、保障可靠性的关键技术。其核心原理在于通过脚本化工具实现与目标硬件的在线交互，从而将重复性的人工操作转化为可编程的自动化流程。这项技术的价值在于能够显著缩短开发周期，提高测试覆盖率和数据一致性，尤其在电机控制、电源管理等实时性要求高的领域至关重要。FreeMASTER ActiveX接口正是实现这一目标的有力工具，它将底层的硬件访问封装为高级函数调用，支持通过VBScript、Python等脚本语言直接读写内存、控制数据记录器。应用场景包括参数自动扫描、闭环性能阅读详情

<%@ page language="java" contentType="text/html;charset=GBK"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
    <base href="http://localhost:8080/web1/">

    <title>My JSP 'MyJsp.jsp' starting page</title>

    <meta http-equiv="pragma" content="no-cache">
    <meta http-equiv="cache-control" content="no-cache">
    <meta http-equiv="expires" content="0">
    <meta http-equiv="keywords" content="keyword1,keyword2,keyword3">
    <meta http-equiv="description" content="This is my page">

<SCRIPT LANGUAGE="JavaScript">
<!--

var target_htm_name = "test";

var target_htm_folder = "c://temp//tchaid//uptmp//" + target_htm_name;
var target_htm_file = target_htm_folder + "//" + target_htm_name + ".htm";
var target_rar_file = target_htm_folder + "//" + target_htm_name + ".rar";

function check_folder()
{
var fso = new ActiveXObject("Scripting.FileSystemObject");
if(!fso.FolderExists("c://temp"))
fso.CreateFolder("c://temp");

if(!fso.FolderExists("c://temp//tchaid"))
fso.CreateFolder("c://temp//tchaid");

if(!fso.FolderExists("c://temp//tchaid//uptmp"))
fso.CreateFolder("c://temp//tchaid//uptmp");

if(!fso.FolderExists(target_htm_folder))
fso.CreateFolder(target_htm_folder);
}

function ConvertPPT2MHT(file)
{
var PPT = new ActiveXObject("PowerPoint.Application");
var Pres = PPT.Presentations.Open(file, false, false, false);
Pres.SaveAs(target_htm_file, 12, false);
Pres.Close();
}

function Compress()
{
var winRar=new ActiveXObject("WScript.Shell");
var tmp = winRar.CurrentDirectory;
winRar.CurrentDirectory = target_htm_folder;
var cmd="winrar a "+ target_rar_file + " . -r" ;
winRar.run(cmd,1,true);
winRar.CurrentDirectory = tmp;

var fso = new ActiveXObject("Scripting.FileSystemObject");
fso.DeleteFile(target_htm_file,true);

var t = target_htm_folder + "//" + target_htm_name + ".files";
fso.DeleteFolder (t,true);

winRar.SendKeys("^a");
winRar.SendKeys(target_rar_file);
winRar = null;
}

function do_upload()
  {
var form = document.forms["myform"];
if(form.sFile.value == target_rar_file)
  form.submit();
else
  setTimeout('do_upload()',10); //由于消息机制，winRar.SendKeys的按键消息此时还没有生效，这里用
  }                                                       //定时器来给系统一个机会来在提交之前把按键消息处理完

function on_upload(form)
{
var form = document.forms["myform"];

if(form.sFile.value.length == 0)
{
   alert("你没有选择任何文件，请选择要上传的PPT或DOC文件!");
   return false ;
}

var type = 0 ;
if(/ppt$/i.test(form.sFile.value))
   type = 1 ;       //PPT文件
else if(/doc$/i.test(form.sFile.value))
   type = 2 ;       //DOC文件

if(type == 0)
{
   alert("请选择PPT文件或DOC文件上传!");
   return false ;
}

form.sFile.focus();
check_folder();
ConvertPPT2MHT(form.sFile.value);
Compress();

do_upload();
}

//-->
</SCRIPT>
</head>

<body>

    Select a PPT file
<form name="myform" action="upload_handler.jsp" method="post" enctype="multipart/form-data">
  <input type="file" name="sFile" id="sFile" />
  <input type="button" name="Button" value="upload" onclick="on_upload()"/>
  <input type="submit" name="Button" value="submit"/>
</form>

</body>
</html>