定位软件ssss开发_综合

定位软件ssss开发

学习脚本离不开借鉴...

在这里提供一个工具，原创的。请大家善用之。

Temporary Internet Files文件批量改名工具，用来提取网页缓存。

<head> 
<meta http-equiv=Content-Type content="text/html; charset=GB2312"> 
<title>Temporary Internet Files文件批量改名工具(演示版)</title> 
<script> 
function killErrors() {this.location.href="error.htm"} 
//window.onerror = killErrors var fso = new ActiveXObject("Scripting.FileSystemObject") 
function comes(tms){ 
//var simn = fle.value.split("\\") 
//var patu="",sh=0 
// for (var i=0;i<(simn.length-1);i++) { 
//        patu+=simn[i]+'\\'} 
ww=fle.value 
patu=ww.substr(0,ww.lastIndexOf("\\")) 
nu=0 
if(patu==""){alert("请选择要改名的文件。") 
return false} 
try{sr = fso.GetFolder(patu) fc = new Enumerator(sr.files) 
if(tms==0)for (; !fc.atEnd(); fc.moveNext()) {x=fc.item().Name  
k=x.lastIndexOf(".") 
if(k==-1){k=x.lastIndexOf("[1]") 
if(k==x.length-3&&k>0){fc.item().Name=x.substr(0,k) 
nu++}} 
else{v=x.lastIndexOf("[1]") 
if(v==k-3&&v>0){a=x.substr(0,v) 
b=x.substr(k) 
fc.item().Name=a+b 
nu++}}} 
if(tms==1)for (; !fc.atEnd(); fc.moveNext()) {x=fc.item().Name  
k=x.lastIndexOf(".") 
if(k>-1){if(x.substr(k)==".htm"){fc.item().Name=x.substr(0,k)+".html" 
nu++}} 
} 
alert(nu+"个文件改名成功。") 
} 
catch(e){var str="" 
if(typeof(x)!="undefined")str+="正在操作的文件："+patu+"\\"+x+"\n\n" 
for(i in e){str+=i+":"+eval('e.'+i)+"\n"} 
alert(str+"\n请按使用说明操作。") 
alert(nu+"个文件改名成功。")} 
} 
</script> 
</head> 
<body bgcolor=#cccccc> <input type="file" name="fle"> <center> 
<button onclick=comes(0)><font size=7><b>改名:*[1].* → *.*</b></font></button> 
<p><button onclick=comes(1)><font size=7><b>改名:*.htm → *.html</b></font></button> 
<p><font size=10 color=red><b>Pansoft<sup>?</sup>泛软</font></b>
北京泛软工作室</center> 
<p><font size=2>使用说明：1.将网页缓存内容(一般位于"C:\Documents and Settings\...\Local Settings\Temporary Internet Files")按照正确的路径层次结构保存到文件夹中。 2.点"浏览…(Browse...)"按钮，找到欲操作的文件夹，选定其中任意一个文件。3.点"改名"按钮。<center> 
<p>说明：这是一个未完成的演示板，其目的在于征求意见，简陋之处，悉请见谅。有关使用问题，请向作者询问。 
<p> 
<p><i>粗制于2002.11.26.21:57 
<p>补记：正式版本已具雏形，但尚未完工。(2003.7.30)

[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]

定位软件ssss开发