Удаление символов с конца строки

@vuasya · Регистрация: 26.08.2013

Студворк — интернет-сервис помощи студентам

Допустим есть строка : 213srdadRasRRRRRR , нужно удалить буквы "R" находящиеся в конце строки. Простое stringreplace не подойдет, ибо она удалит все "R" , а мне нужно только определенные. Можете подсказать способ ?

@NIKOLAYY · 14.11.2014, 13:17

Сообщение от vuasya

нужно удалить буквы "R" находящиеся в конце строки.

Находиш конец строки, функция Length, далее определяеш от какого символа и сколько символов удалить.

Сообщение от vuasya

Простое stringreplace не подойдет, ибо она удалит все "R" , а мне нужно только определенные.

Лови код, работает на ура! Удалит только последнюю букву. (их количество можеш в коде изменить).

Delphi

var
  stroka: string;
begin
  stroka:= '213srdadRasRRRRRR';
  Label1.Caption:= stroka;
  Delete(stroka, Length(stroka) -1 , 1);
  Label2.Caption:= stroka;
end;

@NIKOLAYY · 14.11.2014, 13:19

То есть вот так последнюю букву, а там выше предпоследнюю в коде было.

Delphi

1	Delete(stroka, Length(stroka), 1);

@vuasya · 14.11.2014, 13:21 **[ТС]**

да эт понятно, но кол-во букв повторяющихся в конце мне не известно. Вот в чем траблы ...

@D1973 · 14.11.2014, 13:25

Сообщение от vuasya

но кол-во букв повторяющихся в конце мне не известно

Но тебе ведь известно, сколько букв с конца удалять? Так в чем проблема?

@NIKOLAYY · 14.11.2014, 13:25

Сообщение от vuasya

кол-во букв повторяющихся в конце мне не известно. Вот в чем траблы ...

Тебе нужен парсинг.
Мне например известно их количество, я их спарсить регуляркой сумею. А тебе незнаю тогда что делать.
И вобще ты сам то хоть понял сколько букв тебе удалять (все R, не все R) и только ли с конца стороки? А вдруг посередине еще будут они стоять, а вдруг вначале стоки.

@Доцент · 14.11.2014, 13:42

Вам нужно удалить все повторяющиеся буквы с конца? Делайте цикл запоминайте кубвы и удаляйте пока не сталкнётесь с другой буквой

@NIKOLAYY · 14.11.2014, 13:47

Сообщение от Доцент

Вам нужно удалить все повторяющиеся буквы с конца?

Он незнает что ему нужно, поэтому и непнятно какой код ему нужен.

@vuasya · 14.11.2014, 13:49 **[ТС]**

Сообщение от NIKOLAYY

вдруг посередине еще будут они стоять, а вдруг вначале стоки.

вот именно, что их мне удалять не надо, только с конца. Иначе бы я просто использовал stringreplace.

Сообщение от Доцент

Делайте цикл запоминайте кубвы

не пойдет т.к удалять мне нужно только с конца, если в середине строки встретится буква R, то ее нужно оставить

Сообщение от D1973

Но тебе ведь известно, сколько букв с конца удалять?

нет, не известно

@NIKOLAYY · 14.11.2014, 14:18

vuasya,
Узнаем какая последняя буква в строке и если эта буква = R то начинаем отсчет в цикле назад чтобы узнать сколько их стоит в конце строки (пока ненарвемся на другой символ)
Теперь мы знаем сколько их, соответственно можем и указать в коде начиная с какого символа удалять и до конца строки. Подойдет такой код?

@NIKOLAYY · 14.11.2014, 15:14

vuasya,
Вот держи, так ты наверное хотел, удаляем все буквы с конца строки в цикле до тех пор, пока эта буква = R

Delphi

var
  stroka: string;
begin
  stroka := '213srdadRasRRRRRR';
  Label1.Caption := stroka;
  while stroka[Length(stroka)] = 'R' do
    Delete(stroka, Length(stroka), 1);
  Label2.Caption := stroka;
end;

@vuasya · 14.11.2014, 15:56 **[ТС]**

огромное спасибо ^^

@NIKOLAYY 841 / 736 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	14.11.2014, 14:18	10
	vuasya, Узнаем какая последняя буква в строке и если эта буква = R то начинаем отсчет в цикле назад чтобы узнать сколько их стоит в конце строки (пока ненарвемся на другой символ) Теперь мы знаем сколько их, соответственно можем и указать в коде начиная с какого символа удалять и до конца строки. Подойдет такой код? 0

@vuasya 1 / 1 / 2 Регистрация: 26.08.2013 Сообщений: 381
	14.11.2014, 15:56 [ТС]	12
	огромное спасибо ^^ 0

@vuasya 1 / 1 / 2 Регистрация: 26.08.2013 Сообщений: 381
		1
	Удаление символов с конца строки 14.11.2014, 11:43. Показов 13399. Ответов 11 Метки нет (Все метки) Допустим есть строка : 213srdadRasRRRRRR , нужно удалить буквы "R" находящиеся в конце строки. Простое stringreplace не подойдет, ибо она удалит все "R" , а мне нужно только определенные. Можете подсказать способ ? 0

@vuasya 1 / 1 / 2 Регистрация: 26.08.2013 Сообщений: 381
	14.11.2014, 13:21 [ТС]	4
	да эт понятно, но кол-во букв повторяющихся в конце мне не известно. Вот в чем траблы ... 0

@D1973 Модератор 8686 / 5735 / 2306 Регистрация: 21.01.2014 Сообщений: 24,573 Записей в блоге: 3
	14.11.2014, 13:25	5
	Сообщение от vuasya но кол-во букв повторяющихся в конце мне не известно Но тебе ведь известно, сколько букв с конца удалять? Так в чем проблема? 0

@NIKOLAYY 841 / 736 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	14.11.2014, 13:25	6
	Сообщение от vuasya кол-во букв повторяющихся в конце мне не известно. Вот в чем траблы ... Тебе нужен парсинг. Мне например известно их количество, я их спарсить регуляркой сумею. А тебе незнаю тогда что делать. И вобще ты сам то хоть понял сколько букв тебе удалять (все R, не все R) и только ли с конца стороки? А вдруг посередине еще будут они стоять, а вдруг вначале стоки. 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	14.11.2014, 13:42	7
	Вам нужно удалить все повторяющиеся буквы с конца? Делайте цикл запоминайте кубвы и удаляйте пока не сталкнётесь с другой буквой 0

@NIKOLAYY 841 / 736 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	14.11.2014, 13:47	8
	Сообщение от Доцент Вам нужно удалить все повторяющиеся буквы с конца? Он незнает что ему нужно, поэтому и непнятно какой код ему нужен. 0

@vuasya 1 / 1 / 2 Регистрация: 26.08.2013 Сообщений: 381
	14.11.2014, 13:49 [ТС]	9
	Сообщение от NIKOLAYY вдруг посередине еще будут они стоять, а вдруг вначале стоки. вот именно, что их мне удалять не надо, только с конца. Иначе бы я просто использовал stringreplace. Сообщение от Доцент Делайте цикл запоминайте кубвы не пойдет т.к удалять мне нужно только с конца, если в середине строки встретится буква R, то ее нужно оставить Сообщение от D1973 Но тебе ведь известно, сколько букв с конца удалять? нет, не известно 0

Опции темы

Удаление символов с конца строки

Решение