| Вопрос: Помогите пожалуйста! | Добавлено: 20.09.07 22:38 |
Автор вопроса:  Boconon | Web-сайт: microsoft.com | ICQ: 216390557 |
|
Имеется текстбокс, в нем большой список, каждая строка которого имеет вид:
что-то [пробел] данные [:] что-то Как получить список состоящий из одних данных, безо всякого что-то. это что-то всегда разной длинны. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 20.09.07 23:09 |
| см. фции Mid and InStr | ||
|
Номер ответа: 2 Автор ответа: Stuart Вопросов: 5 Ответов: 152 |
Профиль | | #2 | Добавлено: 21.09.07 00:51 |
|
Вот что-то вроде этого.
Кинь на форму 2 текстовых поля и 1 кнопку, в код кнопки напиши: Dim x As Long Dim y As Long Dim l As Long x = InStrRev(Text1.Text, " " 
x = Val(1) + Val(x) y = InStrRev(Text1.Text, ":"
Text2.Text = Mid(Text1.Text, x, Len(Text1.Text)) l = Len(Text1.Text) - y + 1 Text2.Text = Replace(Text2.Text, Mid(Text1.Text, y, l), ""
Теперь запусти прогу, в первом текстовом поле впиши следующий текст: «Сегодня семинар:верно» затем нажми на кнопку и во втором текстовом поле появится слово «семинар». Короче покопайся получше в строковых функциях!. |
||
|
Номер ответа: 3 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #3 | Добавлено: 21.09.07 06:43 |
|
st="aaa bbb:ccc"
a=split(split(st,":" (0)," "(0)
b=split(split(st,":" (0)," "(1)
c=split(st,":" (1)
|
||
|
Номер ответа: 4 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #4 | Добавлено: 21.09.07 09:55 |
| А в этом что-то есть пробелы и двоеточия? Если нет, то тебе остается только выбрать из предложенного(конечно есть и еще варианты). А это что-то - одинаковое в начале и конце? | ||
Страница: 1 |