Вывести слова строки в другой текстовый файл в обратном порядке

@bojo3 · Регистрация: 06.06.2013

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

Вообщем проблема в чём, дали лабу в колледже, и не обьяснили как делать.

Задание:
Написать программу , которая считывает строку или текст (в обоих случаях длина строки не превышает 80 символов , между словами пробелы и допускаются запятой ) из текстового файла и определяет :
а ) сколько заглавных букв в этом тексте и заменяет их на маленькие (3 балла) ;
б) сколько пробелов в этом тексте (+1 балл) .

в) выводит слова строки в другой текстовый файл в обратном порядке (+1 балл)

А и Б я сделал, осталось только В но я не как не могу сделать, помогите пожалуйста
Елсли несложно напишите готовый вариант. его нужно будет пихануть между
if (RadioGroup1->ItemIndex==2){ ТУТ }

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TStringList *LoadList;
String Str;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
//TStringList *LoadList = new TStringList;
//String Str;
 
if (OpenDialog1->Execute())
{
 LoadList->LoadFromFile(OpenDialog1->FileName);
}
BitBtn1->Kind=bkOK;
BitBtn1->Caption="Файл підключено";
 
 
 
//LoadList->Free();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//-----------------------------;----------------------------------------------------------------------------1 завдання
    if (RadioGroup1->ItemIndex==0) {
Memo1->Lines->Add("1 завдання");
Memo1->Lines->Add("Перероблений текст:");
int sum=0;
for (int i=0; i<LoadList->Count;i++)
{
Str = LoadList->Strings[i];
  for (int j=1; j<=Str.Length();j++)
  {
  switch (Str[j])
   {
   case 'A':{Str[j]='a'; sum=sum+1;}
   case 'B':{Str[j]='b'; sum=sum+1;}
   case 'C':{Str[j]='c'; sum=sum+1;}
   case 'D':{Str[j]='d'; sum=sum+1;}
   case 'E':{Str[j]='e'; sum=sum+1;}
   case 'F':{Str[j]='f'; sum=sum+1;}
   case 'G':{Str[j]='g'; sum=sum+1;}
   case 'H':{Str[j]='h'; sum=sum+1;}
   case 'I':{Str[j]='i'; sum=sum+1;}
   case 'J':{Str[j]='j'; sum=sum+1;}
   case 'K':{Str[j]='k'; sum=sum+1;}
   case 'L':{Str[j]='l'; sum=sum+1;}
   case 'M':{Str[j]='m'; sum=sum+1;}
   case 'N':{Str[j]='n'; sum=sum+1;}
   case 'O':{Str[j]='o'; sum=sum+1;}
   case 'P':{Str[j]='p'; sum=sum+1;}
   case 'Q':{Str[j]='q'; sum=sum+1;}
   case 'R':{Str[j]='r'; sum=sum+1;}
   case 'S':{Str[j]='s'; sum=sum+1;}
   case 'T':{Str[j]='t'; sum=sum+1;}
   case 'U':{Str[j]='u'; sum=sum+1;}
   case 'V':{Str[j]='v'; sum=sum+1;}
   case 'W':{Str[j]='w'; sum=sum+1;}
   case 'X':{Str[j]='x'; sum=sum+1;}
   case 'Y':{Str[j]='y'; sum=sum+1;}
   case 'Z':{Str[j]='z'; sum=sum+1;}
   case 'А':{Str[j]='а'; sum=sum+1;}
   case 'Б':{Str[j]='б'; sum=sum+1;}
   case 'В':{Str[j]='в'; sum=sum+1;}
   case 'Г':{Str[j]='г'; sum=sum+1;}
   case 'Д':{Str[j]='д'; sum=sum+1;}
   case 'Е':{Str[j]='е'; sum=sum+1;}
   case 'Ё':{Str[j]='ё'; sum=sum+1;}
   case 'Ж':{Str[j]='ж'; sum=sum+1;}
   case 'З':{Str[j]='з'; sum=sum+1;}
   case 'И':{Str[j]='и'; sum=sum+1;}
   case 'Й':{Str[j]='й'; sum=sum+1;}
   case 'К':{Str[j]='к'; sum=sum+1;}
   case 'Л':{Str[j]='л'; sum=sum+1;}
   case 'М':{Str[j]='м'; sum=sum+1;}
   case 'Н':{Str[j]='н'; sum=sum+1;}
   case 'О':{Str[j]='о'; sum=sum+1;}
   case 'П':{Str[j]='п'; sum=sum+1;}
   case 'Р':{Str[j]='р'; sum=sum+1;}
   case 'С':{Str[j]='с'; sum=sum+1;}
   case 'Т':{Str[j]='т'; sum=sum+1;}
   case 'У':{Str[j]='у'; sum=sum+1;}
   case 'Ф':{Str[j]='ф'; sum=sum+1;}
   case 'Х':{Str[j]='х'; sum=sum+1;}
   case 'Ц':{Str[j]='ц'; sum=sum+1;}
   case 'Ч':{Str[j]='ч'; sum=sum+1;}
   case 'Ш':{Str[j]='ш'; sum=sum+1;}
   case 'Щ':{Str[j]='щ'; sum=sum+1;}
   case 'Ь':{Str[j]='ь'; sum=sum+1;}
   case 'Ы':{Str[j]='ы'; sum=sum+1;}
   case 'Э':{Str[j]='э'; sum=sum+1;}
   case 'Ю':{Str[j]='ю'; sum=sum+1;}
   case 'Я':{Str[j]='я'; sum=sum+1;}
 
   }
  }
  Memo1->Lines->Add(Str);
}
Memo1->Lines->Add("Великих букв:");
  Memo1->Lines->Add(sum);}
 
