powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Массивы символов
5 сообщений из 5, страница 1 из 1
Массивы символов
    #35700032
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день.
появилась следующая ситуация. Нужно создать массив символов, к каждому элементу которого я смог бы обратится по его индексу. В С++ это выглядело бы так:
Код: plaintext
1.
2.
3.
4.
char *arr;
char chr;
arr= "abcdefghijklmnopqrstuvwxyz";
chr = arr[ 1 ];
На выходе мы получили бы букву "b". Есть ли возможность сделать что-то подобное в Visual Basic 6?
...
Рейтинг: 0 / 0
Массивы символов
    #35700067
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
    Dim avarItems As Variant
    
    avarItems = Array("a", "b", "c", "d", "e")
    
    Debug.Print avarItems( 1 )
...
Рейтинг: 0 / 0
Массивы символов
    #35700070
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim s as String
Dim i as Integer
Dim arr() as String

s="abcdefghijklmnopqrstuvwxyz"

Redim arr(Len(s)- 1 )

For i= 1  to Len(s)
   arr(i- 1 )=Mid(s,i, 1 )
Next

Debug.Print arr( 1 )
...
Рейтинг: 0 / 0
Массивы символов
    #35700076
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
    Dim avarItems As Variant
    
    avarItems = Split("a b c d e f g h i", " ")
    
    Debug.Print avarItems( 1 )
...
Рейтинг: 0 / 0
Массивы символов
    #35700385
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем спасибо, то что надо, получилось.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Массивы символов
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]