Teksto analizė

Laboratorinio darbo L5-25B ataskaita Teksto analizė 1.1 Programos užduotis: L5-25B. Tekstiniame faile duotas tekstas. Žodžiai iš eilutės į kitą eilutę nekeliami. Žodžiai eilutėse skiriami bent vienu tarpu. Tarpai gali būti eilutės pradžioje bei gale, gali būti tuščios eilutės. Žodžius, kurie prasideda bet kuria Jūsų vardo raide, pakeisti Jūsų vardu. 1.2 Programos aprašymas: • Formos schema: OpenDialog1 SaveDialog1 • Formos pavyzdys, kai programa dar neįvykdyta: • TForm1 klasės aprašo failas: //--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include #include #include #include #include #include // Funkcijos darbui su failo srautais #include #include using namespace std; const char *ManoVardas= "andrius"; // Kintamajy ManoVardas aprasome kaip konstanta const char *skyrikliai = " ,.!\n\t"; // Teksto skyriklius aprasome kaip konstanta //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: TMemo *Memo1; // Programos langas pradiniams duomenims isvesti TMemo *Memo2; // Programos langas rezultatams isvesti TLabel *Label1; // Etikete 1 - papildomiems formos uzrasams TLabel *Label2; // Etikete 2 - papildomiems formos uzrasams TButton *Button2; // Mygtukas, kuris uzbaigia programos darba TButton *Button3; // Mygtukas, kuris atidaro duomenu failo pasirinkimo langa TButton *Button1; // Mygtukas, kuris vykdo programa TOpenDialog *OpenDialog1; // Duomenu failo atidarymas TSaveDialog *SaveDialog1; // Rezultatu failo pasitinkimas void __fastcall Button1Click(TObject *Sender); // kreipiasi y mygtuka Button1 void __fastcall Button2Click(TObject *Sender); // kreipiasi y mygtuka Button2 void __fastcall Button3Click(TObject *Sender); // kreipiasi y mygtuka Button3 private: AnsiString AtidarytiFaila(); // Metodas duomenu failo pasirinkimui AnsiString SaugotiYFaila(); // Metodas rezultatu failo pasirinkimui void Vykdyti () // Nuskaito duomenis vykdo programos veiksmus void KapokManoEilute(); // Metodas kuris analizuoja eilute void Spausdinti(const char zodis[]); // Spausdina duomenis y faila bool PatikrinkArTinka(char *zodukas); // Metodas tikrina ar zodis atitinka salyga ifstream fd; // aprasomas programos duoemnu failas ofstream fr; // aprasomas programos rezultatu failas char E[1000]; // Simoboliu eilutes kintamasis char sni[1000]; // Simoboliu eilutes kintamasis char *nunu; // Kintamasis naudojamas zodziams apdoroti AnsiString DUOM, REZ; // Duomenu ir rezultatu failai public: __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif • Funkcijų aprašai: void KapokManoEilute(); Šis metodas analizuoja eilutę po vieną žodį. bool PatikrinkArTinka(char zodukas[])Šis metodas tikrina ar kiekvienas žodis atitinka sąlygą. Pradžia PatikrinkArTinka(char zodukas[]) bool KeistiReikia = false; i = 0; i #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------Mygtukas, kuris nuskaito duomenis-------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Vykdyti(); } //----------------------------------------------------------------------------------------- void TForm1::Vykdyti () REZ = SaugotiYFaila(); // Priskiriamas duomenu failas fd.open(DUOM.c_str()); // Atidaromas duomenu failas fr.open(REZ.c_str()); // Atidaromas rezultatu failas int i=0; while(!fd.eof()) // Ciklas vykdomas kol faile yra simboliu { fd.get(E[i]); // nuskaitomas simbolis is failo sni[i]=E[i]; // pagalbine eilute i++; } sni[i-1]='\0'; E[i-1]='\0'; KapokManoEilute(); // Kreipinys y metoda KapokManoEilute(); fd.close(); // Uzdaromas duomenu failas fr.close(); // Uzdaromas rezultatu failas Memo1->Lines->LoadFromFile(DUOM); // Pradiniu duomenu atvaizdavimas Memo2->Lines->LoadFromFile(REZ); // Rezultatu atvaizdavimas } //----------------------Programos pabaigos mygtukas----------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { Close(); // Baigiamas programos darbas //-----------------------Analizuoja eilute po zody-------------------------------------- void TForm1::KapokManoEilute() { { nunu = strtok(sni, skyrikliai); // Is eilutes 'sni' nuskaitomi zodziai while (nunu != NULL) // Ciklas vykdomas kol ne zodis nelygus 0 { if (PatikrinkArTinka(nunu)) //Tikrinama salyga { Spausdinti(ManoVardas); // Vykdomas metodas Spausdinti() } else { Spausdinti(nunu); } nunu = strtok(NULL,skyrikliai); } } fr.close(); } //------------------Tikrina ar zodzio pirmas simbolis atitinka salyga----------- bool TForm1::PatikrinkArTinka(char zodukas[]) { bool KeistiReikia = false; for (int i = 0; i Filter = "(*.txt)|*.txt"; // Duomenu failo filtras (matomi tik " *.txt " failu tipai) OpenDialog1->Execute(); // Vykdoma OpenDialog1 funkcija return OpenDialog1->FileName; // Grazinama gauta reiksme } //----------------------Metodas kuris atidaro rezultatu faila------------------- AnsiString TForm1::SaugotiYFaila() { SaveDialog1->Filter = "(*.txt)|*.txt"; // Rezultatu failo filtras (matomi tik " *.txt " failu tipai) SaveDialog1->Execute(); // Vykdoma SaveDialog1 funkcija return SaveDialog1->FileName; // Grazinama gauta reiksme } //------------------------------------------------------------------------------ 1.4 Programos testavimo rezultatai Pradinis duomenų failas: Gyveno karta adaadad, mokesi jis KTU. nfdsff laisvalaikiu mego zaisti krepsiny, programuoti. Rezultatų failas: Gyveno karta andrius, mokesi jis KTU andrius laisvalaikiu mego zaisti krepsiny, programuoti

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!