Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как Выделить тект до пробела 
:(
    Опции темы
abalich
Дата 9.3.2007, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 434
Регистрация: 26.2.2007
Где: Воронеж

Репутация: нет
Всего: нет



У меня есть текст (например - как твои дела) как мне выделить "как" -  (но вместо "как" - может стоять любое слово)?
т.е. мне надо выделить текст до первого пробела


--------------------
Мой дядя самых честных "грабил"...
PM MAIL WWW   Вверх
Кирилл
Дата 9.3.2007, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 7.11.2006
Где: Воронеж

Репутация: 1
Всего: 1



С  начала? Не включая пробел? Тогда держи:
Код

stroka="как твои дела"
a=InStr(stroka," ")
print left(a-1)

PM MAIL   Вверх
abalich
Дата 9.3.2007, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 434
Регистрация: 26.2.2007
Где: Воронеж

Репутация: нет
Всего: нет



Цитата

С  начала? Не включая пробел? Тогда держи:
Код

stroka="как твои дела"
a=InStr(stroka," ")
print left(a-1)


Нет!!ты не понял!! я не буду знать какой там текст т.е. у меня Textbox в нем кто-нибудь пишет любой текст после нажимает кнопку и должен выделиться текст до первого пробела!!!


--------------------
Мой дядя самых честных "грабил"...
PM MAIL WWW   Вверх
Naghual
Дата 9.3.2007, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



abalich, именно реализацию потавленной вами задачи и показал Кирилл.
А что до того, что переменная stroka в его примере задается константно - так это сугубо для примера. С той же целью там и print.  smile 

Это сообщение отредактировал(а) Naghual - 9.3.2007, 21:40


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 10.3.2007, 00:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Код неверен. Не предусматривает краевых условий. Приведет к Run-Time Error в случаях:
  • в строке нет пробела
  • пустая строка



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
abalich
Дата 10.3.2007, 00:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 434
Регистрация: 26.2.2007
Где: Воронеж

Репутация: нет
Всего: нет



Цитата

Код неверен. Не предусматривает краевых условий. Приведет к Run-Time Error в случаях:
в строке нет пробела
пустая строка

Строк пустых не будет и пробелы будут точно.
А как мне реализовать следующее:
В RichTextBox имеется следующий текс
abalich poaedaed 25844204425
sulemor awdaf 67364668845
ksusha wdwd21 92344516514
baby 000000 47801417111
spoa 585858 97272902726
susa 585858 32355481385
guest fucker 39047145843
(получаются три колонки)
И есть ещё один textBox в него вводится одно слово и если есть это слово в первой колонке(только в первой) то какая - нибудь опирация!!


--------------------
Мой дядя самых честных "грабил"...
PM MAIL WWW   Вверх
bom
Дата 10.3.2007, 00:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6



Цитата(abalich @  10.3.2007,  03:18 Найти цитируемый пост)
как мне реализовать следующее

Разобраться как работает оператор InStr и начать использовать его самостоятельно.


PM MAIL   Вверх
Akina
Дата 10.3.2007, 01:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Модератор: Одна тема - один вопрос.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Black_Star
Дата 11.3.2007, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4



А все смотрят в книгу и видят...
В примере Кирилла есть грубая ошибка! Что за Left(a-1) ? Должно быть Left$(Stroka,a-1) !!!

Цитата(Akina @  10.3.2007,  00:01 Найти цитируемый пост)
Код неверен. Не предусматривает краевых условий. Приведет к Run-Time Error в случаях:
в строке нет пробела
пустая строка

Тут согласен. Все из-за a-1. Но в случае с пробелом это решается просто...
Код

stroka="как твои дела"
a=InStr(stroka," ")
print Trim$(left$(stroka,a))

А в случае "не пробел" тоже просто  smile 
Код

...
a=InStr(stroka,FindChar)
print Replace(Left$(Stroka, a), FindChar, "")

где FindChar - искомый символ (может быть и пробел)
Усё smile
PM ICQ   Вверх
Akina
Дата 11.3.2007, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Ну можно вообще так:

Код

Dim Temp() As String
Temp = Split(a," ")
b=Temp(0)



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Black_Star
Дата 12.3.2007, 09:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4



Можно, если текст не особенно большой .
PM ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0660 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.