| Вопрос: VB6. Рич | Добавлено: 10.06.06 11:19 |
Автор вопроса:  SRV | ICQ: 254226129 |
| Привет ребята, подскажите как прочитать в РИЧЕ самую последнюю строку и запихнуть её в переменную :) Спасибо. |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  Tamplier ICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #1 | Добавлено: 10.06.06 11:36 |
|
l=InStrRev(rich1.Text, Chr(10)&chr(13), 1,vbBinaryCompare)
Str=Right(Rich1.Text,l) |
||
|
Номер ответа: 2 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #2 | Добавлено: 10.06.06 15:41 |
| Str=Right(Rich1.Text,l) - классическая ошибка - нельзя давать переменной имя Str, т.к. это встроенная функция Str(Value). Просто к сведению. | ||
|
Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 10.06.06 15:57 |
|
Private Sub Form_Load()
Dim Str As String Str = "Можно!" MsgBox Str End Sub |
||
|
Номер ответа: 4 Автор ответа: SRVICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #4 | Добавлено: 10.06.06 17:23 |
Хакер ты прикалываешься или как? 
Это я и сам знаю, вопрос в другом состоит
|
||
|
Номер ответа: 5 Автор ответа: SRVICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #5 | Добавлено: 10.06.06 17:26 |
| Тампилер, шото не катит, пустая переменная | ||
|
Номер ответа: 6 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #6 | Добавлено: 10.06.06 17:37 |
| вы ещё форму Me назовите | ||
|
Номер ответа: 7 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #7 | Добавлено: 10.06.06 18:01 |
|
Private Sub Form_Load()
Dim Str As String Dim Form As String Const Name = " Ой как можно, а!" Dim Form1 As Boolean Str = "Можно!" Form = "Опять можно!" Form1 = True msgbox Str & Form & Name End Sub Это придаст коду максим удобства и читаемости по мнению HACKERа... |
||
|
Номер ответа: 8 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #8 | Добавлено: 10.06.06 18:07 |
|
Еще кое-что: вместо всеми
горячолюбимых Chr(10) & chr(13) есть целых 3 способа, немного попроще: vbNewLine
vbCrLf vbCr & vbLf |
||
|
Номер ответа: 9 Автор ответа: SRVICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #9 | Добавлено: 10.06.06 18:21 |
| Кароче шото не то вы пишете, мне же нужно из РИЧА самую последнюю строку!!!! | ||
|
Номер ответа: 10 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #10 | Добавлено: 10.06.06 21:13 |
|
а шо я? я ж ничё, то просто к сведению )
2 SRV Dim STR$ ' ))
Dim tmpArr() as String tmpArr = Split (Rich1.Text, vbCrLf) STR$ = tmpArr(Ubound(tmpArr)) |
||
|
Номер ответа: 11 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #11 | Добавлено: 10.06.06 23:58 |
Кстати, мне не удалось использовать слово Me не по назначению: удавалось с именами функций (кроме Instr почему-то), с опреаторами, именами контролов, а вот Ме не в какую. С ним видать полиморфизм (так кажется называется это фишка) не поддерживается... 
|
||
|
Номер ответа: 12 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #12 | Добавлено: 13.06.06 14:18 |
|
Блин, пока ответ писал деньги кончились... Так что теперь не вижу смысла отвечать
|
||
|
Номер ответа: 13 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #13 | Добавлено: 14.06.06 11:47 |
|
Это что, намек на то чтоб тебя угостили? Ну, дружище, нынче за пару пива люди даже студентам задачки решают
|
||
Страница: 1 |