Как в конце строке (позий от 1 до 5) символ "n" и заменить его на "N "

СтрЗаменить чем плохо?

1+ или используй Прав и Сред/Лев

(0) Вот здесь v8: с помощью какой функции удалить запятую из строки уже научились удалять запятую с конца, действуй аналогично (:

и СокрЛП... и вааще v8: с помощью какой функции удалить запятую из строки

(3) и (4) Одновременно))) вы случайно не Братья?

Я бы вот после небольшого знакомства РегЭксп заюзал бы...

(5) Все мы братья на этой земле... (:

Брат а как искать в строке Символ, есть он или нет?

я точно не знаю где в конце может быть символ "n"

(8)
Для каждого Символ из Строка
  если Символ="n" Тогда
    Сообщить("Символ есть!");
  КонецЕсли
КонецЦикла

(5) это вы братья с семьдесят вторым максимом. Одновременно один и тот же вопрос задаете.

(11) Я бы мог сам написать процедурку по этому...но вспомнил что сегодня пятница и есть драгоценный форум MISTA.

C Пятницей Товарищи!!!

Цикл ном=1 по СтрДлина(Строка)
  если Найти(Сред(Строка,ном,1)="n" Тогда
    Сообщить("Символ n есть! В позиции:"+ном);
  КонецЕсли
КонецЦикла

(12) Спасиба таварисчь. Я так и подумал: ента ветка - пятничный развод - это OFF

по регистру Буквы будет смотреть? Мне нужно "n"

(14) Я Братьев не развожу, тАвАрисчЬ!

есть функция Символ(кодСимвола) помоему , в синтаксис-помошнике посмотри

Синтаксис:
КодСимвола(<Строка>, <Номер символа>)

Брат скажи вот так?

Цикл ном=1 по СтрДлина(Строка)
  если Найти(Сред(Строка,ном,1)=КодСимвола("n") Тогда
    Сообщить("Символ n есть! В позиции:"+ном);
  КонецЕсли
КонецЦикла

Цикл ном=СтрДлина(Строка)-5 по СтрДлина(Строка)
  если Сред(Строка,ном,1)=Символ(КодСимвола("n")); Тогда
    Сообщить("Символ n есть! В позиции:"+ном);
  КонецЕсли
КонецЦикла
так наверно

А лучше так
Цикл ном=СтрДлина(Строка)-5 по СтрДлина(Строка)
  если КодСимвола(Сред(Строка,ном,1))=КодСимвола("n"); Тогда
    Сообщить("Символ n есть! В позиции:"+ном);
  КонецЕсли
КонецЦикла

Вот так будет работать:
   RegExp = Новый COMОбъект("VBScript.RegExp");
   RegExp.Global = Истина;
   RegExp.ignorecase=Ложь;
   RegExp.Pattern = "n$";
   Сообщить(RegExp.Replace(АнализируемСтроку,"N"));


АнализируемСтроку = nтара  цсащотл шоцртулдо увс n
nтара  цсащотл шоцртулдо увс N
Щас подумаю как сделать чтобы меняла т не в конце строки а просто последнюю

(21) Дык "n" не последняя а пред-Предпоследняя или предпредпредполсдняя

2(22)Подожди, ща покурю...

а тебе не пофиг до регистра? (если N на N) заменит

(24) Дык мне нужно заменить на "N " (N с пробелом)

а на "№" нельзя заменить?

кури Perl скриптинг, он под это заточен

(26) неа... нельзя. Есть строчки такие "Плоарпв апрвло n20"(не правильно),"плаопр аопвапрова n100"(не правильно), "Рпаплв авплва N 10" ( правильно!)

а ответ "Рпаплв авплва №10" ( правильно или нет?)

(29) с № не правильно будет. Так как "Рпаплв авплва N 10" ( правильно!) а остальные "Плоарпв апрвло n20"(не правильно) Форматирую вот в пятницу.

(28) стрЗаменить("n", "N ")

(31) +     Строка = стрЗаменить(Строка, "n", "N ")

(30 ) можно так

ПозицияПоследнегоn =  ПозицияПоследнегоn(Строка);

Если ПозицияПоследнегоn > 0 Тогда
   Строка = Лев(Строка, ПозицияПоследнегоn - 1) + "N " + Сред(Строка, ПозицияПоследнегоn + 1)

КонецЕсли;

стр=Прав(НеПравельныйОтвет,5)
стрЗаменить(стр,"n", "N ")
ПравельныйОтвет=Лев(НеПравельныйОтвет,СтрДлина(НеПравельныйОтвет)-5)+стр

Че-та как-то туго курицца....

Вот получилось вот такое:
   RegExp = Новый COMОбъект("VBScript.RegExp");
   RegExp.Global = Истина;
   RegExp.ignorecase=Ложь;
   RegExp.Pattern = "n(....$)|n(...$)|n(..$)|n(.$)|n($)";
   ОтНачалаДоПоследней_n = RegExp.Replace(АнализируемСтроку,"");
   RegExp.Pattern = ОтНачалаДоПоследней_n;
   ОтПоследней_n_ДоКонца = RegExp.Replace(АнализируемСтроку,"");
   RegExp.Pattern = "^n";
   КонецС_N=RegExp.Replace(ОтПоследней_n_ДоКонца,"N ");
   RegExp.Pattern = ОтПоследней_n_ДоКонца;
   ВРезультате =  RegExp.Replace(АнализируемСтроку,КонецС_N);
   Сообщить(ВРезультате);

На наверное нужно с Lookahead-улсовием (я пока не умею), ну и вообще наверняка как-то это можно одной строкой без лишних промежуточных вычислений и переменных

2(34) и у тебя и у меня заменит первую "n" из последних 5 символов.. А нужно - последнюю... то есть нужно как бы строку с конца обрабатывать...

(35) Вирус!! ага? я по времени проверю кто быстрей обрабатывать будет.

Подскажите как в строке уже заменить символ с известным местом

   Цикл ном=СтрДлина(Рег.naim)-5 по СтрДлина(Рег.naim)
                если КодСимвола(Сред(Рег.naim,ном,1))=КодСимвола("n"); Тогда
                     // Тут заменяем
                КонецЕсли
                КонецЦикла

(36) в Тему Брат куришь! прям в точку. Строка ведь может меньше 5 символов быть! (Ошибку выдаст)

(35) жжошь =)
RegExp.Pattern = "n.{1,5}$";  

Значения в фигурных скобках - минимвальное и максимальное количество повторений

Ай, блин, ваще тупим....
Если без регекспов то так:
   ном=СтрДлина(АнализируемСтроку);
   Пока ном<>СтрДлина(АнализируемСтроку)-5 Цикл
       Если КодСимвола(Сред(АнализируемСтроку,ном,1))=КодСимвола("n") Тогда
           // Тут заменяем

           прервать;
       КонецЕсли;
       ном=ном-1;
   КонецЦикла

(39) Понел, спасибо.. а то я не понимал как..

(41) http://www.providers.ru/articles/php/regexp-intro.html

вдруг пригодится...

(39) Но все равно.. например вот из такой строки
"My e-mails is anso@mail.ru and anso@usa.netn"
И твой и дурацкий мой шаблон выделит "netn", а нужно только последнюю "n"


Либо: из
"My e-mails is anso@mail.ru and anso@usa.nent"
Нужно выделить "nt", а будет выделено "nent"

Можно как-то с таким справиться?

Длина = СТрДлина(Строка);

Для к = 1 по Длина Цикл
  Поз = Длина - к +1;
  Если КодСимвола(Строка,Поз) = КодСимвола("n") Тогда
      Строка = Лев(Строка,Поз-1) + "N " + Сред(Строка,Поз+1);
      Прервать;
  КонецЕсли;
КонецЦикла

Вообще конечно даже не "nt" а просто только одну последню  "n"

(44) Зачот!

(43) если все же через Регэкспы воевать, то Excecute() вернет массив (коллекцию чего то там), берем тока последний и вуаля (или бляяяя, если где то накосячили)

Для ПЯтницы есть снесхождения в моем случаи что при поиске в строке есть пробел. например "Kjffgfdn fjdg fjd n100"

(47) Э... Ну хорошо, получили мы допустим "ntnt"... Каким РегЕкспом из этого поулчить "ntN t"?

я подозреваю, что можно написать как
RegExp.Pattern = "n\s\d";

- находит последовательность символ n, пустой символ за ним (пробел или табуляцию) и цыфру

ежели " n" все же несколько.

стр = СтрЗаменить(Строка," n", Символы.ПС);
КолвоСтрок = СтрЧислоСтрок(стр);
Если КолвоСтрок = 1 Тогда //нету " n" то и нечего делать
;
Иначе
   КонцеваяСтрока = "N " + СтрПолучитьСтроку(стр,КолвоСтрок);
   Строка = Лев(Строка,СтрДлина(Строка) - СтрДлина(КонцеваяСтрока) + 2) + КонцеваяСтрока;
КонецЕсли;

Цикл ном=0 по 4
ОбратныйНомер=СтрДлина(Строка)-ном
Симв=Сред(Строка,ОбратныйНомер,1)

  если КодСимвола(Симв)=КодСимвола("n"); Тогда
    НоваяСтрока= Лев(Строка,ОбратныйНомер)+"N "+Прав(Строка,ОбратныйНомер+1);
  КонецЕсли
КонецЦикла

На строку короче 5 символ
и отсутсвие символа n можно поставить отдельную проверку