HEX видиние

[young]

Собственно требуется просто прочесть не текстовый фаил и представить его в hex виде Сам не могу....

[Faust]

Ну, можно открыть файл For Binary (тут уже будет все равно, текстовый ли он). Ежели именно это и требовалось - радуемся. Ежели нет - конвертим в HEX.

[young]

Зык это смог , а вот сконвертировать-то как раз и не смог!

[_Мика_]

Загружаеш файл в переменную

Код: Выделить всё

dim sTxt as string
dim sHexTxt as string

open "C:\1.txt" for input as #1
do until eof(1)
line input #1,s
stxt=stxt & s
loop
close #1
'теперь у нас в переменной sTxt весь файл
'переводим в HEX
for i=1 to len(stxt)
sHexTxt=sHexTxt & hex(asc(mid(stxt i,1)))
next i


вот и все

[_Мика_]

Ну или

Код: Выделить всё

Const FILE_BINARY = "C:\1.exe"
Const FILE_TEXT = "C:\1.txt"

Option Explicit

Sub main()
Dim btArray() As Byte, str As String

MsgBox "Íà÷èíàåì ïèñàòü òåêñò"
'==×èòàåì äâîè÷íûé, ïèøåì - òåêñò...
Open FILE_BINARY For Binary As #1
    ReDim btArray(LOF(1) - 1)
    Get #1, , btArray
    str = TranslateBytesToString(btArray)
Close #1
Open FILE_TEXT For Output As #1
    Print #1, str
Close #1
MsgBox "Òåêñò çàïèñàí!" & vbCrLf & "Äåëàåì âñå â îáðàòíîì ïîðÿäêå"

str = ""
'==×èòàåì òåêñò, ïèøåì - äâîè÷íûé...
Open FILE_TEXT For Input As 1
    Line Input #1, str
Close #1
TranslateStringToBytes str, btArray
Open FILE_BINARY & "(copy)" For Binary As #1
    Put #1, , btArray
Close #1
MsgBox "Ãîòîâî!"
End Sub

'==TranslateBytesToString - ôóíêöèÿ âîçâðàùàåò ñòðîêó, à îáðàáàòûâàåò áàéòîâé ìàññèâ
Public Function TranslateBytesToString(ByRef bt() As Byte) As String
Dim I As Long
Dim rt As String
rt = Space(UBound(bt) * 2 + 1)
For I = 0 To UBound(bt)
    Mid(rt, I * 2 + 1, 2) = IIf(bt(I) < &H10, "0", "") & Hex(bt(I))
Next
TranslateBytesToString = rt
End Function

'==TranslateStringToBytes - ôóíêöèÿ îáðàðáàòûâàåò ñòðîêó, à ðåçóëüòàò ïîìåùàåò â ìàññèâ bt
Public Sub TranslateStringToBytes(ByVal vl As String, ByRef bt() As Byte)
Dim I As Long
ReDim bt(Len(vl) \ 2 - 1)
For I = 0 To UBound(bt)
    bt(I) = CByte("&H" & Mid(vl, (I * 2) + 1, 2))
Next
End Sub

Private Sub Form_Load()
main
End Sub


Это не мой код, кто-то на форуме уже это писал

[young]

Первое отподает, мне не текстовый фаил нужн оперегнать, а вот второй прверю, спасибо!

[marvan]

Private Sub Form_Load()
    Dim bytData() As Byte
    Dim ff As Integer
    Dim fLen  As Long
    Dim HexEncode As String
    Dim i As Long
    ff = FreeFile
    Open "C:\1.txt" For Binary As #ff
    fLen = LOF(ff) - 1
    ReDim bytData(0 To fLen)
    Get #ff, 1, bytData
    Close #ff
    For i = 0 To fLen
        Sim = Hex$(bytData(i))
        If Len(Sim) = 1 Then Sim = "0" & Sim
        HexEncode = HexEncode & Sim
    Next
    Debug.Print HexEncode
End Sub

Как отформатирован этот код?