Skip to content

Commit ed66920

Browse files
MapalerMapaler
committed
先传基本
0 parents  commit ed66920

13 files changed

+43
-0
lines changed

‎.gitignore‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
/VBScript/*.exe
2+
/VBScript/*.log
3+
/VBScript/*.bat

‎README.md‎

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
# 枫谷剑仙自编VBS脚本
2+
## 日文乱码
3+
### 日文文本文件转换为UTF8编码
4+
5+
### 日文乱码文件名转换到Unicode改名

‎VBScript/JP_fn_to_U.vbs‎

20.8 KB
Binary file not shown.

‎VBScript/ReduceFolder.vbs‎

10.5 KB
Binary file not shown.

‎VBScript/solid_7z_to_jpg_fast.vbs‎

36.4 KB
Binary file not shown.

‎固实7-Zip压缩包快速转JPG.bat‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
@echo off
2+
REM 将参数赋予VBS
3+
cscript /nologo "%~dp0\VBScript\solid_7z_to_jpg_fast.vbs" %*
4+
echo.
5+
echo 程序运行结束，按任意键结束运行...
6+
pause >nul

‎文件夹显示伪名.vbs‎

5.13 KB
Binary file not shown.

‎日文乱码文件名 to Unicode改名.bat‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
@echo off
2+
REM 将参数赋予VBS
3+
cscript /nologo "%~dp0\VBScript\JP_fn_to_U.vbs" %*
4+
echo.
5+
echo 程序运行结束，按任意键结束运行...
6+
pause >nul

‎日文乱码文本 to UTF8.vbs‎

2.19 KB
Binary file not shown.

‎查询ASCLL码.vbs‎

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
Do
2+
s=InputBox("输入你要查询的字符串","ASCLL码查询")
3+
res = ""
4+
For i = 1 To Len(s)
5+
w=Mid(s,i,1)
6+
res= res & w & "(" & Hex(Asc(w)) & ":" & Asc(w) & ") "
7+
Next
8+
If Len(s)>0 Then MsgBox res
9+
Loop Until(Len(s)<1)

0 commit comments

Comments
 (0)