Найти в файле слово и заменить его.

[BDSoft]

Мне нужно найти слово(несколько байт) в файле и изменить их.
Я пытаюсь сделать это так:

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

Dim VER2 As String * 4    ' сигнатура
Dim ETXT As String * 1    ' cлово
Const FileName = "E:\Games\GTA San Andreas mods\Plant_ruined_MOD\MOD.IMG"

Private Sub Command1_Click()
'Сохраняем файл
Open FileName For Binary As #1
VER2 = Text1
    Put #1, , .VER2
    Close #1
    Text1 = RTrim(.VER2)
End Sub

Private Sub Form_Load()
'Открываем файл
Open FileName For Binary As #1
    Get #1, , VER2
    Close #1
    Text1 = RTrim(VER2)
End Sub

Короче как изменить размер переменой (незнал как назвать )

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

Dim ETXT As String * 1

вот эту еденичку, на размер слова (len(text2))

Блин, ну написал. Надеюсь вопрос понятен. [/code]

[Хакер]

Обявляешь переменнуб просто без * 1

Когда нужно установить её размер делаешь:

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

Peremennaya = Space(нужный раземр)


или

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

Peremennaya = String(нужный раземр, Chr(0))


[tyomitch]

К слову: String отлично понимает коды символов, и вместо "Peremennaya = String(нужный раземр, Chr(0))" можно писать просто "Peremennaya = String(нужный раземр, 0)".

[Хакер]

Знаю, но поскольку автор видимо не знает ничего о данной функции, и есть нажать Ctrl+I - ничего не сказано о типа, 2-ого аргумента. Так вот чтобы автор не мучался вопросом что же это за 0, и почему не 2 и не 3. Я поставил туда Chr() чтобы он примерно понял что это символ - который следует откопировать n раз.

[BDSoft]

Большое спосибо, всё понял!