Переделка с консоли в форму

@дно21 · Регистрация: 15.08.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
#include <iostream>
#include <map>
#include <string>
#include <sstream>
#include <iomanip>
 
int main()
{
    setlocale(LC_ALL, "Russian");
    std::string delim(".:,;()-?!");//Разделители
    std::string string;
    //Ассоциативный контейнер, хранит пары (слово, число вхождений)
    std::map<std::string, size_t> freq;
    std::cout << "Введите строку" << std::endl;
    std::getline(std::cin, string);
    size_t str_count=0;//Число слов
    //Замена символов-разделителей из строки на пробел
    size_t index;
    while((index=string.find_first_of(delim))!=std::string::npos)
        string[index]=' ';
    //Разбиение строки на слова, помещение слов в ассоциативный контейнер и подсчет числа вхождений слова в строку
    std::stringstream ss(string);
    while(ss >> string)
    {
        ++str_count;
        freq[string]++;
    }
    std::cout << "Относительная частота вхождения каждого слова:" << std::endl;
    for(std::map<std::string, size_t>::iterator iter=freq.begin(); iter!=freq.end(); ++iter)
    {
        double p=static_cast<double>(iter->second)/static_cast<double>(str_count)*100;
        std::cout << "\'" << iter->first << "\': " << std::setprecision(4) << p << "%" << std::endl;
    }
    system("pause");
    return 0; 
}

пытаюсь переписать данный кон с вводом и выводом данных в Memo1, пока что получилось так:

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
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 String text;
 text = Form1->Memo2->Text;
  text = text.c_str();
 
 
 setlocale(LC_ALL, "Russian");
    std::string delim(".:,;()-?!");//Ðàçäåëèòåëè
    std::string string;
    //Àññîöèàòèâíûé êîíòåéíåð, õðàíèò ïàðû (ñëîâî, ÷èñëî âõîæäåíèé)
    std::map<std::string, size_t> freq;
    //std::cout << "text" << std::endl;
     string = text.c_str();
 
    std::getline(std::cin, string);
    size_t str_count=0;//×èñëî ñëîâ
    //Çàìåíà ñèìâîëîâ-ðàçäåëèòåëåé èç ñòðîêè íà ïðîáåë
    size_t index;
    while((index=string.find_first_of(delim))!=std::string::npos)
        string[index]=' ';
    //Ðàçáèåíèå ñòðîêè íà ñëîâà, ïîìåùåíèå ñëîâ â àññîöèàòèâíûé êîíòåéíåð è ïîäñ÷åò ÷èñëà âõîæäåíèé ñëîâà â ñòðîêó
    std::stringstream ss(string);
    while(ss >> string)
    {
        ++str_count;
        freq[string]++;
    }
    //std::cout << "Îòíîñèòåëüíàÿ ÷àñòîòà âõîæäåíèÿ êàæäîãî ñëîâà:" << std::endl;
    for(std::map<std::string, size_t>::iterator iter=freq.begin(); iter!=freq.end(); ++iter)
    {
        double p=static_cast<double>(iter->second)/static_cast<double>(str_count)*100;
 
         //Form1->Memo5->Lines->Add(p);
         Form1->Memo5->Lines->Add(iter->first.c_str());
         Form1->Memo5->Lines->Add( p);
        //std::cout << "\'" << iter->first << "\': " << std::setprecision(4) << p << "%" << std::endl;
         //rez = "iter->first";
         //Memo5->Lines->Add(rez);
    }
    Form1->Memo1->Text = text.c_str();
 
   
    return;
}

у меня получилось записать текст в функцию из Memo2 и вывести результат обработки в Memo5
но есть одна проблемка: не знаю как вывести часть кода:

C++
1
2
double p=static_cast<double>(iter->second)/static_cast<double>(str_count)*100;
std::cout << "\'" << iter->first << "\': " << std::setprecision(4) << p << "%" << std::endl;

@volvo · 30.10.2017, 21:45

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

