hta

最新推荐文章于 2021-02-23 13:35:31 发布
最新推荐文章于 2021-02-23 13:35:31 发布
阅读量72 收藏
点赞数
文章标签： ASP.net ASP F# JavaScript XHTML ViewUI
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/iteye_10089/article/details/82068566
版权

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

 

<head>

<TITLE>Photos Player</TITLE>

<meta name="content-type" content="text/html; charset=utf-8">

<HTA:APPLICATION ID="oHTA"

APPLICATIONNAME="myApp"

BORDER="thick"

BORDERSTYLE="normal"

CAPTION="yes"

ContextMenu="yes"

ICON=""

MAXIMIZEBUTTON="yes"

MINIMIZEBUTTON="yes"

scroll="no"

selection="no"

SHOWINTASKBAR="yes"

SINGLEINSTANCE="yes"

SYSMENU="yes"

VERSION="1.0"

WINDOWSTATE="normal"

>

<script language="javascript">

function stringReplaceAll(AFindText,ARepText){ 

var raRegExp = new RegExp(AFindText.replace(/([\(\)\[\]\{\}\^\$\+\-\*\?\.\"\'\|\/\\])/g,"\\$1"),"ig"); 

return this.replace(raRegExp,ARepText); 

} 

String.prototype.replaceAll = stringReplaceAll; 

 

function getFolderPath(FileID)

{

var fso = new ActiveXObject("Scripting.FileSystemObject");

//取得指定路径

var filespec = document.getElementById(FileID).value;

err_msg.innerHTML = "";

//判断指定路径是否为空

if(filespec=="") {err_msg.innerHTML = "请选择文件路径!";return false;}

//判断指定路径文件是否存在

if (!fso.FileExists(filespec)) 

{

//判断指定路径是否是文件夹

if (!fso.FolderExists(filespec))

{

filespec = filespec.substring(0,filespec.lastIndexOf("\\"));

if(fso.FolderExists(filespec)) return filespec;

err_msg.innerHTML = "指定路径文件不存在!";

//指定路径既不是文件也不是文件夹,返回false

return false;

}

//指定路径是文件夹,返回文件夹的路径

return filespec;

}

//指定路径文件存在,返回指定路径文件的父文件夹的路径

return fso.GetFile(filespec).ParentFolder;

}

 

function getFiles(folderspec)

{

var fso, f, fc;

fso = new ActiveXObject("Scripting.FileSystemObject");

if(!fso.FolderExists(folderspec)) return false;

f = fso.GetFolder(folderspec);

fc = new Enumerator(f.files);

return fc;

}

function getFolders(folderspec)

{

var fso, f, fc;

fso = new ActiveXObject("Scripting.FileSystemObject");

if(!fso.FolderExists(folderspec)) return false;

f = fso.GetFolder(folderspec);

fc = new Enumerator(f.SubFolders);

return fc;

}

function example(FileID,type)

{

var folderspec=getFolderPath(FileID);

if(folderspec==false) {

alert("Err");

return;

}

/*alert(document.getElementById("replaceType").value);*/

var type = document.getElementById("replaceType").value;

getItem(folderspec,type);

}

function getItem(folderspec,type)

{

if(document.getElementById("selectfile").checked)

changeName(getFiles(folderspec),type);

if(document.getElementById("selectfolder").checked)

changeName(getFolders(folderspec),type);

if(document.getElementById("selectsubfolder").checked)

{

var e=getFolders(folderspec);

for (;!e.atEnd(); e.moveNext())

{

if(document.getElementById("selectfile").checked)

changeName(getFiles(e.item().Path),type);

if(!!getFolders(e.item().Path))

getItem(e.item().Path,type);

}

}

}

function changeName(fc,type)

{

var resultList_str = "";

var fso, f, fc;

fso = new ActiveXObject("Scripting.FileSystemObject");

if(type==1) //替换指定字符串

{

var oldStr =  document.getElementById("old_str").value,

newStr =  document.getElementById("new_str").value;

if(oldStr == newStr) return;

for (; !fc.atEnd(); fc.moveNext())

{

var newName = fc.item().name.replaceAll(oldStr,newStr);

if(!fso.FileExists(fc.item().ParentFolder + "/" + newName))

fc.item().name = newName;

//fc.item().name = fc.item().name.replace(re, ""); //相关资料参见For Each改成for语句怎么写？ Web 开发 - ASP - CSDN社区 community_csdn_net.htm

resultList_str += fc.item().Path + "<br>";

}

}

else if(type==2)

{

var oldStr =  document.getElementById("old_str").value;

if(oldStr == "") return;

var i=0;

for (;!fc.atEnd(); fc.moveNext())

{

i++;

}

for (fc.moveFirst();!fc.atEnd(); fc.moveNext())

{

var newName = oldStr + fc.item().name;

if(!fso.FileExists(fc.item().ParentFolder + "/" + newName))

fc.item().name = newName;

//fc.item().name = fc.item().name.replace(re, ""); //相关资料参见For Each改成for语句怎么写？ Web 开发 - ASP - CSDN社区 community_csdn_net.htm

resultList_str += fc.item().Path + "<br>";

i--;

if(i<1) break;

}

}

document.getElementById("resultList").innerHTML = resultList_str;

alert("OK");

}

 

</script>

</head>

 

<body>

<div style="text-align:center; font-weight:bold; text-indent:-1100px">HTA文件名修改工具</div>

<table style="width: 80%; font-size:10pt;" align="center">

<tr>

<td colspan="4"></td>

</tr>

<tr>

<td>请选择路径:

</td>

<td colspan="3"><input name="File1" id="File1" type="file"><label id="err_msg"></label>&nbsp;(<span lang="zh-cn">注:不能直接选择文件夹对象)</span></td>

</tr>

<tr>

<td><span lang="zh-cn">文件类型:</span></td>

<td colspan="3">

<input name="selectfile" id="selectfile" type="checkbox" checked="checked" >文件&nbsp; 

<input name="selectsubfolder" id="selectsubfolder" type="checkbox">包含子文件夹 

<input name="selectfolder" id="selectfolder" type="checkbox">重命名文件夹 

</td>

</tr>

<tr>

<td><span lang="zh-cn">替换类型:</span></td>

<td><select name="replaceType" id="replaceType">

<option value="1">普通替换</option>

<option value="2" selected="selected">增加前缀</option>

<option value="3">增加后缀</option>

</select></td>

<td>&nbsp;</td>

<td>

&nbsp;</td>

</tr>

<tr>

<td>替换指定字符串<span lang="en-us">:</span></td>

<td><input name="Text1" id="old_str" type="text" size="20" value="[1]"></td>

<td><span lang="zh-cn">替换成</span>--&gt;</td>

<td>

<input name="Text2" id="new_str" type="text" size="20" value=""></td>

</tr>

<tr>

<td style="height: 30px">

</td>

<td style="height: 30px">

<input name="Button2" type="button" value="转换" οnclick="example('File1',1);"></td>

<td style="height: 30px"></td>

<td style="height: 30px"></td>

</tr>

<tr>

<td>&nbsp;</td>

<td colspan="3">

<div id="resultList" style="width:450px; height:200px;overflow:auto;border:1px #ccc solid; word-break:break-all;white-space : normal;">2222</div>

&nbsp;</td>

</tr>

</table>

</body>

 

</html>

iteye_10089
关注
关于HTA
我不会发光
07-01 819
因为公司需求,要写一个触摸屏的软件,思前想后感觉还是用HTML来实现,可是这个项目要放在桌面本地运行,而且要让客户感觉,我不是请你们来做了一个网页.我就通过百度知道了HTA. 很简单,非常类似于HTML开发,HTA的内核可能是用的IE9的吧...(我试验了一下,貌似只能这样写..其他的9,10,11 都会让页面变的很扯...) .       哦对了,这里有一个比较详细的HTA使用介绍 :ht
HTA8506C-MH-002YY HTA8506C-MH+002YY HTA8506C-MD-002YY HTA8506C-M
最新发布
12-26
HTA8506C-M系列模块，包括HTA8506C-MH-002YY、HTA8506C-MH+002YY、HTA8506C-MD-002YY以及HTA8506C-MD+002YY，是海航信光电技术有限公司推出的一款高效能并行光收发一体模块。这些模块采用了LCC48封装方式，设计紧凑...
HTA
03-21
NULL 博文链接：https://q445862108.iteye.com/blog/935438
HTML应用程序(HTML Application)
Kubernetes云计算的专栏
11-29 1823
hta就是一个HTML应用程序(HTML Application)，hta就是一个HTML应用程序(HTML Application)，只要你双击就能运行 只要简单的用.hta为扩展名保存HTML页面就行了 下面的一个标准的HTML应用程序： HTA Demo APPLICATIONNAME=〃myApp〃 BORDER=〃thin〃 BORDERSTYLE=〃normal〃 CAPTION=
TC58NVG1S3HTA00.pdf
05-06
TC58NVG1S3HTA00是一款由东芝公司制造的NAND型2Gbit（256M x 8bit）ECC EEPROM存储器芯片。它是一款单3.3V供电的闪存芯片，内部组织结构为2048+128字节×64页×2048块。具体知识点如下： 存储器类型：TC58NVG1S3HTA...
VBS脚本的GUI界面 HTA简明教程（网络搜集整理）
09-05
在VBS中，HTA不仅提供了丰富的UI定制，还具有与VBScript的深度集成，使得开发者可以直接调用VBS的内置对象和函数，如WScript对象、FileSystemObject、Network对象等，以执行各种系统操作和数据处理。这对于那些需要...
HTA简介
qq_21178295的博客
01-20 1806
1 HTA简介 详情参考：https://baike.baidu.com/item/HTA/262732?fr=aladdin HTA是HTML Application的缩写（HTML应用程序），是软件开发的新概念，直接将HTML保存成HTA的格式，就是一个独立的应用软件，与VB、C++等程序语言所设计的软件界面没什么差别。 1.1 HTA属性 HTA与普通的网页结构差不多，所以设计...
HTA 简介
it_man的专栏
12-06 2400
HTA是HTML Application的缩写（HTML应用程序），是软件开发的新概念，直接将HTML保存成HTA的格式，就是一个独立的应用软件，与VB、C++等程序语言所设计的软件没什么差别。下面是一个HTA的例子：    第一个HTA的例子            p {font-size:24;cursor:hand}            HTA    HTML Application   
windows的hta很好玩
03-18
NULL 博文链接：https://aleelock.iteye.com/blog/614974
HTA数据库操作
12-29
在hta中使用VBScript操作access数据库文件mdb，方便直观，代码简洁。适合新手入门，可转ASP。
控制hta尺寸
01-10
控制窗体尺寸
可视化HTA窗体设计器
03-14
一个GUI可视化HTA生成工具。可存档，可自定义一些系统功能。 http://aquanz.top/HtaMaker 了解更多。
网页应用程序hta-有意思
On the way
01-08 3929
HTA与普通的网页结构差不多，所以设计出来很容易，最简单的方法就是把设计好的html文件后缀直接改为.hta 当然HTA还有许多自己独特的属性： HTA的外观可以用来设定HTA应用程序的外观，如标题栏、边框大小等，必须放在中。 以下是一个完整的hta实例： 第一个HTA的例子 <HTA:Application ID="oHTA" 　　 Applicationname="myApp
HTA（html应用程序）攻击
Zlirving_的博客
02-23 4181
HTA 介绍 HTA是HTML Application的缩写（HTML应用程序），是软件开发的新概念，直接将HTML保存成HTA的格式，就是一个独立的应用软件，与VB、C++等程序语言所设计的软件界面没什么差别 大多数的Windows操作系统都支持Hta文件执行，可双击运行hta应用或命令行窗口mshta.exe解析执行文件，这里的.hta文件可以是本地的也可以是可访问的远程主机上的 HTA虽然用HTML、JS和CSS编写，却比普通网页权限大得多。它具有桌面程序的所有权限（读写文件、操作注册表等） HTA
VBS脚本的GUI界面——HTA简明教程
|独自望海。。。
01-12 5446
HTA是HTML Application的缩写（HTML应用程序），是软件开发的新概念，直接将HTML保存成HTA的格式，就是一个独立的应用软件，双击就能运行，与VB、C++等程序语言所设计的软件没什么差别。原来网页中的工具栏、地址栏以及菜单栏在这个窗口里都没有被显示出来，还可以使用html中的绝大多数标签、脚本等，这就给予你对界面设计更多的控制权。（天哪，当我看到这句话的时候，心情是多么的激动，
HTA的简单应用
aome1470的博客
11-04 518
HTA简介：HTA是HTML Application的缩写（HTML应用程序），是软件开发的新概念，直接将HTML保存成HTA的格式，就是一个独立的应用软件，与VB、C++等程序语言所设计的软件没什么差别。下面是一个HTA的例子：<!—example1.hta--><html><head> <title>第一个HTA的例子</t...
人机交互中6种任务模型对比
热门推荐
漫游学海之旅
08-27 1万+
任务分析是为任务建模服务，任务分析作为软件设计必不可少的环节，是交互系统可用性的保障。任务分析是指对人们在实际执行任务过程中的数据进行收集和分析，其目的是深入理解用户需要完成的目标、用户执行任务的过程和环境；对任务分析中得到的数据进行结构化，逻辑化的组织是任务建模的过程；任务模型是任务分析和建模的产物。             目前任务分析和建模方法的研究主要分为三个部分:任务模型的描述能力
网易文件提取hta代码学习示例
这段代码的主要目的是教学，帮助学习者理解如何利用HTA技术来实现特定的文件提取功能，尤其是针对网易平台的文件。" 在网页开发中，HTML Application (HTA) 是一种特殊的HTML文件类型，它可以像桌面应用程序一样...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值