| Вопрос: Помощь! | Добавлено: 20.02.04 22:57 |
Автор вопроса:  HyperMen | Web-сайт: www.phpworld.net.ru
|
|
Кто знает, как присвоить переменной S число которое находится после слова поворот 45 Т.е. переменной S надо присвоить 45 или другое число (какое будет) Еще вопрос: Как считывать с textbox построчно? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 21.02.04 00:31 |
|
Можно пробовать циклом каждую букву (цифру) и проверять ее на IsNumeric()...Ну а ежель знать либо длинну слова либо длинну числа, то можно пользоваться Right/Left/Mid, а если имеется какой-то разделитель, то можно и Split'ом воспользоваться... |
||
|
Номер ответа: 2 Автор ответа: Neco ICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #2 | Добавлено: 21.02.04 02:58 |
|
s=val(mid$(WithPov,8)) По второму: Строка всегда заканчивается vbCrLf, иначе это не строка. v=0 do i=i+1 v=instr(v+1,text1,vbcrlf) if v=0 then exit do redim preserve a$(i) a$(i)=mid$(text1,pastv+2,v-1) pastv=v loop Насчёт (+2) и (-1) могу ошибиться, там проще подбором сделать, поставив на той строке точку останова. |
||
|
Номер ответа: 3 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #3 | Добавлено: 21.02.04 12:33 |
|
По первому: Если слово находится в произвольном месте текста, то просто Mid не пойдет, сначала используй InStr(). По второму: Private Sub Command1_Click() Dim StringMassive() As String StringMassive() = Split(Text1.Text, vbCrLf) 'Получаешь массив, каждый элемент которого - строка текста. End Sub |
||
Страница: 1 |