Fumetsu
Aileden
- Aktiflik
-
- K.Tarihi
- 11 May 2013
- Mesajlar
- 369
- Puanı
- 126
Bu konumda sizlere textbox’a girilen metni nasıl .txt .bat gibi uzantılar ile kaydetmeyi anlatacağım.
2 Adet yolumuz var.Biri CommonDialog adındaki Component ile diğer yolumuz ile direk Print işlemi ile.
İlk olarak CommonDialog ile textbox’u kaydetmeyi anlatacağım.
1- CommonDialog İle TextBox’u .txt Olarak Kaydetme :
Tertemiz bir form açıyoruz arkadaşlar.
Formumuza 1 Adet Buton ( name özelliği Command1 ) , 1 Adet Textbox ( name özelliği Text1 ) ve CommonDialog ( name özelliği CommonDialog1 ) nesnesi ekliyoruz ekliyoruz.
1.1 CommonDialog Nasıl Eklenir ?
CommonDialog toolbox’ta doğrudan yer almaz ama biz onu ekleyebiliriz.
CTRL + T tuşlarına basarak veya Project > Components bölümüne tıklıyoruz.Resimde işaretlediğim bölümü işaretleyip Tamam’a basıyoruz.
Daha sonra ise Toolbox ‘tan formumuza ekliyoruz.
Ardından formun boş alanına çift tıklayıp bütün kodları siliyoruz ve vereceğim kodları yapıştırıyoruz.
Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo Son ‘ hata olursa Son’a git.
CommonDialog1.DialogTitle = “Kaydet VbasicTürkiye” ‘ commondialog başlığı değişebilir.
CommonDialog1.Filter = “Metin Belgesi(*.txt)|*.txt” ‘ filter ı değişebilir.
CommonDialog1.FileName = “txtisim” ‘dosya adı değişebilir
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Append As #1
Print #1, Text1.Text ‘Text1′deki kodu .txt olarak yazar değişebilir.
Close #1
MsgBox “Kayıt Tamamlanmıştır”, vbInformation, “Olumlu” ‘ kayıt tamamlanınca mesajımız
Son: ‘ hata olursa kod sonuna gider.
End Sub
Kodumuz bu şekildedir , uzatmadan 2. yolumuza geçelim.
2 – Print İşlemi İle Textbox’ı .txt Olarak Kaydetme :
Bu bölüm kolaydır sadece 2 nesne ekleyerek textbox’ı tek tuşla kaydedeceğiz.
Formumuza 1 Adet Buton ( name özelliği Command1 ) , 1 Adet Textbox ( name özelliği Text1 ) nesnesi ekliyoruz.
Private Sub Command1_Click()
Open “C:dosyaadı.txt” For Output As #1 ‘dosyaadı değişebilir
Print #1, Text1.Text; ‘Text1′i kaydeder değişebilir.
Close #1
End Sub
2 yolumuzun anlatımının sonuna geldik, yardımcı olabildiysem ne mutlu bana.İyi programlamalar dilerim.
2 Adet yolumuz var.Biri CommonDialog adındaki Component ile diğer yolumuz ile direk Print işlemi ile.
İlk olarak CommonDialog ile textbox’u kaydetmeyi anlatacağım.
1- CommonDialog İle TextBox’u .txt Olarak Kaydetme :
Tertemiz bir form açıyoruz arkadaşlar.
Formumuza 1 Adet Buton ( name özelliği Command1 ) , 1 Adet Textbox ( name özelliği Text1 ) ve CommonDialog ( name özelliği CommonDialog1 ) nesnesi ekliyoruz ekliyoruz.
1.1 CommonDialog Nasıl Eklenir ?
CommonDialog toolbox’ta doğrudan yer almaz ama biz onu ekleyebiliriz.
CTRL + T tuşlarına basarak veya Project > Components bölümüne tıklıyoruz.Resimde işaretlediğim bölümü işaretleyip Tamam’a basıyoruz.
Daha sonra ise Toolbox ‘tan formumuza ekliyoruz.
Ardından formun boş alanına çift tıklayıp bütün kodları siliyoruz ve vereceğim kodları yapıştırıyoruz.
Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo Son ‘ hata olursa Son’a git.
CommonDialog1.DialogTitle = “Kaydet VbasicTürkiye” ‘ commondialog başlığı değişebilir.
CommonDialog1.Filter = “Metin Belgesi(*.txt)|*.txt” ‘ filter ı değişebilir.
CommonDialog1.FileName = “txtisim” ‘dosya adı değişebilir
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Append As #1
Print #1, Text1.Text ‘Text1′deki kodu .txt olarak yazar değişebilir.
Close #1
MsgBox “Kayıt Tamamlanmıştır”, vbInformation, “Olumlu” ‘ kayıt tamamlanınca mesajımız
Son: ‘ hata olursa kod sonuna gider.
End Sub
Kodumuz bu şekildedir , uzatmadan 2. yolumuza geçelim.
2 – Print İşlemi İle Textbox’ı .txt Olarak Kaydetme :
Bu bölüm kolaydır sadece 2 nesne ekleyerek textbox’ı tek tuşla kaydedeceğiz.
Formumuza 1 Adet Buton ( name özelliği Command1 ) , 1 Adet Textbox ( name özelliği Text1 ) nesnesi ekliyoruz.
Private Sub Command1_Click()
Open “C:dosyaadı.txt” For Output As #1 ‘dosyaadı değişebilir
Print #1, Text1.Text; ‘Text1′i kaydeder değişebilir.
Close #1
End Sub
2 yolumuzun anlatımının sonuna geldik, yardımcı olabildiysem ne mutlu bana.İyi programlamalar dilerim.
