Имя: Пароль:
1C
 
Как убрать из строки буквы и символы, оставить только цифры?
Ø
0 bugas
 
04.08.06
09:53
Есть № заказа, например МЭ00127200. Нужно получить только цифры для дальнейшей работы.
1 bugas
 
04.08.06
09:57
up
2 Ийон
 
04.08.06
10:01
НовыйНомерДок="";
Для Ном=1 По ДлинаСтроки(НомерДок) Цикл
 ТекущийСимвол=...
НовыйНомерДок=НовыйНомерДок+?(Найти("0123454566789",ТекущийСимвол)=1,ТекущийСимвол,"");
КонецЦикла
3 Hadgehogs
 
04.08.06
10:02
Если количество и порядок букв известны, то копируй в строку все, кроме них, Если неизвестно - тогда посимвольно проходись по строке, смотри ASCI-код, накладывай условие. Все. Если интересно - попробую код написать.
4 Hadgehogs
 
04.08.06
10:04
Ийон, а мне насчет фильтрации списка документов подсказать ничего не сможешь?
5 VZ
 
04.08.06
10:14
(4) Запросом.
6 AndreySpb
 
04.08.06
10:19
(0) А делается это примерно так:
RegExp=Новый COMОбъект("VBScript.RegExp");
RegExp.MultiLine=Ложь;
RegExp.Global=Ложь;
RegExp.IgnoreCase=Истина;
RegExp.Pattern="[0-9]";
Совпадения=RegExp.Execute(НомерДок);
НомерБезБукв="";
Для Каждого Совп Из Совпадения Цикл
НомерБезБукв=НомерБезБукв+Совп.Value;
КонецЦикла;
7 Ийон
 
04.08.06
10:24
Подавил интеллектом...
=) =) =)
Записки невесты программиста читал?
8 AndreySpb
 
04.08.06
10:40
(7) нет, давай почитать...
9 Ийон
 
04.08.06
10:51
http://www.books.a-vo.com/book.php?fn=Wife90.rar
10 Gloom
 
04.08.06
10:54
(6)Так будет точнее:
===============================
  RegExp.Global = Истина;
  RegExp.IgnoreCase = Истина;
  RegExp.Pattern = "[^0-9]";
  НомерБезБукв = RegExp.Replace(НомерДок, "");
11 AndreySpb
 
04.08.06
11:14
(10) Ага, ты прав... Как это я сразу не подумал...