| Вопрос: Все до первого пробела | Добавлено: 31.07.06 16:37 |
Автор вопроса:  i0ngunn3r
|
|
Есть, например, текстбокс с постоянно изменяющимися значениями "x y z". "x" может иметь разную длину (y и z, естественно, тоже :)). Как можно оставить только "y z" (или " y z")?
Значения могут быть числовыми/текстовыми. Генерируются случайно. :) |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа: [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #1 | Добавлено: 31.07.06 18:01 |
|
Option Explicit
Dim arrTab() As String Dim intCount As Integer Private Sub Command1_Click() arrTab() = Split(Text2.Text, " " 
For intCount = 1 To UBound(arrTab()) Text1.Text = Text1.Text & " " & arrTab(intCount) Next End Sub |
||
|
Номер ответа: 2 Автор ответа:  SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #2 | Добавлено: 31.07.06 18:05 |
|
right(t, len(t)-instr(t, " ")
|
||
|
Номер ответа: 3 Автор ответа: i0ngunn3r Вопросов: 11 Ответов: 30 |
Профиль | | #3 | Добавлено: 31.07.06 18:13 |
Уххх.. Спасибо огромное 
|
||
|
Номер ответа: 4 Автор ответа: _ICE_ ICQ: 354-671-214 Вопросов: 18 Ответов: 103 |
Профиль | | #4 | Добавлено: 01.08.06 12:58 |
|
dim Ins as integer
ins = instr(1,text1.text," "
text1.text = mid$(text1.text,ins+1,len(text1.text) |
||
Страница: 1 |