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

Поиск:

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


Опытный
**


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

Репутация: нет
Всего: нет
Как мне выделить два последних символа в тексте и удалить их. т.е. есть некий текст в richTextBox, как мне удалить две последние буквы в этом тексте при нажатии на кнопку.


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


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Private Sub Form_Load()
a = "курды-бурды"
b = Left(a, Len(a) - 2)
End Sub




--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Akina
Дата 9.3.2007, 23:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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

b=right(a,2)



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
abalich
Дата 10.3.2007, 00:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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


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


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


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

Репутация: 34
Всего: 454
Но вообще правильно так:

Код

b=iif(len(a)>1,right(a,2),a)



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Данкинг
Дата 10.3.2007, 01:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Гы, в VB же Right есть, вот что значит, давно его не юзал.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
JusTalionis
Дата 10.3.2007, 13:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 17
Right удалит всё, и оставит только две последние. Если я правильно понял, что автору нужно, то вариант с Left был правильным.
PM MAIL   Вверх
abalich
Дата 10.3.2007, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

Right удалит всё, и оставит только две последние. Если я правильно понял, что автору нужно, то вариант с Left был правильным.

Это ты правильно заметил.... smile 

Это сообщение отредактировал(а) abalich - 10.3.2007, 19:14
PM MAIL WWW   Вверх
Данкинг
Дата 10.3.2007, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(JusTalionis @ 10.3.2007,  13:35)
Right удалит всё, и оставит только две последние. Если я правильно понял, что автору нужно, то вариант с Left был правильным.

А, точно, значит, я был прав всё же. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Black_Star
Дата 11.3.2007, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 4
Всего: 4
Цитата(Akina @  10.3.2007,  01:06 Найти цитируемый пост)
Но вообще правильно так:

код Visual Basic
1:

b=iif(len(a)>1,right(a,2),a)

Фи, как некрасиво... И зачем усложнять код?
Знаете-ли Вы, тов. модератор, что при IIF выполняется не только проверка, но и 2 последующих выражения? Т.е. при такой записи выполнится и right(a,2), и a !!! А зачем, если и сам Right с этим справляется без всяких доп. условий?
MSDN:
Цитата

Numeric expression indicating how many characters to return. If 0, a zero-length string is returned. If greater than or equal to the number of characters in string, the entire string is returned.

Да, и для строковых переменных лучше юзать Right$ - быстрее ;)
PM ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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