• 7763阅读
  • 1回复

iPad 文本查看 [复制链接]

上一主题 下一主题
离线kimtaikee
 

图酷模式  只看楼主 倒序阅读 楼主  发表于: 2011-06-16
我记得我写这个程序的时候Apple 好像还没出iPad.. 拷贝代码保存为iPad.hta 双击便可运行,切忌只能在win 平台上 。

<html>
<hta:application
windowstate="maximize"


>
<head>
<style type="text/css">
h1{color:blue;font-size:30pt;text-align:center}
body{background:silver}
#fileListBox{background:lightblue}
#output{position:relatvie;left:300;top:80}
#output{background:gray}
.selectBox{width:120px}


</style>
<title>iPad</title>
<script language="javascript">
var FSO=new ActiveXObject("Scripting.filesystemobject");
var SHELL=new ActiveXObject("Wscript.shell");
var haveSuchFile=false;
function Dir_Trigger(){
    var oFolder=document.getElementById('dir').value;
    var oExt=document.getElementById('ext').value;
    if(oFolder==""||ext==""){
        alert("Complete the info !" );
        return false;
    }
    if(!FSO.FolderExists(oFolder)){
        alert("No such Folder: \""+oFolder+"\"");
        return false;
    }
    getFileList(oFolder,oExt);
}
function getFileList(oFolder,oExt){
    if(document.getElementById('allFiles').checked){
        //alert("checked!");
        getAllFiles(oFolder);
        return true;
    }
    try{
    var count=0;
    var oExt=oExt.toLowerCase();
    var files=new Enumerator(FSO.GetFolder(oFolder).files);
    var strHTML="<select id='fileListBox' multiple size=35 onchange='openTXTFile(this)'>";
    while(!files.atEnd()){
        var file=files.item();
        var ext=FSO.GetExtensionName(file).toLowerCase();
        if(ext==oExt){
        haveSuchFile=true;
        strHTML+="<option>"+file+"</option>";
        }

    files.moveNext();
    }

    }catch(e){}
    if(!haveSuchFile){
       alert("No this kind of file in "+"\""+oFolder+"\"");
       return false;
   }
   document.getElementById('span1').innerHTML=strHTML;


}
function getAllFiles(oFolder){
    var files=new Enumerator(FSO.GetFolder(oFolder).files);
    var strHTML="<select id='fileListBox' multiple size=35 onchange='openTXTFile(this)'>";
    while(!files.atEnd()){
        var file=files.item();
    strHTML+="<option>"+file+"</option>";

    files.moveNext();
    }
    document.getElementById('span1').innerHTML=strHTML;
}
function openTXTFile(oListForm){
    //alert("entering openTEXTFile");
    //document.getElementById('toolbox').disabled=false;
    var fileName=oListForm.options[oListForm.selectedIndex].text;
    var selectedFile=fileName;
    //alert(selectedFile);
    var strHTML="<textarea id='output' cols=100 rows=35 onselect='this.focus()'>";
    var openFile=FSO.OpenTextFile(fileName,1);
    while(!openFile.AtEndOfStream){
        strHTML+=openFile.ReadLine()+"\n";
    }
    strHTML+="</textarea>";
    document.getElementById('span2').innerHTML=strHTML;
    //alert("End of openTEXTFile");
}
function disableTEXT(){
    if(document.getElementById('allFiles').checked){
    document.getElementById('ext').style.visibility="hidden";
    }else{
            document.getElementById('ext').style.visibility="visible";
    }

}
</script>
</head>
<body>
<pre>
<fieldset>
<legend class="font">iBoard</legend>
<center>Directory: <input  type="text" value="" id="dir" size=30> Extension: <input type="text" size="4" value="" id="ext"><input type="checkbox" id="allFiles" onclick="disableTEXT()">ALL</input>  <input type="button" value="Start" id="btn" onclick="Dir_Trigger()"> </center>
</fieldset>
</pre>
<pre>
<span id="span1"></span><span id="span2"></span>
</pre>
</body>


</html>

离线longteng9
只看该作者 1楼 发表于: 2011-07-26
学习了,很强大哦     
快速回复
限100 字节
 
上一个 下一个