Anasayfa > Kodlar > Visual Basic 6 ile Sıralı (Text) dosyalarda kayıt düzeltme işlemi

Visual Basic 6 ile Sıralı (Text) dosyalarda kayıt düzeltme işlemi


Formumuza bir listbox,bir command butonu ekleyerek yaptığım bir düzeltme işlemi

Burda bilgi(yaratılan) olan  bir dosyada listboxdan seçtiğimiz bir kaydı düzelt butonuna bastığımızda düzeltme işlemi yapan ufak bir proje anlatacağım ben bunu bayağ aradım bulamadım.Benim gibilerin işine yarayabilir diye yazıyorum.
---------------------------------------------
1-) formumuza bir listbox,bir command butonu ekleyelim.
Private sub form_Load
open "dosyanızın adı" for input as #dosya no
do until eof(dosya no)
input #dosya no,ad [i][/i]      'dosyadaki bilgilerimiz isim olsun
list1.additem ad
Loop
close #dosya no
End Sub
2-)command butonuna çift tıklıyalım ve;
Private sub command1_Click
open "dosyanızın adı" for input as #dosya no
open "geçiçi dosya adı" for output as #dosya no2
k=list1.text     'listeden seçtiğimiz isimi ifade ediyor
do until eof(dosya no)
input #dosya no,ad        'kaydımızı okutuyoruz
if k=ad then
mesaj=("Emin misin?" &  ad,vbinformation+vbyesno,"KayıtDüzeltme")
if mesaj=vbyes then
ad1=inputbox("Yeni İsimGiriniz")
list1.removeitem ad
list1.additem ad1
write #dosyano2,ad1
else
write #dosyano2,ad
end if
else
write #dosyano2,ad
end if
Loop
close #dosya no
close #dosyano2
kill "dosyanızın adı"          'dosyayı siliyoruz
Name "geçici dosya adı" as "dosyanızın adı"   'geçici dosyanın ismini değiştiriyoruz

End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: