Sonuçlar 1 to 2 of 2

Konu: Dosya Erişim Yöntemleri-V.Basic. (Kaynak-1)

  1. #1

    Default Dosya Erişim Yöntemleri-V.Basic. (Kaynak-1)

    Random ( Rastgele Erişimli ) Dosya

    (General)(Declarations)

    Option Explicit



    TYPE Uye_Kayıt ‘ Kayıt.Dat dosyasının veri yapısı

    Ad As String * 15

    Soyad As String * 25
    Tel As String * 9
    Email As String * 40

    END TYPE



    Dim Kişi As Uye_Kayıt

    Dim Dosya_No As Integer

    Dim Kayıt_Uzunluk As Long

    Dim Aktif_Kayıt As Long

    Dim Kayıt_Sayısı As Long

    Dim Temp_Dosya_No As Long

    Dim_Temp_Kayıt_No as Long

    Kayıt_Uzunluk = Len(Kişi)

    Dosya_No = FreeFile



    Dosyayı Açmak ‘ Dosya mevcut değilse oluşturulur



    Open “Kayıt.Dat” For Random As Dosya_No Len = Kayıt_Uzunluk

    Kayıt_Sayısı = FileLen(“Kayıt.Dat”)/Kayıt_Uzunluk

    Kayıt_Sayısı = LOF(Dosya_No)/Kayıt_Uzunluk


    Kayıt Okumak



    Get #Dosya_No, Aktif_Kayıt, Kişi

    Text1.Text =Trim(Kişi.Ad)

    Text2.Text =Trim(Kişi.Soyad)

    Text3.Text =Trim(Kişi.Tel)

    Text4.Text =Trim(Kişi.Email)



    Yeni bir kayıt eklemek



    With Kişi
    .Ad = Text1.Text
    .Soyad = Text2.Text
    .Tel = Text3.Text

    .Email = Text4.Text

    End With



    Kayıt_Sayısı = Kayıt_Sayısı + 1

    PUT #Dosya_No , Kayıt_Sayısı , Kişi




    Bir kaydı düzeltmek



    With Kişi
    .Ad = Text1.Text
    .Soyad = Text2.Text
    .Tel = Text3.Text

    .Email = Text4.Text

    End With

    Düzeltilecek_Kayıt_No = Aktif_Kayıt

    PUT #Dosya_No , Düzeltilecek_Kayıt_No , Kişi



    Kayıt Silmek

    Temp_Dosya_No = FreeFile

    Open "TEMP.TMP" For Random As Temp_Dosya_No Len = Kayıt_Uzunluk

    Aktif_Kayıt = 1
    Temp_Kayıt_No = 1
    Do While Aktif_Kayıt < Kayıt_Sayısı + 1

    If Aktif_Kayıt<> Silinecek_Kayıt then

    Get #Dosya_No, Aktif_Kayıt, Kişi

    Put #Temp_Dosya_No, Temp_Kayıt_Sayısı, Kişi

    Temp_Kayıt_Sayısı = Temp_Kayıt_Sayısı + 1

    End If
    Aktif_Kayıt = Aktif_Kayıt + 1

    Loop

    Close # Temp_Dosya_No

    Close # Dosya_No

    Kill Kayıt.Dat ‘ Orjinali sil
    Name "TEMP.TMP" As Kayıt.Dat ‘ Tamponu orjinal dosya

    ‘ olarak isimlendir

    Kayıt Aramak:



    Dim Ara_Ad As String olsun.
    For Aktif_Kayıt= 1 To Kayıt_Sayısı

    Get #Dosya_No, Aktif_Kayıt, Kişi

    If Ara_Ad = Kişi.Ad Then

    MsgBox “Buldum Buldum”
    Exit For

    End If

    Next


    Dosyayı Kapatmak



    Close #Dosya_No

    Sequential ( Sırasal Erişimli ) Dosya



    Dosya_No = FreeFile



    Open “Rehber.Dat” For Output As Dosya_No ‘ Kayıt için dosya açmak.

    ‘ Dosya mevcutsa silip yenisi oluşturur

    Print #Dosya_No, Text1.Text ‘ Kayıt girişi

    Print #Dosya_No, Text2.Text

    Print #Dosya_No, Text3.Text

    Print #Dosya_No, Text4.Text



    Close #Dosya_No ‘ Dosya kapat



    Open “Rehber.Dat” For Input As Dosya_No ‘ Kayıtları okumak için dosya açmak



    Text1.Text = Input$(LOF(Dosya_No), Dosya_No)



    Close #Dosya_No



    Open #Rehber.Dat” For Append As Dosya_No ‘ Var olan dosyayı kayıt eklemek

    ‘ için açmak

    Print #Dosya_No, Text1.Text

    Print #Dosya_No, Text2.Text



    Close #Dosya_No ‘ Dosyayı kapatmak

    Binary ( Byte Erişimli ) Dosya



    Dosya_No = FreeFile

    Ekle_Bilgi = “23. Byte tan sonra eklenecek.”



    Open “OkuBeni.Txt” For Binary As Dosya_No ‘ Binary erişim.



    Put #Dosya_No, 23, Ekle_Bilgi ‘ 23. bytedan itibaren eklenir

    Put #Dosya_No, , Ekle_Bilgi ‘ Dosya sonuna eklenir.

    Close #Dosya_No



    Bilgi_Al = String$(23, ““) ‘ 23 Bytelık alan ayır

    Get #Dosya_No, 54, Bilgi ‘ 54. Bytedan itibaren

    ‘ 23 bytelik bilgi Okur



    Close #Dosya_No ‘ Dosya kapatma





    BOF : Dosya başı

    EOF : Dosya sonu

    FileAttr : 1 – input, 2 – Output, 4 – Random,

    8 – Append, 32 – Binary

    LOC : Açık dosyanı okuma – yazma durumu.

    LOF : Açık dosyanın uzunluğu



    Text Dosyaya Formatlı Aktarma


    Adı :

    Soyadı :

    Tel No:

    E-mail :


    Bilgi = Bilgi & "Adı: "& dbKayit.Ad & VbCrLf
    Bilgi = Bilgi & "Soyadı: "& dbKayit.Adres & VbCrLf
    Bilgi = Bilgi & "Tel No: "& dbKayit.Tel & VbCrLf
    Bilgi = Bilgi & "E-Mail: "& dbKayit.Email & VbCrLf & VbCrLf



    Open "Bilgi.Txt” For Output As #1
    Print #1, Bilgi
    Close #1


    Çift Tırnak Kullanmak

    Print # yerine Write # kullanılır.

    Print # stringlerde çift tırnak kullanmaz.

  2. #2

Similar Threads

  1. ADO Data Control - ADO Veri Erişim(v.basic.kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 06-08-08, 11:19
  2. Data – Veri Erişim Kontrolü-(V.Basic-kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 24-07-08, 17:52
  3. API Viewer (v.Basic Kaynak-1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 24-07-08, 10:55
  4. SQL .V.Basic.(Kaynak-1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 24-07-08, 10:02
  5. Dosya Yönetimi (v.Basic Kaynak-1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 15-07-08, 11:07

Tags for this Thread

Bookmarks

Gönderme izinleri

  • Yeni Konu açamazsınız
  • Konulara cevap yazamazsınız.
  • Eklenti gönderemezsiniz.
  • Mesajlarınızı düzenleme izniniz yok.
  •