| Вопрос: Действия со строками | Добавлено: 11.10.04 23:51 |
Автор вопроса:  Sania | ICQ: 347442784 |
|
Скажите пожалуйста как мне получить например вторую букву строки,
можноли перебрать все семволы спомощю for'а. |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #1 | Добавлено: 12.10.04 00:15 |
|
Ничего не надо перебирать. Для этого есть Mid$ - выбирает из строки часть, начиная с определенной позиции и определённой длины.
Dim Bukva As String, Slovo As String Slovo = "Слово" Bukva = Mid$(Slovo, 2, 1) MsgBox Bukva |
||
|
Номер ответа: 2 Автор ответа:  neo_matrix ICQ: 337536389 Вопросов: 4 Ответов: 13 |
Профиль | | #2 | Добавлено: 12.10.04 14:29 |
| Ну, я согласен с cresta | ||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 12.10.04 19:26 |
Не удержусь, скажу 
neo_matrix, а как тут можно не согласиться  Обычно молчание - согласие, а у тебя все наоборот )
Ну да чтобы не быть как neo_matrix, предложу несколько иной способ, но рабочий
Dim slovo as string, bukvi() as byte slovo = "Hello" bukvi = StrConv(slovo, vbFromUnicode) Call MsgBox(Chr$(bukvi(1))) |
||
|
Номер ответа: 4 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #4 | Добавлено: 12.10.04 21:42 |
|
Что-то часто народ постит, чтобы просто согласиться. Может мне тоже попробовать:
Я согласен с neo_matrix, что он согласен со мной 
|
||
|
Номер ответа: 5 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #5 | Добавлено: 12.10.04 22:19 |
|
О, а я согласен на счет вашего совместного согласия и не без удовольствия к вам присоединюсь:
Я СОГЛАСЕН! )) :~))
|
||
|
Номер ответа: 6 Автор ответа: Sania ICQ: 347442784 Вопросов: 18 Ответов: 7 |
Профиль | | #6 | Добавлено: 13.10.04 01:06 |
|
Ну спасибо. |
||
|
Номер ответа: 7 Автор ответа: Piton_4mВопросов: 10 Ответов: 26 |
Профиль | | #7 | Добавлено: 13.10.04 06:44 |
|
For I = 1 To Len(Text1.Text) If Mid(UCase(Text1.Text), I, 1) = "T" Then MsgBox I & Mid(Text1.Text, I, 1) End If Next Ucase нужен для перевода символов из нижнего в верхний регист... Вместо "T" можешь вставлять любой символ даже целую строку, но тогда Length у оператора Mid меняй на длинну символов..... |
||
|
Номер ответа: 8 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #8 | Добавлено: 13.10.04 08:49 |
|
А я согласен с cresta, что он согласен с нео, что тот согласен с cresta, но вот я что-то никк не могу понять/согласиться с Graymorda, или я т\что-то пропустил ?
|
||
|
Номер ответа: 9 Автор ответа: Piton_4mВопросов: 10 Ответов: 26 |
Профиль | | #9 | Добавлено: 13.10.04 11:13 |
|
можноли перебрать все семволы спомощю for'а. - помоему человек этот вопрос задавал????
|
||
|
Номер ответа: 10 Автор ответа: Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #10 | Добавлено: 13.10.04 16:27 |
| тогда отвечаем, МОЖНО, но зачем.. когда есть Mid$ или вышеприведенный советы. | ||
|
Номер ответа: 11 Автор ответа: ⊗WaX⊗Вопросов: 26 Ответов: 325 |
Web-сайт: Профиль | | #11 | Добавлено: 15.10.04 15:54 |
|
А интересно за сколько подобных постов я догоню по количеству ув. sne
и какой должен быть pps (posts per second) ))
|
||
|
Номер ответа: 12 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #12 | Добавлено: 15.10.04 22:53 |
| догонять следует тов. Павла... он у нас лидер форума... да еще, за компанию, и администратор с автором... | ||
Страница: 1 |