Окрыть файл *.exe в Text1 и наоборот?Я идиот! Убейте меня, кто-нибудь!

[zona09]

Open "C:\Windows\Notepad.exe" For Input As #1
Input #1, TextLine1
Text1.Text = TextLine1
Close #1

Если так открывать открывается одна строчка и без пробелов... Что мне ваще нужно.!!! Открыть *.exe файл и он записался сами (крякозаблики) в Text1.Text, и потом отсюда записался снова у *.exe и работал exe/!!!!
Если кто-то понял меня пожалуйста подскажите!!!!

[Ennor]

...
Если кто-то понял меня пожалуйста подскажите!!!!

Да, очень важное дополнение

Насчет того, чтобы открыть таким образом файл - ну, откроешь ты его, да. Только вот текстбокс может конвертировать непечатные символы в... печатные, скажем так - пробел там, или еще что-нить. И когда ты обратно его запишешь, хрен он тебе работать будет. Непонятно, правда, зачем читать в текст, а потом тут же писать из него...

[alibek]

Ennor, ну что тебе непонятного? Он его отлаживать будет

zona09,

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

open "..." for binary as #1
buff$ = string$(lof(1), 0)
get #1, , buff$
close #1
text1.text = buff$

[Ennor]

Т.е. человек уже написал дебаггер и теперь осталась всякая мелочь, типа отображения HEX-дампа? Крут, ничего не скажешь...

[EvilCoder]

<DELETED>

[zona09]

мне нужно ето в других целях, но не отлаживать...
2 Ennor
{Только вот текстбокс может конвертировать непечатные символы в... печатные, скажем так - пробел там, или еще что-нить}
В етом и проблема...

2 alibek
КОд
open "..." for binary as #1
buff$ = string$(lof(1), 0)
get #1, , buff$
close #1
text1.text = buff$

Я сделал Open "C:\Notepad.exe" Text1.Text мне показал только MZђ (тобиш только 3 символа) но мне потом надо снова в екзе и чтоб работал.
Пожалуйста подскажите что делать!!! alibek HELP!

[EvilCoder]

<DELETED>

[EvilCoder]

<DELETED>

[zona09]

нет мне нужно только так.. значит выхода нет?

[Ennor]

Конечно, есть. Во-первых, читать файл надо не в строковую переменную, а в байтовый массив. Во-вторых, делать это не через Input, а через Get. Ну и в-третьих, открывать файл не в режиме For Input/Output/Random, а For Binary - тогда еще можно на что-то рассчитывать.

Допустим, у тебя на руках есть готовый массив байт. Тогда это будет выглядеть примерно так:

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

Dim Z as long, S as string, Arr() as Byte

' Заполняем массив Arr() данными с диска

S=vbnullstring
for z=lbound(Arr()) to UBound(Arr())
  S = S & Hex(Arr(z))
next z
Me.Text1.Text = S

Думаю, не обидишься, если скажу, что писать весь код меня банально ломает .

[zona09]

Если напишеш весь код буду очень благодарен!!!

[tyomitch]

Засунуть в TextBox строку, содержащую Chr(0), невозможно никакими ухищрениями. Хоть из байтового массива, хоть откуда.

Предлагаю zona09 действительно рассказать, что же ему нужно.

[Dex]

А помойму zona09 хочет чтоб в TextBox'е появлялся код программы, но
помоему это вооще не возможно