批处理版HexFile2Ascii

hfg1977

不解释了,Debug用法google吧,很多的.

1. @goto start
   
2. :help
   
3. @echo.======== Ver:1.0 ==================== 发布日期: 2012-02-03 ==============
   
4. @echo.        BAT_NAME:        HexFile2Ascii.bat
   
5. @echo.        返回值:                %def_filename%
   
6. @echo.        返回值获得:        ┌ set /p strHEX=^<%def_filename%
   
7. @echo.                        └ echo %%strHEX%%
   
8. @echo.        调用:                call HexFile2Ascii.bat HexFileName [outFileName]
   
9. @echo.        说明:
   
10. @echo.                        本批处理是从Ascii2Hex.bat中分离出来的,默认系统XP.
    
11. @echo.                        转载必须指明出处: "转载自批处理之家 bbs.bathome.net"
    
12. @echo.                        HexFile必须是 "0E 02 56 FE" 形式,以空格分隔
    
13. @echo.                        使用第三方工具sed对原始文件预处理,如果没有则跳过该过程.
    
14. @echo.        大小限制:        ASCII文件 65279 Byte HEX文件65279*3=195837 Byte
    
15. @echo.
    
16. @echo.====================== Copyright@ by hf-g [彭城] ========================
    
17. ping /n 4 127.0>nul&
    
18. goto:end
    
19. ::==============================================================
    
20. :start
    
21. @echo off
    
22. setlocal enabledelayedexpansion
    
23. ::==============================================================
    
24. set "def_filename=ret_str.txt"
    
25. if /i "%~1"=="" goto help
    
26. if /i "%~1"=="-?" goto help
    
27. for /f "tokens=2" %%a in ('CHCP') do (if not "%%a"=="437" (mode con cols=80 lines=25&color 07&CHCP 437&graftabl 936))>nul
    
28. ::工作路径设置:
    
29. (pushd %~dp1&&pushd %~dp2&&pushd %~dp3&&pushd %~dp4)>nul
    
30. echo CD=%cd%
    
31. set "char="&set "filename=nul"&set "dec_size="&set "hex_str="&set "ascChar="&set "des_filename=nul"
    
32. set /a char_BL=0,filename_BL=0,asc2hex_BL=0,hex2asc_BL=0,IPadd_BL=0,exit_BL=0
    
33. set /a des_filename_BL=0
    
34. set /a line=0,line_YU=0,count=0,num=0
    
35. 
    
36. ::================================ Mian ==============================
    
37. path=%path%;%~d0\DOS\网络;%~d0\DOS\command\第三方命令行程序;%~d0\DOS\command;%~d0\DOS\源码;%~d0\DOS\sysbkup
    
38. if not "%~2"=="" set "def_filename=%~2"
    
39. if not exist "%~1\." (if not exist "%~1" (echo ERR:Hex文件不存在&goto:end))
    
40. 
    
41. ::用第三方工具sed对原始文件预处理,如果没有则跳过该过程. 文件给予备份.
    
42. sed --v 1>nul 2>nul&&(
    
43. if not exist "%~nx1.bak" copy "%~nx1" "%~nx1.bak"
    
44. sed -i "s/\s*$//;s/^\s]*//;/^$/d" "%~1"
    
45. )||(
    
46. echo 第三方工具 sed 没找到.&echo........
    
47. )
    
48. 
    
49. call:file2asc "%~1" "%def_filename%"
    
50. 
    
51. :end
    
52. pause&pause
    
53. ::echo ☆☆☆
    
54. del tempfile.txt strHEX.txt tmpHEX.txt>nul 2>nul
    
55. del sed??????
    
56. popd&popd&popd&popd
    
57. exit /b
    
58. 
    
59. ::=====================HEX→ASCII=========================================
    
60. :file2asc
    
61. set "file_size=%~z1"
    
62. ::计算文件有效行数
    
63. for /f %%a in ('findstr/n . "%~1"^|find /c /v ""') do set /a line=%%a
    
64. 
    
65. ::计算生成文件Byte数        (%file_size% - %line%*2回车换行符 + %line%*1个空格)/3
    
66. set /a dec_size=(%file_size%-%line% )/3
    
67. call:dec2hex %dec_size%
    
68. set dec_size_HEX=%sum%
    
69. set /a end_addr=%dec_size%+0x100
    
70. call:dec2hex %end_addr%
    
71. set end_addr=%sum%
    
72. 
    
73. echo         源文件:   行数:%line%        字节数:%file_size%
    