//---------------------------------------------------------------------------------------------------------2 завдання
if (RadioGroup1->ItemIndex==1)
{ int summ=0;
 for (int i=0; i<LoadList->Count;i++)
 {
 Str = LoadList->Strings[i];
 for (int j=1; j<=Str.Length();j++)
 {if (Str[j]==' ') {summ=summ+1;}}
 }
  Memo1->Lines->Add("Всього проБілів = " +IntToStr(summ));
 
}
//---------------------------------------------------------------------------------------------------------3 завдання
 
if (RadioGroup1->ItemIndex==2)
{
 
}
 
 
 
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
 LoadList->Free();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 LoadList = new TStringList;
}
//---------------------------------------------------------------------------

@Avazart · 23.10.2014, 00:15

C++

switch (Str[j])
   {
   case 'A':{Str[j]='a'; sum=sum+1;}
   case 'B':{Str[j]='b'; sum=sum+1;}
   case 'C':{Str[j]='c'; sum=sum+1;}
   case 'D':{Str[j]='d'; sum=sum+1;}
   case 'E':{Str[j]='e'; sum=sum+1;}
   case 'F':{Str[j]='f'; sum=sum+1;}
   //...

Быдлокод.

Смотри http://docwiki.embarcadero.com... .LowerCase или/и http://www.cplusplus.com/reference/locale/tolower/

Как-то так:

C++

if((Str[j]>='A' && Str[j]<='Я')|| Str[j]=='Ё')
{ 
   Str[j]= (String(Str[j]).LowerCase())[1]; 
   sum++; 
}

@nick42 · 23.10.2014, 00:22

switch - case без break у вас работает неправильно, да и выглядит не очень... . Я бы порекомендовал переделать; хотя бы так:

C++

 if (RadioGroup1->ItemIndex==0) {
   Memo1->Lines->Add("1 çàâäàííÿ");
   Memo1->Lines->Add("Ïåðåðîáëåíèé òåêñò:");
   int sum=0;
   for (int i=0; i<LoadList->Count;i++)
   {
     Str = LoadList->Strings[i];
     String shablon={"ABCDEFGHIJKLMNOPQRSTUVWXYZÀÁÂÃÄÅ¨ÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß"};
     String trafrt={"abcdefghijklmnopqrstuvwxyzàáâãäå¸æçèéêëìíîïðñòóôõö÷øùúûüýþÿ"};
     for (int p,j=1; j<=Str.Length();j++)
       if((p=shablon.Pos(Str[j]))>0) { sum +=1; Str[j] = trafrt[p]; }
     Memo1->Lines->Add(Str);
   }
   Memo1->Lines->Add("Âåëèêèõ áóêâ: "+IntToStr(sum));
 }

Добавлено через 3 минуты
и, конечно, shablon и trafrt вынести из цикла (а то Avazart, законно возмутится...)

Добавлено через 2 минуты
Avazart, LowerCase на кириллице, мне помнится, не работает.

@Avazart · 23.10.2014, 00:32

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

Avazart, LowerCase на кириллице, мне помнится, не работает.

В bcb5 может быть... в XE3 нормально работает как я помню.

А tolower() не сработает, если локаль не выставить.

Добавлено через 3 минуты
Да и маленькая правка, в зависимости от версия AnsiString/UnicodeString:

C++

if((Str[j]>=L'A' && Str[j]<=L'Я')|| Str[j]==L'Ё')
{ 
   Str[j]= (String(Str[j]).LowerCase())[1]; 
   sum++; 
}

@nick42 · 23.10.2014, 00:40

Касательно третьего пункта... - вот так на скорую руку должно получиться__

C++

if (RadioGroup1->ItemIndex==2)
{
  TStringList *SL1 = new TStringList;
  TStringList *SL2 = new TStringList;
  String stroka;
  for (int i=0; i<LoadList->Count;i++)
  {
    Str = LoadList->Strings[i];
    SL1->CommaText = Str;
    stroka="";
    for(int i=SL1->Count-1;i>=0;i--) stroka = stroka+SL1->Strings[i]+" ";
    SL2->Add(stroka);
  }
  SL2->SaveToFile(".\\File2.txt");
  delete SL1; delete SL2;
}

Может быть некоторые конструкции не знакомы? спрашивайте, уточним.

@volvo · 23.10.2014, 00:55

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

в XE3 нормально работает как я помню.

Не работает, и не только в XE3, а и в более новых:

LowerCase returns a string with the same text as the string passed in S, but with all letters converted to lowercase. The conversion affects only 7-bit ASCII characters between 'A' and 'Z'. To convert 8-bit international characters, use AnsiLowerCase.

Насколько я помню, метод LowerCase работает по тем же правилам...

@Avazart · 23.10.2014, 01:48

Где и чем читаете не понятно я же привел ссылку именно на метод, а не ф-цию:

Returns a lowercase version of UnicodeString.

LowerCase returns a new UnicodeString instance that contains all characters in this string, converted to lowercase. The conversion uses the current locale, when appropriate. The original UnicodeString instance remains unchanged.

http://docwiki.embarcadero.com... .LowerCase

C++

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Caption=  String(L"РАБОТАЕТ").LowerCase();
}
//---------------------------------------------------------------------------

А вот то что по второй ссылке http://www.cplusplus.com/reference/locale/tolower/ не работает, видимо из-за кривой реализации в билдере шаблона ф-ции или std-локалей, но можно использовать через си-ф-цию и c char http://www.cplusplus.com/refer... kw=tolower

@volvo Супер-модератор 32970 / 21283 / 8173 Регистрация: 22.10.2011 Сообщений: 36,556 Записей в блоге: 8
	23.10.2014, 00:55	6
	Сообщение от Avazart в XE3 нормально работает как я помню. Не работает, и не только в XE3, а и в более новых: LowerCase returns a string with the same text as the string passed in S, but with all letters converted to lowercase. The conversion affects only 7-bit ASCII characters between 'A' and 'Z'. To convert 8-bit international characters, use AnsiLowerCase. Насколько я помню, метод LowerCase работает по тем же правилам... 0

	23.10.2014, 01:48

Вывести слова строки в другой текстовый файл в обратном порядке

Решение