PROCEDURE HexView LParameter tcString Local lnPos, lnChar, lnCol, lnRow, lcascii lnCol = 0 lnRow = 0 lcascii = "" For lnPos = 1 To Len(tcString) If lnCol%16 = 0 If lnPos > 1 ?? " " + lcascii Endif ? Transform(lnRow,"@0")+" : " lnRow = lnRow+16 lcascii = "" Endif lnCol = lnCol + 1 lnChar = Asc(SubStr(tcString,lnPos,1)) ?? RighT(Transform(lnChar,"@0"),2)+" " if lnchar >= 32 lcascii = lcascii + chr(lnchar) else lcascii = lcascii + "." endif Endfor ?? space((16-len(lcascii))*3)+" " + lcasciiCall it with
HexView( FileToStr("filename") )Alternatively, you can use HexEdit.App which comes with VFP.