74. echo         目标文件:                字节数:%dec_size% == 0x%dec_size_HEX%
    
75. echo.        -----------------------------------------------
    
76. 
    
77. 
    
78. ::做个判断标记,用于%hex_str%写入文件控制.
    
79. if %file_size% GTR 8160 (set BigFile_BL=1&cd.>tmpHEX.txt) else (set BigFile_BL=0)
    
80. if %BigFile_BL%==1 (
    
81. set /a _addr=100
    
82. set "YU_str="
    
83. for /f "tokens=* usebackq delims=" %%a in ("%~1") do (
    
84. if "!YU_str!"=="" (set str=%%a) else (set str=!YU_str! %%a)
    
85. call:getStrLen "!str!"
    
86. set /a s=0
    
87. set /a count=^(!strlen!+1^) / 72
    
88. set /a YU_str=^(!strlen!+1^) "%%" 72
    
89. if !YU_str! EQU 0 (set "YU_str=") else (call set "YU_str=%%str:~-!YU_str!%%")
    
90. 
    
91. for /l %%i in (1,1,!count!) do (
    
92. call echo e!_addr! %%str:~!s!,72%%>>tmpHEX.txt
    
93. set /a s=%%i*72
    
94. set /p = e!_addr!<nul
    
95. set /a _addr=0x!_addr! + 24
    
96. call:dec2hex !_addr!
    
97. set _addr=!sum!
    
98. )
    
99. )
    
100. call echo e!_addr! %%str:~!s!%%>>tmpHEX.txt
     
101. set /p = e!_addr!<nul
     
102.     (echo n%~s2&echo rcx&echo %dec_size_HEX%&echo w&echo q)>>tmpHEX.txt
     
103. rem (echo n%~s2&echo rcx&echo %dec_size_HEX%&echo w&echo d100 %end_addr%&echo q)>>tmpHEX.txt
     
104. debug<tmpHEX.txt>nul
     
105. goto:eof
     
106. )
     
107. ::--------------------------------------------------------------
     
108. 
     
109. if "%line%"=="1" (
     
110. rem set /p hex_str=<"%~1"
     
111. rem 上面命令单行文本(>1022 Byte)并不能读完
     
112. for /f "tokens=* usebackq delims=" %%a in ("%~1") do set "hex_str=%%a"
     
113. ) else (
     
114. for /f "tokens=* usebackq delims=" %%a in ("%~1") do set "hex_str=!hex_str! %%a"
     
115. )
     
116. ::(echo e100 %hex_str%&echo n%~s2&echo rcx&echo %dec_size_HEX%&echo w&echo q)|debug>nul
     
117. (echo e100&echo %hex_str%&echo n%~s2&echo rcx&echo %dec_size_HEX%&echo w&echo q)|debug>nul
     
118. ::(echo e100&echo %hex_str%&echo n%~s2&echo rcx&echo %dec_size_HEX%&echo w&echo q)|debug>strHEX.txt
     
119. ::echo exit|%ComSpec% /k prompt e100$_%hex_str%$_$_$_n%~s2$_rcx$_%sum%$_w$_q$_|debug>strHEX.txt
     
120. ::echo exit|%ComSpec% /k prompt e100 %hex_str%$_n%~s2$_rcx$_%sum%$_w$_q$_|debug>strHEX.txt
     
121. goto:eof
     
122. ::=======================10进制转16进制==============================
     
123. ::返回值在中%sum%
     
124. :dec2hex decNumber
     
125. set "str=0123456789ABCDEF"&set "sum="
     
126. set/a d=%~1
     
127. for /l %%i in (1 1 8) do (
     
128.      if !d! GTR 0 (
     
129.         set/a "y=d&15,d>>=4"
     
130.         call set sum=%%str:~!y!,1%%!sum!
     
131.      )
     
132. )
     
133. if not defined sum set/a sum=0
     
134. goto:eof
     
135. ::==============END======10进制转16进制==============================
     
136. ::=======================获得字符串长度==============================
     
137. ::返回值在中%strlen%
     
138. :getStrLen mystr
     
139. set "mystr=%~1"&set "strlen=0"
     
140. if not defined mystr goto :eof
     
141. for /l %%i in (0,1,8191) do (set strlen=%%i&if "!mystr:~%%i,1!"=="" (goto :eof))
     
142. goto :eof
     
143. ::==============END======获得字符串长度========== by hf-g ===========
     
144. 
     
145. 
     
146. 
     
147. 
     
148. 
     

复制代码

ivor

支持一下