主题:16进制
xieming
[专家分:0] 发布于 2005-04-19 20:46:00
大家好虽然我是今天刚注册但已是这老看户了[em8]哈
请教下如何把文件转成16进制,就是像我们用工具软件如HEX一类的
回复列表 (共6个回复)
沙发
qb45 [专家分:2880] 发布于 2005-04-20 08:31:00
不可能是老看户吧
如果是的话,你就没有看到16进制显示的帖子吗?
板凳
xieming [专家分:0] 发布于 2005-04-20 13:53:00
以前拷的系统格式化没了,我想问的不是如何显示成16进制,而是像WINHEX之类工具那样显示一个文件的16进制的模式,我自己编的和用WINHEX的结果不一样啊搞不懂
这是我自己编的
CLS
DIM Str_filestring AS STRING,Bye_temp AS BYTE,Str_temp AS STRING
DIM i AS LONG ,l as long
OPEN "B",#1,"d:\pl07.use"'原文件可以随便换
OPEN "B",#2,"d:\te.txt"'结果文件
DO UNTIL EOF(1)
i = i +1
GET$ #1,i,Str_temp
Str_filestring = HEX$(ASC(Str_temp))
IF LEN(Str_filestring) < 2 THEN
Str_filestring= "0" + Str_filestring
END IF
PUT$ #2,Str_filestring
PUT$ #2," "
LOOP
CLOSE
END
到第三个就不同了,晕
3 楼
qb45 [专家分:2880] 发布于 2005-04-20 14:20:00
在帖子《 写给真正想学编程的初级教程,从0起步》的最后一篇就是你要的东西
4 楼
莫非白 [专家分:750] 发布于 2005-04-20 14:44:00
[em14]我也去看看
5 楼
def [专家分:3380] 发布于 2005-04-22 20:40:00
CLS:INPUT I:CLS:COLOR 1:PRINT HEX$(I)
6 楼
QB71 [专家分:1300] 发布于 2005-04-23 07:40:00
SourFileName$="c:\abc.txt" '源文件
OutFileName$="c:\abc.hex" '目标文件
SourNum%=freefile '取空闲文件号
OutNum%=freefile
open SourFileName$ for random as #SourNum% len=1 '打开源文件
Field #SourNum%,1 as Byte$ '每次取一个字节
open OutFileName$ for output as #OutNum% '打开目标文件
Size&=lof(SourNum%) '取源文件长度
dim N as long
while N&<=Size& '一直读源文件到文件结束
get #SourNum%,N& '取一个字节
bit$=hex$(asc(Byte$)) '换成十六进制
if Len(Bit$)<2 then bit$="0"+Bit$
Print #OutNum%,Bit$; '写到目标文件
N&=N&+1
wend
我来回复