| Вопрос: И еще один вопрос... | Добавлено: 29.08.05 17:19 |
Автор вопроса:  DR*FRe$H | ICQ: 3442442 |
| Есть все тот же RichTextBox. В нем все те же много строк. В нескольких первых строках (неизвестно скольких) написан текст. А в остальных - числа. Вопрос: а как узнать - какая строка начинается с цифры. Заранее спасибо! =) |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 29.08.05 17:28 |
|
ну перебрать все...
Strings = Split(RichTextBox1.Text, vbCrLf) For i = 0 to Ubound(Strings) str$ = Strings(i) If val(str$) <> 0 Then 'Значит там числа ... Else 'Значит текст ... End if Next i |
||
|
Номер ответа: 2 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 29.08.05 17:41 |
| Только вместо Val лучше бы isNumeric юзать. Результат не совсем одинаковый. | ||
|
Номер ответа: 3 Автор ответа: DR*FRe$H ICQ: 3442442 Вопросов: 9 Ответов: 7 |
Профиль | | #3 | Добавлено: 29.08.05 17:52 |
| Я пишу этот код, запускаю, а он выделяет строку "str$ = Strings(i)" и пишет "Function call on left-hand side of assignment must return Variant or Object". В чем проблема? | ||
|
Номер ответа: 4 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #4 | Добавлено: 29.08.05 18:12 |
Наверное потому что str$ - функция  Других имен что ли не было?
|
||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 29.08.05 18:14 |
|
Dim Strings() As String [B]Dim Str As String[/B] Strings = Split(Text1.Text, vbCrLf) For i = 0 To UBound(Strings) Str$ = Strings(i) If IsNumeric(Str$) = True Then 'Значит там числа '... Else 'Значит текст '... End If Next i |
||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 29.08.05 18:17 |
|
хм... а чё в коде жирным нельзя выделяет? Шо б слейдущей версии исправили! )
2 DR*FRe$H Dim Str As String = Dim Str As String ну и Strings = Split(Text1.Text, vbCrLf) не Text1 а RichTextBox1 мне просто влом подключать было |
||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 29.08.05 18:20 |
|
мля а тут выделело, без же ) ну короче все поняли что я имел ввиду
|
||
|
Номер ответа: 8 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #8 | Добавлено: 29.08.05 18:21 |
|
о! я придумал как линию чертить )))))))) (см. пред ответ) сорри за оффтоп
))
|
||
|
Номер ответа: 9 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #9 | Добавлено: 29.08.05 18:35 |
| Просто на будущее - не нужно использовать в качестве имен переменных зарезервированные слова. Могут возникникать подобные проблемы. | ||
|
Номер ответа: 10 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #10 | Добавлено: 30.08.05 05:13 |
|
Не надо выделений в коде, неохота смотреть на изуродованный код С++ типо a[i]++;
|
||
Страница: 1 |