Помогите решить задачку.

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Толстый
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 13.02.2007 (Вт) 16:01
Откуда: МСК

Помогите решить задачку.

Сообщение Толстый » 13.02.2007 (Вт) 16:47

Здравствуйте обитатели форума!
Не знает ли кто-нибудь hex редактора с поддержкой макро?
Я недавно занялся vba и добился определенных успехов, но теперешняя задача завела меня в тупик. Необходимо файл (расширение и программа с ним работающая ничего Вам не даст) отредактировать, т.е. произвести автозамену определенных слов (из созданной ранее БД). Сложность в том, что он содержит и текс, и рисунки и т.д. и т.п. (даже скрипты в нем). Решить эту задачу с помощью excel мне удалось, но с небольшими оговорками - файл "усыхает" раз в 10, т.к. убираются все 0 (достал hex-editor и проверил).
Посоветуйте пожалуста.

З.Ы. Да, я ламер в программировании, но хочу научиться.

VB-constructor
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 160
Зарегистрирован: 24.07.2006 (Пн) 21:37
Откуда: Ростов-на-Дону

Сообщение VB-constructor » 13.02.2007 (Вт) 17:27

Толстый
Сложность в том, что он содержит и текс, и рисунки и т.д. и т.п.
Это не сложность... :wink: replace рулит, пусти его в поиск... ну также еще научись читать и записывать файл :shock:

для наводки:
Код: Выделить всё
Option Explicit
Dim F As Byte
Dim MyText As String

Private Sub Command1_Click()

    F = FreeFile
    Open App.Path & "\Save.txt" For Output As #F
        Print #F, Text1.Text
    Close #F
   
End Sub

Private Sub Command2_Click()

    F = FreeFile
    Open App.Path & "\Save.txt" For Input As #F
    Do Until EOF(F)
        Line Input #F, MyText
        Text1.Text = Text1.Text + MyText
    Loop
    Close #F

End Sub

Private Sub Form_Load()

    Text1.Text = ""

End Sub
Человек рождён для того, чтобы достичь жизни...

Толстый
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 13.02.2007 (Вт) 16:01
Откуда: МСК

Сообщение Толстый » 13.02.2007 (Вт) 17:32

Проблемма собственно вот в чем:
Открываю, редактирую, записываю - а он "усыхает" стирая пустые места.
Думаю что можно заставить сторонее приложение (WinHex или Hex Editor) выполнять автозамену, но как послать на него команду? В excel это как-то проще все.

VB-constructor
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 160
Зарегистрирован: 24.07.2006 (Пн) 21:37
Откуда: Ростов-на-Дону

Сообщение VB-constructor » 13.02.2007 (Вт) 19:57

Что значит усыхает??? покажи код
Человек рождён для того, чтобы достичь жизни...

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сообщение Ennor » 13.02.2007 (Вт) 21:21

А где в рисунках слова? Разумеется, если ты не распознавалку антиботовой защиты пишешь :)

dr.MIG
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1441
Зарегистрирован: 18.12.2004 (Сб) 9:53
Откуда: г.Ярославль

Сообщение dr.MIG » 15.02.2007 (Чт) 12:19

Как открываешь файл для работы с ним? Что бы ничего не исчезало открывай For Binary.
Salus populi suprema lex


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 104

    TopList