Строки длиннее 64К

[SmarT]

Народ, есть способы сделать стрингу длинее 64К ? (нужно 300).
Я знаю, что такая тема где-то тут была, но поиск не работает, поэтому пишу снова.

[Amed]

Попробуй засунуть данные сначала в несколько string, а потом из них в один Variant...

По-моему, Variant поддерживает хранение до 2 Гб данных

[GoGosha]

Возможно подойдет массив байт

[Amed]

ИМХО, массив байт хужее, чем одна Variant

[SmarT]

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

[GoGosha]

Ну это просто!
Массив, содержащий первый файл
Массив, содержищий второй файл
CopyMemory

Если куски не одинакового размера, то придётся ещё третий массив делать

[Amed]

Тээкс... Не понимаю, в чём проблема...

Ты ведь знаешь, какой длины кусок ты собрался заменять?

Const FilePartLenght as Long = 100

Dim ByteCont As Byte '!!! Переменная, содержащая байт, только в формате Byte !!!
Dim BytePos as Long 'Порядковый номер байта

Open FileName1 For Binary As #1 'Открываем файл, ИЗ которого берём кусок
Open FileName2 For Binary As #2 'Открываем файл, В который мы этот кусок пишем
For BytePos=1 to FilePartLenght
Get #1, BytePos, ByteCont 'Берём байт
Put #2, BytePos, ByteCont 'Пишем байт
Next BytePos
Close #2 'Закрываем файл 2
Close #1 'Закрываем файл 1

Всё ведь понятно?
Записываем в файл FileName2 кусок диапазоном 1-100 байт из файла FileName1...

Или я чего-нибудь недопонял?

[SmarT]

Огромное спасибо!!!!!!!!!
Пасиб!!!!
Чувак, ты гений!!!!!
Спасибо!

[Amed]

Да не за что собственно

А я уже "Продвинутый пользователь"

[GSerg]

Я, конечно, извиняюсь...
Но только строки фиксированноой длины имеют ограничение 64К.
Строки переменной длины его не имеют.
Так что не вижу проблемы вообще.

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

Dim a As String
a = Space$(300000)
get #1,position,a

[SmarT]

Да, действительно..Тоже пасиб!