C++
1
Memo5->Lines->Add( "\'" + String(iter->first.c_str()) + "\': " + (FormatFloat("00.00",p))+"%" );

А попроще:

C++
1
2
3
Memo5->Lines->Add(String().sprintf(L"'%S':%5.2f%", iter->first.c_str(), p)); // если std::map<std::string, double>
// или
Memo5->Lines->Add(String().sprintf(L"'%s':%5.2f%", String(iter->first.c_str()), p)); // если сделать std::map<std::wstring, double> чтобы не иметь проблем с Юникодом

@дно21 · 30.10.2017, 22:18 **[ТС]**

[C++ Error] Unit3.cpp(134): E2034 Cannot convert 'wchar_t *' to 'const char *'
[C++ Error] Unit3.cpp(134): E2342 Type mismatch in parameter 'format' (wanted 'const char *', got 'wchar_t *')

@volvo · 30.10.2017, 22:55

Так у тебя старая версия Билдера, что-ли? Так бы и говорил сразу. Неинтересно...

Но для того, чтобы убрать ошибку - надо убрать L перед форматной строкой...

@дно21 · 30.10.2017, 22:57 **[ТС]**

Л убрал и теперь:
[C++ Error] Unit3.cpp(136): E2451 Undefined symbol 's'

@дно21 · 30.10.2017, 22:59 **[ТС]**

да Билдер старенький))))

@lifeforce · 31.10.2017, 08:46

ради спортивного интереса быстренько собрал другой вариант этой задачи

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        std::auto_ptr<TStringList> List(new TStringList);
        TSysCharSet ch;
        TStrings *L = Memo1->Lines;// здесь любое другое Мемо откуда будем читать текст
        std::string delim(".:,;()-?!");//Разделители
        std::string string ;
     for (int j = 0; j < Memo1->Lines->Count; j++)
        {
        //Замена символов-разделителей из строки на пробел
        string = L->Strings[j].c_str();
        size_t index;
    while((index=string.find_first_of(delim))!=std::string::npos)string[index]=' ';
       // замена пробелов на перенос строки
         L->Strings[j]= string.c_str();
         ExtractStrings(ch << ' ', ch, L->Strings[j].LowerCase().c_str(), List.get());
        }
    Memo1->Text = List->Text;
    double w,s;
    w= Memo1->Lines->Count;
    w=100/w;
    List->Clear();
    List->Sorted = true;
    for (int i = 0; i < Memo1->Lines->Count; i++)
    {
     s = 0;
for (int a = 0; a < Memo1->Lines->Count; a++)
{
 if(Memo1->Lines->Strings[i].LowerCase()==Memo1->Lines->Strings[a].LowerCase())s++;
}
     List->Add(Memo1->Lines->Strings[i] +"\t= " + (FormatFloat("00.00",w*s))+"%") ;
    }
Memo1->Text = List->Text;
}
//---------------------------------------------------------------------------

прошу тапками не кидаться

@дно21 · 31.10.2017, 17:17 **[ТС]**

lifeforce функция крутая, работает лучше первого исходника))
осталось мне сделать так, чтобы данные по словам выводились в Memo2

@lifeforce · 31.10.2017, 18:01

легко.
к примеру Мемо1 входные
а Мемо2 на выходе.

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        std::auto_ptr<TStringList> List(new TStringList);
        TSysCharSet ch;
        TStrings *L = Memo1->Lines;// здесь любое другое Мемо откуда будем читать текст
        std::string delim(".:,;()-?!");//Разделители
        std::string string ;
     for (int j = 0; j < Memo1->Lines->Count; j++)
        {
        //Замена символов-разделителей из строки на пробел
        string = L->Strings[j].c_str();
        size_t index;
    while((index=string.find_first_of(delim))!=std::string::npos)string[index]=' ';
       // замена пробелов на перенос строки
         L->Strings[j]= string.c_str();
         ExtractStrings(ch << ' ', ch, L->Strings[j].LowerCase().c_str(), List.get());
        }
    Memo2->Text = List->Text;
    double w,s;
    w= Memo2->Lines->Count;
    w=100/w;
    List->Clear();
    List->Sorted = true;
    for (int i = 0; i < Memo2->Lines->Count; i++)
    {
     s = 0;
for (int a = 0; a < Memo2->Lines->Count; a++)
{
 if(Memo2->Lines->Strings[i].LowerCase()==Memo2->Lines->Strings[a].LowerCase())s++;
}
     List->Add(Memo2->Lines->Strings[i] +"\t= " + (FormatFloat("00.00",w*s))+"%") ;
    }
