текст и файл

[yuliyayuliya]

Дан файл, содержащий текст на русском языке. В предложениях некоторые из слов записаны подряд несколько раз (предложение заканчивается точкой или восклицательным знаком). Получить в новом файле отредактированный текст, в котором удалены повторные вхождения слов в предложение.


Нашла на делфи...кто нибудь мог бы переписать её на с/с++?Заранее спасибо....



procedure TForm1.Button1Click(Sender: TObject);
const
Fn1 = 'file1.txt';
Fn2 = 'file2.txt';
//Список разделителей слов.
D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
var
F1, F2 : TextFile;
S, CurWord, LastWord : String;
i, P1, P2, LenS, LenWord : Integer;
begin
AssignFile(F1, Fn1);
Reset(F1);
AssignFile(F2, Fn2);
Rewrite(F2);

while not Eof(F1) do begin
Read(F1, S);

LenS := Length(S);
P1 := 0;
P2 := 0;
LastWord := '';
//Перебор символов прочитанной строки справа - налево.
//Т. е., по ходу движения, "предыдущее" слово - справа, "следующее" слово - слева.
for i := LenS downto 1 do begin
//Пропускаем разделители.
if S[i] in D then Continue;
//Отслеживаем конец слова.
if (i = LenS) or (S[i + 1] in D) then
P2 := i
;
//Отслеживаем начало слова.
if (i = 1) or (S[i - 1] in D) then begin
P1 := i;
LenWord := P2 - P1 + 1;
//Определяем очередное слово.
CurWord := Copy(S, P1, LenWord);
//Сравниваем текущее слово с предыдущим. Если равны - удаляем текущее слово
//из строки.
if CurWord = LastWord then
Delete(S, P1, LenWord)
;
LastWord := CurWord;
end;
end;

Write(F2, S);
if not Eof(F1) then begin
Readln(F1);
Writeln(F2);
end;
end;

CloseFile(F1);
CloseFile(F2);
end;

[RUSt88]

могу реализовать за небольшое вознаграждение

[OlegVE]

yuliyayuliya, посмотрите
http://www.cyberforum.ru/cpp-beginners/thread78438.html
и
http://deadbeef.narod.ru/work/progs/index.htm здесь что-то готовое
Не разбирался, не мой язык

[yuliyayuliya]

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

yuliyayuliya, посмотрите
http://www.cyberforum.ru/cpp-beginners/thread78438.html
и
http://deadbeef.narod.ru/work/progs/index.htm
Не разбирался, не мой язык

чтото попроще не советуете?....а то я совсем начинающая......сложно даётся.....

[OlegVE]

чтото попроще не советуете?....а то я совсем начинающая......сложно даётся.....

Ни чем не могу помочь

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

Не разбирался, не мой язык

Задайте вопросы, создав новые темы, и всё, что не понимаете спрашивайте.

[RUSt88]

юля, что не понятно, спрашивайте, объясню здесь или в личке

[yuliyayuliya]

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

юля, что не понятно, спрашивайте, объясню здесь или в личке

Пробовала писать.....ничего не получается....думала просто текст разбить на слова и если слова неповторяются выводить...но чтото не так

#include "stdafx.h"
#include <iostream>
#include <conio.h>
#include <string>
using namespace std;
int main()
{ string s;

int i=0;
while ( getline(cin,s) )
{ s=!s[i+1];
cout<<s;
i++;
}
_getch();
return 0;
}

[yuliyayuliya]

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

юля, что не понятно, спрашивайте, объясню здесь или в личке

не посмотрите как ошибки исправить....
#include "stdafx.h"
#include "iostream"
#include <conio.h>

using namespace std;

int main()
{ int i=0; int j=0;
FILE*str;
str=fopen("n","r");
while(!feof(str))
for (i=0;i<!feof(str);i++)
for(j=0;j<!feof(str);j++)
if((i!=j)&&(str[i]==str[j]))
cout<<str[i];
getch();
return 0;
}

[RUSt88]

сейчас нет времени, а потом могу забыть, стучи в аську, объясню