IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Удалить из текста символ!
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 45
Пол: Мужской

Репутация: -  0  +


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

__ABC_____FDC__
чтобы допустим получилось
2,3ABC5,3FDC2,0

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

Язык программирования С++ Builder но тут вроде нету неизвестных функций
вот что получилось

void __fastcall TForm1::delClick(TObject *Sender)
{
char p[255];
sym=Edit->Text;
output=fopen ("WWW.txt","w");
u=0;
g=sym[1]; - это символ который надо удалить
i=0;
c=',';
while (!feof(input)) пока не конец файла
{
if (feof(input)) break;

fgets (p,255,input); считываем строку
for (i=1;i<strlen(p);i++) пока не конец строки
{
u=0; nu=0; u- количество подряд идущих пробелов например; nu-через сколько символов опять будет пробел
if (p[i]==g) {
k=i;
while (p[i]==g){ считаем кол-во повторов символа
u++;
i++;
}
while (p[i]!=g){ считаем через сколько опять пробел будет
i++;
nu++; }
s=IntToStr(u);
r=s[1];
fwrite (&r,sizeof(char),1,output);
fwrite (&c,sizeof(char),1,output);
s=IntToStr(nu);
r=s[1];
fwrite (&r,sizeof(char),1,output);}
else
{
while (p[k]==g)
k++;
fwrite (&p[k],sizeof(char),1,output);}

}

}
fclose (input);
fclose (output);
Mem->Clear();
output=fopen ("WWW.txt","r");
Mem->Lines->LoadFromFile("WWW.txt");
}


Сообщение отредактировано: Lapp -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Child of Bodom, так что-ли:

#include <fstream.h>
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
const int max_size = 256;
char buffer[max_size];

ifstream in_file("G:\\www.txt", ios::in);
ofstream out_file("G:\\www2.txt", ios::out);

char to_delete = ' ';
int count = 0;
while(!in_file.eof()) {
in_file.getline(buffer, max_size);

AnsiString result = "";
for(char *p = buffer; *p; p++) {
while(*p != to_delete) p++;

while(*p == to_delete) {
count += 1;
p++;
}
AnsiString after = "";
for(; *p && *p != to_delete; *p++) {
after += *p;
}
result +=
IntToStr(count) + "," + IntToStr(after.Length()) + after;
count = 1;
}
out_file << result.c_str() << endl;
}
out_file.close();
in_file.close();

Memo1->Lines->LoadFromFile("G:\\www2.txt");

}


?
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Child of Bodom   Удалить из текста символ!   18.12.2007 14:03
Lapp   Почему в паскалевском разделе?.. Переношу в С.   18.12.2007 18:09
volvo   Child of Bodom, так что-ли: #include <fstream.…   18.12.2007 20:35
Child of Bodom   Child of Bodom, так что-ли: #include <fstream…   19.12.2007 0:52
volvo   А тут не используется ничего такого, что изменило…   19.12.2007 1:34
Child of Bodom   А вообще-то тебе надо разобраться с указателями …   19.12.2007 11:45
volvo   Восстановление исходной строки я бы делал так: vo…   19.12.2007 15:17
Child of Bodom   А вот еще у меня вопросик. Можно ли по этой технол…   19.12.2007 18:24
volvo   В принципе, если ты знаешь формат файла, который ч…   19.12.2007 19:14
Child of Bodom   void __fastcall TForm1::delClick(TObject *Sender) …   19.12.2007 23:55
volvo   Вот так там будет: void __fastcall TForm1::Button6…   20.12.2007 0:26
Child of Bodom   Так вывод я попробую по аналогии сделать. Спасибо …   20.12.2007 1:10
Child of Bodom   Слушай че то не то получается. Например, пишу удал…   20.12.2007 2:15
volvo   for(char *p = buffer; *p; p++) { // while(*p …   20.12.2007 21:16
Child of Bodom   оооо круто работает!!!! Спасибо :)…   20.12.2007 22:55
Child of Bodom   ой я скоро покончу с собой:(( препод начал проверя…   21.12.2007 16:14
volvo   А теперь расскажи, что ИМЕННО ты вводишь? У тебя в…   21.12.2007 16:57
Child of Bodom   Спасибо большое еще раз. Вроде пашет.ну при опреде…   22.12.2007 21:42


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.04.2024 8:43
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name