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


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



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

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

RTFM STFW

Magnus
...
Рейтинг: 0 / 0
22.03.2005, 23:11:54
    #32974941
se112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массив
Ну если честно, не работает. Конечно я не совсем представляю куда вставлять, он выдает ошибку синтаксиса
...
Рейтинг: 0 / 0
22.03.2005, 23:14:31
    #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
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Массив / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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