回 帖 发 新 帖 刷新版面

主题:16进制

大家好虽然我是今天刚注册但已是这老看户了[em8]哈
   请教下如何把文件转成16进制,就是像我们用工具软件如HEX一类的

回复列表 (共6个回复)

沙发

不可能是老看户吧
如果是的话,你就没有看到16进制显示的帖子吗?

板凳

以前拷的系统格式化没了,我想问的不是如何显示成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 楼

在帖子《 写给真正想学编程的初级教程,从0起步》的最后一篇就是你要的东西

4 楼

[em14]我也去看看

5 楼

CLS:INPUT I:CLS:COLOR 1:PRINT HEX$(I)

6 楼

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

我来回复

您尚未登录,请登录后再回复。点此登录或注册