Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > выделить две последние буквы в тексте

Автор: abalich 9.3.2007, 21:48

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

Автор: Данкинг 9.3.2007, 21:55

Код


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

Автор: Akina 9.3.2007, 23:48

Код


b=right(a,2)

Автор: abalich 10.3.2007, 00:12

Спасибоооооо!

Автор: Akina 10.3.2007, 01:06

Но вообще правильно так:

Код


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

Автор: Данкинг 10.3.2007, 01:22

Гы, в VB же Right есть, вот что значит, давно его не юзал.

Автор: JusTalionis 10.3.2007, 13:35

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

Автор: abalich 10.3.2007, 19:13

Цитата

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

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

Автор: Данкинг 10.3.2007, 19:31

Цитата(JusTalionis @ 10.3.2007, 13:35)

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

Автор: Black_Star 11.3.2007, 10:10

Цитата(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$ - быстрее ;)