[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18831 
技术
978  
捐助
100  
注册时间
2010-10-9 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2014-8-17 17:23 | 只看该作者

[转载代码] hta 实现的字符编码速查

代码为转载
作范例不错，功能也比较实用
  1. <!DOCTYPE html>

  2. <!-- saved from url=(0006)about: -->

  3. <!--  vim:set tabstop=4 shiftwidth=4 : -->

  4. <html>

  5. <head>

  6. <hta:application innerborder=0 scroll=0 selection=0 />

  7. <meta http-equiv=content-type content='charset=gb2312' />

  8. <meta http-equiv=msthemecompatible content=yes />

  9. <title>字符编码GBK和Unicode</title>

  10. <style>

  11. span{font:14px bold verdana;color:green;}

  12. textarea {width:100%;height:100px;}

  13. .decorate {border:1px solid #C7E2F1;padding:2px 4px;font:12px consolas;display:inline;float:right;}

  14. .decorate input {width:50px;}

  15. .ps {font:12px consolas;color:#6A5ACD;}

  16. /*label {margin-top:-19px;position:relative;vertical-align:top;padding-top:8px;}*/

  17. label {display:inline-block;height:19px;}

  18. 

  19. .signature {color:green;text-align:right;position:absolute;bottom:5px;right:20px;font:14px/20px consolas,verdana,宋体;}

  20. .signature A:hover {color:red;}

  21. </style>

  22. <script language="JavaScript">

  23. 	

  24. var blue='blue',red='red',green='green',black='black',gray='gray';

  25. Object.prototype.echo=function(c){document.write(this.toString().fontcolor(c||'black')+'<br>')};

  26. String.prototype.Echo=function(c){document.write(('<xmp>'+this.toString()+'</xmp>').fontcolor(c||'black'))};

  27. function $(d){return document.getElementById(d);}

  28. document.onkeydown=function(){

  29. 	var ESC=27;

  30. 	switch(event.keyCode){

  31. 		case ESC: window.close();break;

  32. 	}

  33. }

  34. Array.prototype.format=function(prefix,suffix,delimit){

  35. 	return prefix+this.join(suffix+delimit+prefix)+suffix;

  36. }

  37. </script>

  38. </head>

  39. 

  40. <script language="vbs">

  41. Function GBK(ch)	

  42. 	GBK = Hex(Asc(ch))

  43. End Function

  44. 

  45. Function Unicode(ch)	

  46. 	Unicode = Hex(AscW(ch))

  47. End Function

  48. </script>

  49. <body>

  50. 

  51. <textarea id=input >我是谁?</textarea><br><br>

  52. <div class=decorate>

  53. 	前缀:<input name=detect data=prefix1 >

  54. 	后缀:<input name=detect data=suffix1 >

  55. 	分隔:<input name=detect data=delimit1 value=, >

  56. 	<label for=Hex1>Hex:<input id=Hex1 type=checkbox checked=true ></label>

  57. </div>

  58. <span>GBK:</span>

  59. <br>

  60. <textarea id=out1></textarea> <br>

  61. 

  62. <div class=decorate>

  63. 	前缀:<input name=detect data=prefix2 >

  64. 	后缀:<input name=detect data=suffix2 >

  65. 	分隔:<input name=detect data=delimit2 value=, >

  66. 	<label for=Hex2>Hex:<input id=Hex2 type=checkbox checked=true ></label>

  67. </div>

  68. <span>Unicode:</span><br>

  69. <textarea id=out2></textarea>

  70. <div class=ps>

  71. 	注: <a href=# onclick=ALT() title="按住alt键,同时按小键盘的数字,即可打出对应的字符">Alt+Num</a> 是十进制GBK<br>

  72. 	　　<a href=# onclick=HTM(0) title="写在html源文件里面,显示出来会是对应的字符">html中&#+Num</a> 是十进制Unicode,也可以是<a href=# onclick=HTM(1)>x+十六进制</a>,

  73. </div>

  74. <script type="text/javascript">

  75. 	resizeTo(550,510);

  76. var prefix1='',suffix1='',delimit1='',hex1=0,

  77. 	prefix2='',suffix2='',delimit2='',hex2=0;

  78. var arr1=[],arr2=[];

  79. input.onpropertychange=function change(x){

  80. 	if(input.value=="")return;

  81. 	var str=input.value;arr1=[],arr2=[];

  82. 	for(var i=0;i<input.value.length;i++){

  83. 		arr1.push(GBK(str.substr(i,1)));

  84. 		arr2.push(Unicode(str.substr(i,1)));

  85. 		if(!hex1)arr1[i]=parseInt(arr1[i],16);

  86. 		if(!hex2)arr2[i]=parseInt(arr2[i],16);

  87. 	}

  88. 	if(x!=2)out1.value=arr1.format(prefix1,suffix1,delimit1);

  89. 	if(x!=1)out2.value=arr2.format(prefix2,suffix2,delimit2);

  90. }

  91. function changeHex(){

  92. 	if(this.id.indexOf('1')>-1){

  93. 		hex1=this.checked;

  94. 		change(1);

  95. 	}else{

  96. 		hex2=this.checked;

  97. 		change(2);

  98. 	}

  99. }

  100. function changeDecorate(){

  101. 	//alert(this.data+'="'+this.value+'";');

  102. 	eval(this.data+'="'+this.value+'";');

  103. 	if(this.data.indexOf('1')>-1){

  104. 		out1.value=arr1.format(prefix1,suffix1,delimit1);

  105. 	}else{

  106. 		out2.value=arr2.format(prefix2,suffix2,delimit2);

  107. 	}

  108. 	

  109. }

  110. Hex1.onpropertychange=changeHex;

  111. Hex2.onpropertychange=changeHex;

  112. var detects=document.getElementsByName("detect");

  113. //alert(detects.length);

  114. for(var i=0;i<detects.length;i++){

  115. 	//detects[i].value=i;

  116. 	detects[i].onpropertychange=changeDecorate;

  117. }

  118. function HTM(hex){

  119. 	Hex2.checked=hex;

  120. 	out2.value=arr2.format(hex?'&#x':'&#',';','');

  121. }

  122. function ALT(){

  123. 	Hex1.checked=false;

  124. 	out1.value=arr1.format('','',',');

  125. }

  126. input.focus();

  127. 

  128. 

  129. //var a=[1,2,3];

  130. //a.format('S','E',',').echo();

  131. </script>

  132. 

  133. <div class="signature"><a href="http://hi.baidu.com/%E6%84%9A%E4%BA%BA%E9%99%88/">yurenchen</a> 2012/2/3</div>	

  134. </div>

  135. </body>

  136. </html>
复制代码
收藏 分享
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18831 
技术
978  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2014-8-17 19:42 | 只看该作者
貌似是从愚人陈的空间里弄来的，不知道他是不是自己写的...
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

返回列表