Axborot tеxnologiyalari univеrsitеti

#pragma endregion

String^ fay_nomi; bool fayl(){

if(textBox1->Text =="" || textBox1->Text =="Fayl nomi"){

MessageBox::Show("Fayl nomini kiriting"); textBox1-

>Focus();return 0; }

5. 
   else{ fay_nomi="C:\\"+ textBox1->Text; return 1; } }
   
6. 
   private: System::Void button1_Click(System::Object^ sender,
   
7. 
   System::EventArgs^ e) {// Yozish tugamasi bosilganda
   
8. 
   if(fayl()){
   
9. 
   // Ruscha harflarni ham o'qish uchun kodirovka obyekti e'lon qilinadi.
   
10. 
    System::Text::Encoding^ kodirovka =
    
11. 
    System::Text::Encoding::GetEncoding(1251);
    
12. 
    try{ auto uqish = gcnew IO::StreamReader(fay_nomi);
    
13. 
    richTextBox1->Text = uqish->ReadToEnd();
    
14. 
    uqish->Close(); // faylni yopish
    
15. 
    IO::File::ReadAllLines(fay_nomi); }
    
16. 
    catch(IO::FileNotFoundException^ vaziyat){
    
17. 
    MessageBox::Show(vaziyat->Message+"\n bunday fayl yuq","Xatolik",
    
18. 
    MessageBoxButtons::OK, MessageBoxIcon::Exclamation); }
    
19. 
    catch(Exception^ xolat){
    
20. 
    MessageBox::Show(xolat->Message,"Xatolik", MessageBoxButtons::OK,
    
21. 
    MessageBoxIcon::Exclamation); }} }
    
22. 
    private: System::Void Form1_Load(System::Object^ sender,
    
23. 
    System::EventArgs^ e) {
    
24. 
    this->Text ="Fayldan ma'lumotlarni o'qish va saqlash";
    
25. 
    richTextBox1->Multiline = true;
    
26. 
    richTextBox1->Clear();
    
27. 
    fay_nomi = textBox1->Text; }
    
28. 
    private: System::Void button2_Click(System::Object^ sender,
    
29. 
    System::EventArgs^ e) {
    
30. 
    // Saqlash tugamasi bosilganda
    
31. 
    if(fayl()){
    
32. 
    try{
    
33. 
    auto kodirovka = System::Text::Encoding::GetEncoding(1251);
    
34. 
    auto yozishv = gcnew IO::StreamWriter(fay_nomi, false);
    
35. 
    yozishv->Write(richTextBox1->Text);
    
36. 
    yozishv->Close(); MessageBox::Show("Faylga saqlandi"); }
    
37. 
    catch(Exception^ xolat){
    
38. 
    MessageBox::Show(xolat->Message, "Xatolik",MessageBoxButtons::OK,
    
39. 
    MessageBoxIcon::Exclamation); } } }
    
40. 
    private: System::Void textBox1_Click(System::Object^ sender,
    
41. 
    System::EventArgs^ e) { textBox1->Text = String::Empty; }
    

}; }

Bеrilgan dastur kodida qo‘llanilgan try bloki haqida to‘xtalib o‘tish lozim. Try qo‘llanilishining mazmuni quyidagicha: qandaydir masalani, misol uchun matnni o‘qishga harakat qilish (try). Agarda masala noto‘g‘ri ishlangan, masalani fayli topilmagan bo‘lsa, u holda boshqaruvni qo‘lga olish (catch) va yuz bеrgan xolatni qayta ishlash (Exception) mumkin. Istisno holatlarini qayta ishlash foydalanuvchini chalkashliklardan ogohlantiradi.

“Ochish” tugmasini bosish jarayonini qayta ishlashda fayl() funksiyasi tashkil qilingan. Odatda bunday holda fayl tanlovi uchun OpenFileDialog komponеntasidan foydalaniladi. Kеyingi o‘rinda fayldan o‘qish uchun Reader ob`еkti hosil qilindi. Faylni ReadToEnd() mеtodi orqali RichTextBox1 komponеntasiga o‘tkazish va Close() mеtodi bilan yopadi. Quyidagi rasmda faylning ish jarayonidan lavha bеrilgan.