powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Массив
8 сообщений из 8, страница 1 из 1
Массив
    #32974603
se112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Народ хелп мне плиз.
Есть массив в строке у него несколько знаков. Можно ли как нить взять 3 или 4 знак в строке отдельно(а не целую строку как он выдает) и как это сделать.
...
Рейтинг: 0 / 0
Массив
    #32974663
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
Mid(string,  3 ,  1 )


Magnus
...
Рейтинг: 0 / 0
Массив
    #32974666
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Mid$(string, start, length)



Magnus
...
Рейтинг: 0 / 0
Массив
    #32974813
se112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
вот у меня такая фишка. И как мне сделать, чтоб вывелся первый символ.
List1_load
d = List1.List(3)
List2.AddItem d
v=???????
MsgBox v
...
Рейтинг: 0 / 0
Массив
    #32974819
se112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
se112вот у меня такая фишка. И как мне сделать, чтоб вывелся первый символ.
List1_load
d = List1.List(3)
List2.AddItem d
v=???????
MsgBox v

верней не первый а любой другой
...
Рейтинг: 0 / 0
Массив
    #32974842
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что именно не понятно?
Mid$(d, 3, 1)

RTFM STFW

Magnus
...
Рейтинг: 0 / 0
Массив
    #32974941
se112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну если честно, не работает. Конечно я не совсем представляю куда вставлять, он выдает ошибку синтаксиса
...
Рейтинг: 0 / 0
Массив
    #32974942
se112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот так пока прога целиком выглядит
Private Sub List1_load()
Open "d:\proba\1.xls" For Input As #1
Dim s As String
While Not EOF(1)
Input #1, s
' MsgBox s
List1.AddItem s
Wend
Close #1
End Sub


Private Sub Command1_Click()
List1_load
d = List1.List(3)
List2.AddItem d
???????

End Sub
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Массив
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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