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

@дно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);

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@дно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 Супер-модератор 33398 / 21508 / 8236 Регистрация: 22.10.2011 Сообщений: 36,904 Записей в блоге: 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

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

Решение