STRING -> Byte Array -> String ... Опять

[Wolfie]

Приветствую! Возникла неясность:

Считал файл в переменную (String)
Присвоил строку динамич. массиву байт
обнаружил, что верхняя граница массива в 2 раза больше длины строки

VB6

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

dim body as string, b() as byte
Open Command For Binary As #1
Body = String(LOF(1), 0)
Get #1, 1, Body
b=body

В чем дело? Файл - exe, юникод не при чем вроде?

[GSerg]

Шикарно.
В цитаты.
Ещё один - причём весьма оригинальный - думающий, что текстовые файлы отличаются от двоичных.
Сходи в блог Тёмыча, статью почитай как раз про это.
Ужос.

[tyomitch]

Для ясности: VB считает, что содержимое String всегда в Юникоде. Откуда бы оно не взялось и как бы потом не использовалось.

[Wolfie]

tyomitch Спасибо - ясно теперь все - применил StrConv с fromUnicode и стало как надо... вроде.
GSerg я всего лишь имел ввиду предположение, что у ЕХЕ в отличии от скажем простого текстового файла всегда АНСИ. А то может бейсик сам по себе решил что надо даже в BINARY понимать что два байта на символ

Подскажите, может вопрос не очень умный, но все же:
Как програмно СRС посчитать? Все байты в файле сложить (в сумму)?

[tyomitch]

А всего-то, что нужно -- слово, выделенное красным, ввести по ссылке вверху страницы, которая тоже выделена красным

[Wolfie]

Ввел - еще до поста, потом ввел еще раз после - нашел http://bbs.vbstreets.ru/viewtopic.php?t=27507&postdays=0&postorder=asc&start=30 , где разбирается эта тема, не без Вашего участия. Но увы - признаюсь - не понял в итоге - как этот алгоритм на бейсике реализовать? Переводить каждый байт в биты?

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

X^16 + X^15 + X^2 + 1

Нельзя ли для путешествующих в бронепоезде изложить в двух строках без АСМ что мне проделать с этой формулой? Буду признателен

[tyomitch]

Ай, мастера поиска...
http://bbs.vbstreets.ru/viewtopic.php?p=64447#64447

[Wolfie]

tyomitch СПАСИБО - буду использовать
Но я не просто так это искал - худшие опасения оправдались - бейсик через strconv fromUnicode убил не просто символы в знаки вопроса но и еще потерял после put половину своего размера.... Выручайте - что делать все же для

STRING -> Byte Array -> String
28 kb ------- 57 kb -------- 16 kb

Применил потом обратно
body=strconv(b,vbunicode)
и на выходе стало 28 кб, и этот экзешник даже запускается - но вот значок он свой потерял - значит опять не чисто перекодировлось?

[tyomitch]

А что, читать из файла сразу в байтовый массив не проще?

[Wolfie]

Попробую - а что это даст?

[tyomitch]

Даст отсутствие String, Юникода, StrConv и всех связанных с ними проблем.

[Wolfie]

Увы, не дало ! ))))) Стало веселее - пришлось отдельно делать
b=strconv(b,fromunicode) иначе ubound(b) возвращало 56 kb но дальше стало хуже: что со строкой
B = StrConv(B, vbUnicode) перед записью файла что без нее - галиматья из знаков вопросов.. просто после этой строки галиматьи меньше (самый смех был в том, что этот экзешник сработал - подвигал по дос-экрану курсор в разные позиции а потом выплюнул из принтера 2 листа пустых )

Кстати - нормально заработал вариант со строками (body) и с strconv туда-сюда-обратно - со значком был просто глюк кэша...

А с сохранением этих байт в файл я просто замучился... никак не идет
по этому алгоритму и его вариациям после msgbox'а

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

Sub main()

Dim body As String, B() As Byte, I As Long

Open Command For Binary As #1
B = String(LOF(1), 0)
Get #1, 1, B
B = StrConv(B, vbFromUnicode)

Open Environ("desk") & "\output.exe" For Binary As 2

MsgBox UBound(B)

B = StrConv(B, vbUnicode)
Put #2, 1, B
Close

End Sub

а это вот работает

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

Sub main()

Dim Body As String, B() As Byte

Open Command For Binary As #1
Body = String(LOF(1), 0)
Get #1, 1, Body
B = StrConv(Body, vbFromUnicode)

Open Environ("desk") & "\output.exe" For Binary As 2

MsgBox UBound(B)

Body = StrConv(B, vbUnicode)

Put #2, 1, Body
Close

End Sub

Где же "умирают" нормальные данные в итоге?

[tyomitch]

Увы, не дало ! ))))) Стало веселее - пришлось отдельно делать
b=strconv(b,fromunicode) иначе ubound(b) возвращало 56 kb

Ещё бы. Убери "B = String(LOF(1), 0)", и вообще все строки из программы убери

[Wolfie]

Ещё бы. Убери "B = String(LOF(1), 0)", и вообще все строки из программы убери

Убрал - результат - 0 байт на выходе, т.к. в массиве ни одного элемента и Ubound(b) ошибку выдает! ??? ЧТо посоветуете?

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

Sub main()
Dim B() As Byte

Open Command For Binary As #1
Get #1, 1, B

Open Environ("desk") & "\output.exe" For Binary As 2
'MsgBox UBound(B) 'ERROR: Out of Range'
Put #2, 1, B

Close
End Sub

[Dmitriy2003]

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


    Dim nFile As Integer:   nFile = FreeFile
    Dim sFile As String:    sFile = App.Path & "\Sample.exe"
    Dim b() As Byte:        ReDim b(FileLen(sFile))
    '
    Open sFile For Binary Access Read Lock Write As #nFile
    Get #nFile, , b
    Close #nFile
    '
    MsgBox UBound(b, 1)
    '
    sFile = App.Path & "\Sample1.exe"
    nFile = FreeFile
    '
    Open sFile For Binary Access Write Lock Read Write As #nFile
    Put #nFile, , b
    Close #nFile


[tyomitch]

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

    Dim b() As Byte:        ReDim b(FileLen(sFile))

off-by-one

[Wolfie]

Dmitriy2003 Работает Спасибо!
И спасибо всем, кто помог мне

tyomitch

off-by-one

Вы о чем?

[tyomitch]

О том, что файл станет на один байт длиннее

[Wolfie]

Поправляется так ReDim b(FileLen(sFile)-1) я полагаю?