Записать в текстовый файл общее количество всех знаков и слов

@Roman_Semeniuk1 · Регистрация: 08.05.2017

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

Есть вот такая програмка (работает без проблем)

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
40
41
42
43
44
45
46
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;
using System.Text.RegularExpressions;
using System.Net;
 
namespace Regex_and_Stream_8lab
{
    class Program
    {
        static void Main(string[] args)
        {
            try
            {
                StreamReader fileIn = new StreamReader("text.txt", Encoding.GetEncoding(1251));
                StreamWriter fileOut = new StreamWriter("newText.txt", false);
                string a;
                string[] lines;
                a = fileIn.ReadToEnd();
                lines = a.Split(' ', '\n');
                Array.Sort(lines);
                bool b;
                foreach (string item in lines)
                {
                    Regex r = new Regex(@"\w[a-z]{1,10000}\w");
                    b = r.IsMatch(item);
                    if (b == true)
                    {
                        fileOut.WriteLine("\""+item + "\" length = "+item.Length+" sings");
                    }
                }
                fileIn.Close();
                fileOut.Close();
                Console.WriteLine("Done");
            }
            catch (Exception e)
            {
                Console.Write("Error");
            }
            Console.ReadKey();
        }
    }
}

Мне еще нужно штобы ета програма в текстовый файл newtext.txt записывала общее количество всех знаков (в том числе буквы цыфри знаки (, . ! и тд и тп)) и коичество слов...........На скриншоте 1 видно результат(програма выводит длину каждого слова отдельно), а на втором скрине видно што записано в изначальном документе для коректирования text.txt .....
P.S.штобы програма работала нужно штобы в папке где находитса файл .exe был документ text.txt)
Зарание спасибо)))

magirus · 09.11.2017, 19:12

положи туда документ

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

text.txt

с нужным форматом.

@Roman_Semeniuk1 · 09.11.2017, 19:16 **[ТС]**

magirus, все на месте нужна помощь с кодом.... Што имено вписать не понимаю............

@Aferuga · 10.11.2017, 04:57

Да че тут вписывать:

Кликните здесь для просмотра всего текста

C#
1
2
3
4
5
6
7
8
9
            try
            {
             Dictionary<char, int> di = s.Distinct().OrderBy(p => p).ToDictionary(p => p, p => s.Count(p2 => p2 == p));
            foreach (var it in di) fileOut.WriteLine(String.Format("{0} кол-во:{1}", it.Key, it.Value));
            fileOut.WriteLine(String.Format("кол-во строк:{0}", lines.Count());
                fileIn.Close();
                fileOut.Close();
                Console.WriteLine("Done");
            }

@Roman_Semeniuk1 · 10.11.2017, 10:17 **[ТС]**

Aferuga, Да спасибо ваш вариант работает, но... НЕ так как надо, уж извините за придирки...

@Roman_Semeniuk1 · 12.11.2017, 11:06 **[ТС]**

Aferuga,

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
40
41
42
43
44
45
46
47
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;
using System.Text.RegularExpressions;
using System.Net;
 
namespace Regex_and_Stream_8lab
{
    class Program
    {
        static void Main(string[] args)
        {
            try
            {
                StreamReader fileIn = new StreamReader("text.txt", Encoding.GetEncoding(1251));
                StreamWriter fileOut = new StreamWriter("newText.txt", false);
                string a;
                string[] lines;
                a = fileIn.ReadToEnd();
                lines = a.Split(' ', '\n');
                Array.Sort(lines);
                bool b;
                foreach (string item in lines)
                {
                    Regex r = new Regex(@"\w[a-z]{1,10000}\w");
                    b = r.IsMatch(item);
                    if (b == true)
                    {
                        fileOut.WriteLine("\""+item + "\" length = "+item.Length+" sings");
                    }
                }
            fileOut.WriteLine(String.Format("кол-во слов:{0}", lines.Count()));
                fileIn.Close();
                fileOut.Close();
                Console.WriteLine("Done");
            }
            catch (Exception e)
            {
                Console.Write("Error");
            }
            Console.ReadKey();
        }
    }
}

с вашей частю кода програма работает и щитает общее количество слов в документе.... Подскажыте пожалуста как посщитат общее количество букв... На скрине видно што щитает буквы каждого слова отдельно, как додать ети значения?

@Aferuga · 13.11.2017, 02:37

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

Да спасибо ваш вариант работает, но... НЕ так как надо, уж извините за придирки...

Как объяснили так и написал.
Судя по скриншоту нужно как-то так:

C#
1
            fileOut.WriteLine(String.Format("кол-во слов:{0}  length = {1} sings", lines.Count(), lines.Sum(p => p.Length)));

@Roman_Semeniuk1 · 13.11.2017, 09:51 **[ТС]**

Aferuga, да и еще одна вещь, извините забьііл я когда попробовал работать с руским (или украинским) а програма не читает ето текс только английские слова ... Подскажьіте што сделать?)

@Aferuga · 14.11.2017, 02:49

По идее этого должно хватить:

Кликните здесь для просмотра всего текста

C#
1
2
3
StreamWriter fileOut = new StreamWriter("newText.txt", true, Encoding.GetEncoding(1251));
...
                    Regex r = new Regex(@"\w[a-z,а-я]{1,10000}\w");

@Roman_Semeniuk1 · 14.11.2017, 09:30 **[ТС]**

Aferuga, увы не работает))) Но да ладно и на том спасибо!!!)))

@Aferuga · 14.11.2017, 09:42

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

Aferuga, увы не работает)))

Дело в кодировке исходного файла.
Сперва сохраните через StreamWriter файл, а потом используйте именно его.

@Roman_Semeniuk1 · 14.11.2017, 09:44 **[ТС]**

Aferuga, Спасибо) Ето уже не принцыпиально, но на етим ищё подумаю)

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

Записать в текстовый файл общее количество всех знаков и слов

Решение

Решение

@Roman_Semeniuk1 10 / 0 / 0 Регистрация: 08.05.2017 Сообщений: 136
	09.11.2017, 19:16 [ТС]
	magirus, все на месте нужна помощь с кодом.... Што имено вписать не понимаю............ Миниатюры 0

@Roman_Semeniuk1 10 / 0 / 0 Регистрация: 08.05.2017 Сообщений: 136
	10.11.2017, 10:17 [ТС]
	Aferuga, Да спасибо ваш вариант работает, но... НЕ так как надо, уж извините за придирки... 0

@Roman_Semeniuk1 10 / 0 / 0 Регистрация: 08.05.2017 Сообщений: 136
	13.11.2017, 09:51 [ТС]
	Aferuga, да и еще одна вещь, извините забьііл я когда попробовал работать с руским (или украинским) а програма не читает ето текс только английские слова ... Подскажьіте што сделать?) 0

@Roman_Semeniuk1 10 / 0 / 0 Регистрация: 08.05.2017 Сообщений: 136
	14.11.2017, 09:30 [ТС]
	Aferuga, увы не работает))) Но да ладно и на том спасибо!!!))) Миниатюры 0

@Roman_Semeniuk1 10 / 0 / 0 Регистрация: 08.05.2017 Сообщений: 136
	14.11.2017, 09:44 [ТС]
	Aferuga, Спасибо) Ето уже не принцыпиально, но на етим ищё подумаю) 0