Memo2->Text = List->Text;
}
//---------------------------------------------------------------------------

@дно21 · 31.10.2017, 18:08 **[ТС]**

уже сам догадался как это сделать + поменял местами проценты и слова + прикрутил сортировку по убыванию
вот, если кому нужно будет код на с++ сортировки по убыванию:

C++
1
2
3
4
5
6
7
 int __fastcall MySortCompare(TStringList* List, int Index1, int Index2)
{
  String str1=List->Strings[Index1];
  String str2=List->Strings[Index2];
  return String(str1.c_str()+str1.LastDelimiter("_"))<//если в порядке возрастания, то поменять на  >
                      String(str2.c_str()+str2.LastDelimiter("_"));
}

и на кнопку:

C++
1
2
3
4
5
6
7
8
9
TStringList *r = new TStringList;
 
 Form3->Memo2->Lines->SaveToFile("prom.txt");
 
r->LoadFromFile("prom.txt");
 
Form3->Memo2->Lines->Clear();
r->CustomSort(MySortCompare);
Form3->Memo2->Lines->AddStrings(r);

согласен что можно было проще все, но делаю как умею, не судите строго

Добавлено через 3 минуты
форма анализатора))

@lifeforce · 31.10.2017, 18:08

дно21,

Не по теме:

выделяй код С++. етот раздел форума все таки С++ :)

@дно21 · 31.10.2017, 18:08 **[ТС]**

форма анализатора)

@дно21 · 31.10.2017, 18:10 **[ТС]**

это если кто вдруг будет в инете искать) простая и легко настраиваемая функция сортировки

@дно21 · 08.11.2017, 18:51 **[ТС]**

опять возвращаюсь к вопросу по подсчету слов, перенес прогу на более новый билдер 10

почему-то в строке:

C++
1
 string = L->Strings[j].c_str();

выдает ошибку:

E2285 Could not find a match for 'operator std::string::=(wchar_t *)'

может кто сталкивался с подобной ошибкой?

@Avazart · 08.11.2017, 19:01

По тому что:

C++
1
std::wstring = L->Strings[j].c_str();

@volvo · 08.11.2017, 19:02

C++
1
2
        std::wstring delim(L".:,;()-?!"); // Разделители тоже надо изменить
        std::wstring string ;

@дно21 · 08.11.2017, 19:19 **[ТС]**

volvo огромное спасибо!

@дно21 · 10.11.2017, 18:35 **[ТС]**

Решил не плодить темы, а продолжит эту

ребята как переписать такое консольное чудо под программу с интерфейсом?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <string.h>
#include <stdio.h>
#define BLANK_STRING ""
void main(void){
char *token, buf[81],*separators = "\t,. ";
int i;
puts("Вводите строки\n\
          Завершение - нажатие ENTER.\n");
while(strcmp(gets(buf),BLANK_STRING)!=0) {
 i = 0;
 token = strtok(buf, separators);
 while(token != NULL) {
  printf("Лексема %d - %s\n", i, token);
  token = strtok(NULL, separators);
  i++;
 }
}}

Добавлено через 17 часов 5 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
String text;
 text = Form1->Memo2->Text;
  //text = text.c_str();
 
char *token = AnsiString(Memo2->Text).c_str(), buf[81],*separators = "\t,. ";
int i;
 
