Синтаксис Mid$(a$,n%) = Chr$(n%)

[John_AK]

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


a$ = Space$(255)
For n% = 1 To 255
     Mid$(a$,n%) = Chr$(n%)
Next


Как оно работает

[Alexander N. Samarin]

a$ = Space$(255)
дает 255 пробелов и заносит в a$

Mid$(a$,n%) = Chr$(n%)
Каждому n-му пробел -заменяется на ASCII-символ с номером (n+1)

В результате получается строка, состоящая из 255 ASCII символов

[Ennor]

Инициирует строку 255 пробелами.
Объявляет цикл по N от 1 до 255 включительно.
В цикле каждый N-ный символ заменяется с пробела на соответствующий по номеру из ASCII-таблицы.
Повторяет цикл.

А что?

[VOS]

Как оно работает

А работает оно абсолютно по-тупому...
Если серьезно, то создает "запробеленную" строку, а потом замещает все символы по порядку символами с соответствующими ASCII-кодами... На мой взгляд проще (по крайней мере, менее извращенно )

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

a$=""
For I=1 To 255
a$=a$+Chr$(I)
Next I


Не уверен, конечно, что у какого-нибудь профа не возникнет возражений насчет этого метода...

[John_AK]

Смущает присваение
Mid$(a$,n%) = Chr$(n%)
т.е. присваеваем функции
Просто не знал что такие финты возможны

получается Mid$(a$,n%) указывает на кусок строки

[Ennor]

Смущает присваение
Mid$(a$,n%) = Chr$(n%)
т.е. присваеваем функции
Просто не знал что такие финты возможны

получается Mid$(a$,n%) указывает на кусок строки

А ты набери слово Mid и нажми F1. Откроется страница с выбором, по какому именно Mid тебе справка нужна - по функции или по инструкции (statement). ЕМНИП, она такая одна, по крайней мере сейчас навскидку я больше ничего аналогичного вспомнить не могу. Но бывает весьма полезно, как в этом случае...

[John_AK]

Мда
Иногда полезно букварь перечитать

[alibek]

На мой взгляд проще (по крайней мере, менее извращенно )

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

a$=""
For I=1 To 255
a$=a$+Chr$(I)
Next I


Не уверен, конечно, что у какого-нибудь профа не возникнет возражений насчет этого метода...

Может и проще, но не лучше.
Первый способ не столь нагляден, но с точки зрения быстродействия и работы с памятью лучше. Возможно, что в разы.

[Qubicz]

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

Dim a As String*255
For n% = 1 To 255
     Mid$(a$,n%) = Chr$(n%)
Next

Так вроде еще можно... только а будет постоянной длины