Поиск и замена в word документе по шаблону

@proft · Регистрация: 12.04.2011

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

Добрый день.
Гуру форума подскажите, как реализовать поиск и замену в word файлах цифры типа 10500.67 , 150.3 или 2.2 на цифры 10.500,67, 150,3 ; 2,2 и т.д.
Для данной замены Find.Execute, судя по всему, не подходит.
Использование регулярных выражений regex - не приложу ума как применить для документа.

@proft · 18.03.2021, 15:18 **[ТС]**

ViterAlex, взгляните пожалуйста.
Грубо? Метод проходит по тексту, но не находит совпадений.

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
            using (WordprocessingDocument wordDoc = WordprocessingDocument.Open(document, true))
            {
                var body = wordDoc.MainDocumentPart.Document.Body;
                var paras = body.Elements<Paragraph>();
                Regex regexText = new Regex(@"[\d]+\,[\d]+");
                
                foreach (var para in paras)
                    foreach (var run in para.Elements<Run>())
                        foreach (var text in run.Elements<Text>())
                                     {
                           // if (Regex.IsMatch(text, regexText, RegexOptions.IgnoreCase))
                    ////        {
                    //
                    //        }
                  ///          else
                  //          { 
                            
                  //          }
                            text.Text = regexText.Replace(text.Text,String.Format("{0:n}", text));
                            MessageBox.Show("Конец", "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Information);
                           
 
                        }
                wordDoc.Save();
            }

@ViterAlex · 18.03.2021, 15:32

proft, немного неверная логика была: диапазон поиска всё время сбрасывался. Пробуй так:

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
static void SearchAndReplace(Word.Document doc)
{
    var rng = doc.Range();
    rng.SetRange(0, doc.Range().End);
    while (true)
    {
        rng.Find.Text = "<[0-9]@,[0-9]@>";
        rng.Find.Forward = false;
        rng.Find.MatchWildcards = true;
        if (rng.Find.Execute())
        {
            var rngStart = rng.Find.Parent.Start;
            doc.Range(rngStart, rng.Find.Parent.End).Text = FormatNumber(rng.Text);
            rng.SetRange(0, rngStart);
        }
        else
        {
            return;
        }
    }
}

@proft · 18.03.2021, 16:17 **[ТС]**

ViterAlex, Спасибо )
Применил.

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
        private static string FormatNumber(string text)
        {
            //NumberStyles.AllowDecimalPoint            NumberStyles.Number
            if (double.TryParse(text, NumberStyles.Number, CultureInfo.InvariantCulture, out double number))
            {
                var ci = CultureInfo.CreateSpecificCulture("en-US");
                var nf = (NumberFormatInfo)ci.NumberFormat.Clone();
                //десятичный разделитель
                nf.NumberDecimalSeparator = ".";
                //Разделитель групп
                nf.NumberGroupSeparator = ",";
                ci.NumberFormat = nf;
                return number.ToString("n", ci);
 
            }
            return text;
        }
 
        static void SearchAndReplace(Word.Document doc)
        {
            var rng = doc.Range();
            rng.SetRange(0, doc.Range().End);
            while (true)
            {
                rng.Find.Text = "<[0-9]@,[0-9]@>";
                rng.Find.Forward = false;
                rng.Find.MatchWildcards = true;
                if (rng.Find.Execute())
                {
                    var rngStart = rng.Find.Parent.Start;
                    doc.Range(rngStart, rng.Find.Parent.End).Text = FormatNumber(rng.Text);
                    rng.SetRange(0, rngStart);
                }
                else
                {
                    return;
                }
            }
        }

Получается запятая убирается и к полученному числу применяется шаблон указанной культуры.
=)

@proft · 18.03.2021, 16:49 **[ТС]**

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

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
        private static string FormatNumber(string text)
        {
            //NumberStyles.AllowDecimalPoint            NumberStyles.Number
            if (double.TryParse(text, NumberStyles.Number, CultureInfo.InvariantCulture, out double number))
            {
                var cul = CultureInfo.CreateSpecificCulture("en-US");
                return number.ToString("N", cul);
              //  return number.ToString("N", nf);
 
            }
            return text;
        }
 
        static void SearchAndReplace(Word.Document doc)
        {
            var rng = doc.Range();
            rng.SetRange(0, doc.Range().End);
            while (true)
            {
                rng.Find.Text = "<[0-9]@,[0-9]@>";
                rng.Find.Forward = false;
                rng.Find.MatchWildcards = true;
                if (rng.Find.Execute())
                {
                    var rngStart = rng.Find.Parent.Start;
                    doc.Range(rngStart, rng.Find.Parent.End).Text = FormatNumber(rng.Text);
                    rng.SetRange(0, rngStart);
                }
                else
                {
                    return;
                }
            }
        }

такое ощущение, что при обработке FormatNumber(string text) скидывается запятая и уже к полученному тексту/числу применяется культура как к целому числу, без дробной части.

@ViterAlex · 18.03.2021, 20:11

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

думал, что проблема в предоставлении культуры

Проблема в "N". Нужно пробовать что-то другое

@proft · 19.03.2021, 10:23 **[ТС]**

ViterAlex, Доброе утро.
Получилось.
Немного изменил.
Взгляните, может я что-то не учёл?

C#
1
2
3
4
5
6
7
8
9
        private static string FormatNumber(string text)
        {
            if (double.TryParse(text, out double number))
            {
                     return number.ToString("N", CultureInfo.CreateSpecificCulture("en-US"));
                    Console.WriteLine(number);
            }
            return text;
        }

@ViterAlex · 19.03.2021, 13:03

proft, это вариант будет работать только в том случае, если формат номера совпадает с культурой потока.

@proft · 19.03.2021, 19:31 **[ТС]**

Понял. Спасибо за помощь!

Новые блоги и статьи Все статьи Все блоги /
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .
сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .	Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .

@proft 321 / 289 / 104 Регистрация: 12.04.2011 Сообщений: 925

	Поиск и замена в word документе по шаблону 11.03.2021, 17:10. Показов 5443. Ответов 47 Метки нет (Все метки) Добрый день. Гуру форума подскажите, как реализовать поиск и замену в word файлах цифры типа 10500.67 , 150.3 или 2.2 на цифры 10.500,67, 150,3 ; 2,2 и т.д. Для данной замены Find.Execute, судя по всему, не подходит. Использование регулярных выражений regex - не приложу ума как применить для документа. 0

@ViterAlex 8953 / 4865 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	19.03.2021, 13:03
	proft, это вариант будет работать только в том случае, если формат номера совпадает с культурой потока. 0

@proft 321 / 289 / 104 Регистрация: 12.04.2011 Сообщений: 925
	19.03.2021, 19:31 [ТС]
	Понял. Спасибо за помощь! 0