方便的右键保存脚本 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

上网时很多资料要保存，Ctrl+C，打开记事本，Ctrl+V，选路径，输入文件名，保存…………你觉得麻烦不？用以下脚本可以在InternetExplorer里加入一个菜单，遇到精彩的文章直接框选，点右键，保存，搞定！

把下面的的代码保存为E:\Script\savetext.html（因为下面要用这个路径，所以不要乱改。要改的话请保证下面的reg和你存放的savetext.htmll路径的一致）


<SCRIPT LANGUAGE = "JavaScript">

var oWindow = window.external.menuArguments;  //获得执行Save Text菜单项的文档的window对象
var oDocument = oWindow.document;
var oSelect = oDocument.selection;
var oSelectRange = oSelect.createRange();
var selectText = oSelectRange.text; //获得所选择的文字.
var tFilename;

if (selectText.length == 0 || !/\S/.test(selectText)) {
    alert("请先选择一段文字!");
}
else {
    //去除文字前面的空字符.
    selectText = selectText.replace(/^(\s+)(\S+)/,"$2");
    //取得文字的第一行.
    tFilename = /\n/.test(selectText) ? selectText.substring(0,selectText.search(/\n/)) : selectText;
    tFilename = tFilename.length > 18 ? tFilename.substring(0,10) + "..." + tFilename.substring(tFilename.length-6,tFilename.length) : tFilename;
    //去除文件名中的换行符、换页符、回车符.
    tFilename = tFilename.replace(/\n|\r|\f/g,"");
    var errorChar=/(\\|\/|:|\*|\?|"|\<|\>|\|)/
    //如果文件名中存在非法字符，则让用户输入文件名.
    while (errorChar.test(tFilename) || tFilename==null) {
        tFilename=prompt("由于所选文字中包含\ / : * ? < >等不能作为文件名的字符,请重新输入要存储的文件名(不需添加扩展名).",tFilename);
    }
    var fso, fl, fname;
    fso = new ActiveXObject("Scripting.FileSystemObject");


    //这里是保存资料的位置，请根据个人情况更改。请保证路径的存在！
    fname="D:\\资料\\" +tFilename+ ".txt";



    if (fso.FileExists(fname)) {
        if (confirm(fname + "已经存在,要替换它吗?")) {
            fl = fso.CreateTextFile(fname,true);
            fl.Write(selectText);
            fl.Close();
            alert(fname+" 保存成功!");
        }
    }
    else {
        fl = fso.CreateTextFile(fname,true);
        fl.Write(selectText);
        fl.Close();
        oWindow.status = "保存成功!";
    }
}
</SCRIPT>

资料默认存放在 D:\资料，可以根据源码提示自定义路径！

保存下列代码为savetext.reg


REGEDIT4


"contexts"=dword:000000f3
@="E:\\script\\savetext.html"

双击这个savetext.reg导入注册表（重装系统后也可以用这个恢复）

重启InternetExplorer，打开一段文字，看看右键～～是不是多了什么！

[ Last edited by electronixtar on 2006-5-24 at 12:23 ]

第1楼　electronixtar	发表于 2006-05-23 19:28
铂金会员　发帖 2,672　积分 7,493
[转+改]方便的右键保存脚本上网时很多资料要保存，Ctrl+C，打开记事本，Ctrl+V，选路径，输入文件名，保存…………你觉得麻烦不？用以下脚本可以在InternetExplorer里加入一个菜单，遇到精彩的文章直接框选，点右键，保存，搞定！把下面的的代码保存为E:\Script\savetext.html（因为下面要用这个路径，所以不要乱改。要改的话请保证下面的reg和你存放的savetext.htmll路径的一致） <SCRIPT LANGUAGE = "JavaScript"> var oWindow = window.external.menuArguments; //获得执行Save Text菜单项的文档的window对象 var oDocument = oWindow.document; var oSelect = oDocument.selection; var oSelectRange = oSelect.createRange(); var selectText = oSelectRange.text; //获得所选择的文字. var tFilename; if (selectText.length == 0 \|\| !/\S/.test(selectText)) { alert("请先选择一段文字!"); } else { //去除文字前面的空字符. selectText = selectText.replace(/^(\s+)(\S+)/,"$2"); //取得文字的第一行. tFilename = /\n/.test(selectText) ? selectText.substring(0,selectText.search(/\n/)) : selectText; tFilename = tFilename.length > 18 ? tFilename.substring(0,10) + "..." + tFilename.substring(tFilename.length-6,tFilename.length) : tFilename; //去除文件名中的换行符、换页符、回车符. tFilename = tFilename.replace(/\n\|\r\|\f/g,""); var errorChar=/(\\\|\/\|:\|\\|\?\|"\|\<\|\>\|\\|)/ //如果文件名中存在非法字符，则让用户输入文件名. while (errorChar.test(tFilename) \|\| tFilename==null) { tFilename=prompt("由于所选文字中包含\ / : ? < >等不能作为文件名的字符,请重新输入要存储的文件名(不需添加扩展名).",tFilename); } var fso, fl, fname; fso = new ActiveXObject("Scripting.FileSystemObject"); //这里是保存资料的位置，请根据个人情况更改。请保证路径的存在！ fname="D:\\资料\\" +tFilename+ ".txt"; if (fso.FileExists(fname)) { if (confirm(fname + "已经存在,要替换它吗?")) { fl = fso.CreateTextFile(fname,true); fl.Write(selectText); fl.Close(); alert(fname+" 保存成功!"); } } else { fl = fso.CreateTextFile(fname,true); fl.Write(selectText); fl.Close(); oWindow.status = "保存成功!"; } } </SCRIPT> 资料默认存放在 D:\资料，可以根据源码提示自定义路径！保存下列代码为savetext.reg REGEDIT4 "contexts"=dword:000000f3 @="E:\\script\\savetext.html" 双击这个savetext.reg导入注册表（重装系统后也可以用这个恢复）重启InternetExplorer，打开一段文字，看看右键～～是不是多了什么！ [ Last edited by electronixtar on 2006-5-24 at 12:23 ]

第2楼　JonePeng	发表于 2006-05-23 20:49
金牌会员　发帖 1,883　积分 4,562　来自广东广州
精品！

第3楼　freeants001	发表于 2006-05-24 09:02
中级用户　发帖 244　积分 330　来自湖北
收藏了先！不错

第4楼　Climbing	发表于 2006-05-24 10:50
铂金会员　发帖 2,753　积分 6,962　来自河北保定
请问楼主：savetext.html是从哪里来的？

第5楼　electronixtar	发表于 2006-05-24 12:33
铂金会员　发帖 2,672　积分 7,493
已经改正！谢谢批评！

第6楼　IceCrack	发表于 2006-07-23 16:49
中级用户　发帖 168　积分 332　来自天涯
看看效果如何

第7楼　fastslz	发表于 2006-07-23 17:27
铂金会员　发帖 2,315　积分 5,493　来自上海
哈哈，效果不错谢谢...electronixtar 最好打包一下，而且“D:\资料”要手动建立建议已下载的资料放在E:\Script目录下面

第8楼　electronixtar	发表于 2006-07-23 19:01
铂金会员　发帖 2,672　积分 7,493
介个……自己改不就得了～～写个bat也行～～

第9楼　NaturalJ0	发表于 2006-10-18 11:22
银牌会员　发帖 533　积分 1,181
不介意我偷走顺便顶一计吧。

第10楼　lxmxn	发表于 2006-10-18 13:39
版主　发帖 4,938　积分 11,386
顶一个．．．．．继续发些好东东啊．．．支持中．．．

第11楼　wydos	发表于 2006-10-20 00:21
中级用户　发帖 117　积分 304
不知能不能弄个迅雷快捷下载。下载时经常询问下载路径，感觉挺麻烦的。

第12楼　electronixtar	发表于 2006-10-20 00:38
铂金会员　发帖 2,672　积分 7,493
楼上的能说清楚点吗？

第13楼　wydos	发表于 2006-10-20 06:28
中级用户　发帖 117　积分 304
Originally posted by electronixtar at 2006-10-20 00:38: 楼上的能说清楚点吗？就是说，使用迅雷下载东西时，迅雷会询问你要保存的路径。我想达到的要求就是把保存的路径的对话框忽略，直接在右键添加保存路径。比如：下mp3时，直接点右键中"迅雷下载－－mp3",保存路径提前预设好，就像savetext功能一样。

第14楼　electronixtar	发表于 2006-10-20 06:59
铂金会员　发帖 2,672　积分 7,493
哦，这个……想了下，web网页没有这个权限。

第15楼　kennyfan	发表于 2006-10-20 08:07
中级用户　发帖 112　积分 259
好啊.看上去方便实用!~