Как програмно указать размер Строковой переменной?

[TrueTrue]

Не знаю, как правильно это назвать,

есть Строковая переменная, допустим

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

Dim Word as String * 10

В конце я могу указать её размер в байтах, в данном случае 10.

Мне необходимо знать, как можно этот размер устанавливать ДИНАМИЧЕСКИ? тоесть програмно, в коде. Это вобще реально? или только так, при старте, единожды?

[Viper]

Мне необходимо знать, как можно этот размер устанавливать ДИНАМИЧЕСКИ? тоесть програмно, в коде. Это вобще реально? или только так, при старте, единожды?

Массив символов?

[Debugger]

Просто

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

Dim Word as String

?

[TrueTrue]

Мне необходимо знать, как можно этот размер устанавливать ДИНАМИЧЕСКИ? тоесть програмно, в коде. Это вобще реально? или только так, при старте, единожды?

Массив символов?

Не катит.

Вобщем смысл такой, что мне нужно, считывать файлы в режиме Binary, файлы разного размера, их много. Я их Считываю Get и Put. Проделываю необходимые манипуляции и записываю обратно. По началу, пока файлов было мало, работало прекрасно. Но вот сейчас, файлов всё больше и побайтовое чтение занимает очень много времени. В другой режим перейти не могу, потому что пишу в файлы именно Байты, от ASC(0 - 255)

Как увеличить скорость? Попробовал менять размер переменной, по размеру файла. Тоесть допустим

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

Dim ReadBinary as String * 1566
Seek 1,1
Get 1,,ReadBinary

работает в разы быстрее. Но проблема-то в том, что фалов много и каждый своего размера от 20 байт, до 6000 байт.
А скорость с каждым файлом, падает существенно....


Вобще-то, теоретически, должен был бы работать вот такой вот оборот:

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

Dim ReadBinary as String
Get 1,1566,ReadBinary

Но он почему-то нифига не работает и я вобще не помню, что бы он хотя бы когда-нибудь работал в VB6.

[Mikle]

Зачем нужны строки вообще, если в файле байты?

фалов много и каждый своего размера от 20 байт, до 6000 байт

При таких размерах я бы редимил байтовый массив под размер файла, каждый файл считывал целиком за раз, а потом из массива делил как надо.

[alibek]

Вобщем смысл такой, что мне нужно, считывать файлы в режиме Binary,

S$ = Space$(N)
ReDim B(1 To N)

Но проблема-то в том, что фалов много и каждый своего размера от 20 байт, до 6000 байт.

Глупо и бессмысленно.
Нужно создавать буфер в размер файла и считывать за раз.
Система оптимизирует считывание намного эффективнее.
Ограничивать размер буфера есть смысл только в случае очень больших файлов и лимитов на использование памяти.

Но он почему-то нифига не работает и я вобще не помню, что бы он хотя бы когда-нибудь работал в VB6.

Нужно нажать F1 и почитать документацию.
Все работает, если делать правильно.

[TrueTrue]

Зачем нужны строки вообще, если в файле байты?

фалов много и каждый своего размера от 20 байт, до 6000 байт

При таких размерах я бы редимил байтовый массив под размер файла, каждый файл считывал целиком за раз, а потом из массива делил как надо.

Ты имеешь ввиду режим файла INPUT? А разве INPUT не режет байты ASC (0) и другие???? Мне просто нельзя нарушать структуру файлов. Потому и считываю их в Binary.

Просто я не знаю, как в BINARY, считать весь файл целиком? ну кроме того, если задать размер переменной.

[alibek]

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

Dim B() as Byte
ReDim B(1 To Lof(1))
Get 1, , B()


[Mikle]

Я имел ввиду именно в Binary, alibek показал как.

[TrueTrue]

Опа, спасибо, первый раз вижу такую конструкцию. Не знал вобще, что так можно.

[Teranas]

Опа, спасибо, первый раз вижу такую конструкцию. Не знал вобще, что так можно.

Даже странно. Размер буфера по размеру файла, дело обычно, в том числе для новичков.
А вот если файл здоровенный то эффективней читать по частям, и чтение целиком вызовет гемор.