Работа со строками

[AlexB]

Можно ли строку преобразовать в массив символов???

[Draco]

Можно

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

dim масив()
redim масив(len(текст))
dim i as long
for i=1 to len (текст)
масив(i) = mid(текст,i,1)
next i


[Cyrax]

лучше уж так:

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

Dim myArr() As Byte

myArr = myString

правда это будет байтовый массив, символы из которого надо будет выбирать с использованием функции Chr$

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

mySymbol = Chr$(myArr(n))

[AlexB]

Спасибо Draco все работает.


Способом Cyrax'a массиву ничего не присваевается.

[Cyrax]

Способом Cyrax'a массиву ничего не присваевается.

что значит "ничего не передается"? а ты проверял?
а это что?

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

Private Sub Form_Load()
  Dim bMyArr() As Byte
  Dim sMyString As String
 
  sMyString = "Test"
 
  bMyArr = sMyString
  Print bMyArr
  Print bMyArr(2)
  Print Chr$(bMyArr(2))
End Sub

[AlexB]

Sorry Cyrax, все получилось