Проблема с массивом

[Kolobuk]

Привет.

Есть такой вот код:

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

Option Explicit

Private Sub Command1_Click()
Dim IMYA() As String
ReDim IMYA(2) As String

IMYA(0) = "12345"
IMYA(1) = "1234567"
IMYA(2) = "123456789"

Open App.Path & "\ZZZ.ZZ" For Binary As #3 Len = 1
Put #3, 1, IMYA
Close #3
End Sub

В файл ZZZ.ZZ записывается такая штука:
0500 (integer)
12345 (string)
0700 (integer)
1234567 (string)
0900 (integer)
123456789 (string)

------------
Как я понял перед строками указывается длина строки. Откуда она вообще берётся? Мне нужно чтобы строки подряд шли без 0500, 0700 и т.д.

Придётся использовать цикл для записи массива в файл? Или я что-то упустил?

-------------------
П.С.: Пример - упрощённый.
И спаибо за внимание

[tyomitch]

Как я понял перед строками указывается длина строки. Откуда она вообще берётся? Мне нужно чтобы строки подряд шли без 0500, 0700 и т.д.

Они все равной длины?
Если нет, то как тогда ты их прочитаешь назад?

[Kolobuk]

ну на самом деле формат файла такой:
оффсеты (пыти доступа до начало каждого из имён), потом блок с именами.
Из оффсетов берём и длину имён.
------
Избавиться от 0500 и т.п. можно как то?

[EUGY]

StrConv( IMYA(0)) , vbUnicode) ?
...
или может Put #3, 1, Join(IMYA()) ?
...
И ваще, фантазия на что?

[Kolobuk]

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

IM_EDINO = JOIN(IMYA, "")
Put #3, 1, IM_EDINO

Идеально
Спасибо!