while(strcmp(gets(buf),BLANK_STRING)!=0) {
 i = 0;
 token = strtok(buf, separators);
 while(token != NULL) {
  //printf("Лексема %d - %s\n", i, token);
  Memo2->Lines->Add("Лексема %d - %s\n", i, token);
  token = strtok(NULL, separators);
  i++;
 }
}

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

C++
1
printf("Лексема %d - %s\n", i, token);

@lifeforce · 10.11.2017, 20:18

дно21,
А так пойдет

C++
1
2
3
 // printf("Лексема %d - %s\n", i, token);
 
Memo2->Lines->Add("Лексема ",+IntToStr( i)+" - " +token);

@дно21 · 10.11.2017, 20:40 **[ТС]**

E2093 'operator+' not implemented in type 'UnicodeString' for arguments of the same type

E2227 Extra parameter in call to _fastcall TStrings::Add(const UnicodeString)

ошибки((

+ походу я не правильно записал текст в char *token - программа с ним компилируется, но при нажатии на кнопку выдает ошибку(

@lifeforce · 10.11.2017, 20:48

там была запятая

C++
1
Memo2->Lines->Add("Лексема "+ IntToStr( i)+" - " +token);

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@дно21 1 / 1 / 2 Регистрация: 15.08.2017 Сообщений: 81
	30.10.2017, 22:18 [ТС]
	[C++ Error] Unit3.cpp(134): E2034 Cannot convert 'wchar_t ' to 'const char ' [C++ Error] Unit3.cpp(134): E2342 Type mismatch in parameter 'format' (wanted 'const char ', got 'wchar_t ') 0

@volvo Супер-модератор 33479 / 21577 / 8250 Регистрация: 22.10.2011 Сообщений: 37,040 Записей в блоге: 12
	30.10.2017, 22:55
	Так у тебя старая версия Билдера, что-ли? Так бы и говорил сразу. Неинтересно... Но для того, чтобы убрать ошибку - надо убрать L перед форматной строкой... 0

@дно21 1 / 1 / 2 Регистрация: 15.08.2017 Сообщений: 81
	30.10.2017, 22:57 [ТС]
	Л убрал и теперь: [C++ Error] Unit3.cpp(136): E2451 Undefined symbol 's' 0

@дно21 1 / 1 / 2 Регистрация: 15.08.2017 Сообщений: 81
	30.10.2017, 22:59 [ТС]
	да Билдер старенький)))) Миниатюры 0

@дно21 1 / 1 / 2 Регистрация: 15.08.2017 Сообщений: 81
	31.10.2017, 17:17 [ТС]
	lifeforce функция крутая, работает лучше первого исходника)) осталось мне сделать так, чтобы данные по словам выводились в Memo2 0

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234
	31.10.2017, 18:08
	дно21, Не по теме: выделяй код С++. етот раздел форума все таки С++ :) 0

@дно21 1 / 1 / 2 Регистрация: 15.08.2017 Сообщений: 81
	31.10.2017, 18:08 [ТС]
	форма анализатора) Миниатюры 0

@дно21 1 / 1 / 2 Регистрация: 15.08.2017 Сообщений: 81
	31.10.2017, 18:10 [ТС]
	это если кто вдруг будет в инете искать) простая и легко настраиваемая функция сортировки 0

@дно21 1 / 1 / 2 Регистрация: 15.08.2017 Сообщений: 81
	08.11.2017, 19:19 [ТС]
	volvo огромное спасибо! 0

@дно21 1 / 1 / 2 Регистрация: 15.08.2017 Сообщений: 81
	10.11.2017, 20:40 [ТС]
	E2093 'operator+' not implemented in type 'UnicodeString' for arguments of the same type E2227 Extra parameter in call to _fastcall TStrings::Add(const UnicodeString) ошибки(( + походу я не правильно записал текст в char *token - программа с ним компилируется, но при нажатии на кнопку выдает ошибку( Миниатюры 0

Переделка с консоли в форму

Решение