Поиск:

Ответ в темуСоздание новой темы Создание опроса
> метасимволы, метасимволы 
:(
    Опции темы
programerSS
  Дата 5.10.2010, 23:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 5.10.2010

Репутация: нет
Всего: нет



ВОт я зделал прогу, а она выбитвает ошибку, помогите пожалуйста...а то я не знаю что делать((((

Входной текст хранится в файле и состоит из слов, разделенных пробелами. Ввести с клавиатуры шаблон метасимволы (метасимвол задается в конкретном варианте). Во входном тексте найти слова (цепочки) по заданной маской. Сформировать исходный файл, превратив исходный текст определенным в конкретном варианте способом. Метасимволы в шаблоне могут повторяться, но они все для конкретного варианта одинтипичные.

Метасимвол - (цифра). Содержание метасимволы - цепочка одинаковых символов заданной длины должен присутствовать в слове в нужной позиции. Длина цепочки должна быть не менее заданной (цифра). Сформировать новый текст, заменив в найденных словах цепочки искомых символов на один соответствующий символ.

Код

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <conio.h>
#include <string.h>
#include <stdio.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
TOpenDialog *od = new TOpenDialog(this);
od->Filter = "Текстовые файлы|*.txt";
if (od->Execute()) {
  Memo1->Lines->LoadFromFile(od->FileName);
}
delete od;
od = NULL;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
exit(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{char S[80],S1[80];
int zn,l,k,kin,dow,flag,p,n,r,b,a,i,m,j;
strncpy(S, Memo1->Lines->Strings[0].c_str(), 80);
zn=0;
k=0;
 
 if(i!=Edit1->Text.Length()-1){
    if( (Edit1->Text[i]=='{') && (Edit1->Text[i+2]=='}')  )
    {
       if( (Edit1->Text[i+1]>='0') && (Edit1->Text[i+1]<='9') )
       k++;
       zn=zn+Edit1->Text[i+1]-48;
    }
    }
 
 
l=strlen(S)-3*k+zn;
i=0;
m=0;
while(i<Edit1->Text.Length())
if(S[i]!=' ') kin=i;
else m++;
if(S[i]==' ') {
dow=m;
p=kin-m;
if(dow==l){for(n=1;n<Edit1->Text.Length();n++)
{if (S[j+p]==Edit1->Text[n]) a++;
else  if( (Edit1->Text[i]=='{') && (Edit1->Text[i+2]=='}')  )
    {
       if( (Edit1->Text[i+1]>='0') && (Edit1->Text[i+1]<='9') )
        r=Edit1->Text[i+1]-48;
     for(b=0;b<r;b++)
{ if (S[j+p]==S[j+p+b]) flag++;
 if (flag==r) a=a+r;
if (a==m) strcpy(S[j+p],S[j+p+b]);
 }
}
}


PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »


 




[ Время генерации скрипта: 0.0976 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.