Строки фиксированной длины

[Faust]

Возможно ли объявить строковую переменную фиксированой длины, если эта длина на момент объявления хранится в другой переменной (узнать длину заранее невозможно, т.к. она определяется пользователем)? Заранее благодарен.

[vilin]

Чтобы объявить строку фиксированной длины, пиши:

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

Dim Length as Integer
       Length = 50
Dim MyString(Length) as String

В процессе выполнения проги можно изменять переменную Length...

[Vovik]

Чтобы объявить строку фиксированной длины, пиши:

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

Dim Length as Integer
       Length = 50
Dim MyString(Length) as String

В процессе выполнения проги можно изменять переменную Length...

ХА!...Ты просто создал одномерный массив из 50 элементов...эт тебе не трубо паскаль

А зачем тебе строка с фиксированной длинной? Басик выделяет память динамически, в отличае от паскаля... В принципе можно потом проверить строку на длинну...
Dim Str as string
if Len(str)>'твоего значения' then 'аболтус, строка длиннее, чем надо'

[vilin]

Извините, перепутал...

[Faust]

А зачем тебе строка с фиксированной длинной?

Объясняю: требуется работать с файлом произвольного доступа, длина записи которого заранее неведома. При попытке использовать в операторе Put строку динамической длины возникает ошибка о неправильной длине записи (даже если предварительно длина переменной "подганялась" под длину записи). При использовании строк фиксированной длины глюк исчезает.

[Vovik]

А зачем тебе строка с фиксированной длинной?

При попытке использовать в операторе Put строку динамической длины возникает ошибка о неправильной длине записи ...

А что, кроме оператора Put никак нельзя записать в файл... Используй другие операторы...

[Faust]

А что, кроме оператора Put никак нельзя записать в файл... Используй другие операторы...

Поподробней, пожалуйста. Что Вы предлагаете?

[Faust]

А что, кроме оператора Put никак нельзя записать в файл... Используй другие операторы...

Поподробней, пожалуйста. Что Вы предлагаете?

[Faust]

А что, кроме оператора Put никак нельзя записать в файл... Используй другие операторы...

Поподробней, пожалуйста. Что Вы предлагаете?

[A.A.Z.]

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

Open "File" For Output As #1 'открывает файл, стирает всё его содержимое и пишет (если файл не существует - делает его)
Print #1, s 's-строка
Close #1

Open "File" For Append As #1 'открывает файл, пишет в него, дописывая в конец
Print #1, s 's-строка
Close #1


[xolod]

Как ты пользуешься командой Put??

[Vi]

Возможно ли объявить строковую переменную фиксированой длины, если эта длина на момент объявления хранится в другой переменной (узнать длину заранее невозможно, т.к. она определяется пользователем)?

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

  Dim str As String
  str = String(strlen, " ")

Здесь str будет строкой вполне определенного размера, годной для передачи куда-нибудь или для чтения/записи.

[Faust]

Всем спасибо. Метода задавать строки фиксированной длины через не-константы я не нашел, а с записью в файлы произвольного доступа разобрался. При открытии файла следует задавать длину записи на 2 байта больше, чем максимальный размер строки динамической длины. В этих-то двух байтах будет хранится её размер. То есть:

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

Dim S As String
S="1234567890"
Open App.Path & "\list.exp" For Random As #1 Len = Len(S) + 2
Put #1,1,S
Close #1


будет работать.

ЗЫ. А файл, из-за которого все начиналось, я теперь обрабатываю в Binary - вот так жизнь складывается ...

[Faust]

Всем спасибо. Метода задавать строки фиксированной длины через не-константы я не нашел, а с записью в файлы произвольного доступа разобрался. При открытии файла следует задавать длину записи на 2 байта больше, чем максимальный размер строки динамической длины. В этих-то двух байтах будет хранится её размер. То есть:

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

Dim S As String
S="1234567890"
Open App.Path & "\list.exp" For Random As #1 Len = Len(S) + 2
Put #1,1,S
Close #1


будет работать.

ЗЫ. А файл, из-за которого все начиналось, я теперь обрабатываю в Binary - вот так жизнь складывается ...