if else sorunu

[abonem]

      Open "\deneme.txt" For Output As #1
        Do While Not EOF(1)
        Line Input #1, Txtdata
        Loop
        If Txtdata = TextBox1.value Then
        msgbox "yazılar aynı"
    Close #1
        Else
        Print #1, TextBox2.Text
    Close #1
        end if

deneme.txt deki yazılar textbox1 deki ile aynı olmasına rağmen else kısmına geçip textbox 2 deki satırı işliyor

eşit aslında ve msgbox da yazılar aynı yazması lazım,
bu sorun hakkında bilgisi olan birisi varsa yardımcı olursa çok teşekkür ederim

 

[Recep İpek]

Büyük ihtimalle Txtdata ile Textbox1.value bilgileri aynı değil.Veri tipleri farklı olabilir.

Önce bunların aynı olduğundan emin olunuz.

 

[abonem]

Private Sub UserForm_Initialize()
If Not Dir("\deneme.txt") = Empty Then
Open "T\deneme.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Txtdata
Loop
TextBox1 = Txtdata
Close #1
Else
End If
End Sub

ile veriyi çektim tekrar eşitmi diye baktırdım gene olmadı ?

 

[Recep İpek]

Peki mümkün ise TXT dosyası ile beraber küçük bir örnek dosya ekleyebilirmisiniz?

 

[abonem]

buyrun ilk denemede göreceksiniz,
ancak 2. denemede zaten txtyi sıfırlıyor oda anlamadığım bir olay :S

txt içini sıfırlayınca aynı diyor ama içinde bir veri olduğudna ise sorunu görüceksiniz.

 

[Recep İpek]

Sanırım excel dosyasının içi boş.

Ayrıca anladığım kadarıyla ilk mesajınız ile sonraki mesajınız arasındaki yapmak istediğiniz farklı gibi.

1.mesajınızda Textbox1'deki veriyi TXT dosyasına yazdırıyorsunuz. 2.ise TXT dosyasındaki veriyi TextBox1'e yazdırmak istiyorsunuz.

 

[abonem]

ewt zaten orda onu yapmıştım örnek için,
textbox daki veri ile txt deki veriyi kontrol edip aynıysa bir işlem değilsede başka bir işlem yapmak istiyorum aslında?

niye txt deki veri ile textbox daki veri aynı olmasına rağmen aynı değil diyor sistem_? benim sorum bu Recep Bey

 

[Recep İpek]

Siz sanırım bunu Userformun Initialize olayına yani yükleme adımında yapıyorsunuz.

Peki Userform yüklenirken TextBox1'de veri oluyor mu? Veri yoksa doğal olarak eşit olmayacaktır.

 

[abonem]

hocam tabiki textbox1 e ben txt den veriyi başta çekiyorum, örnekte sırf size göstermek için öyle yapmıştım :S

ve veri her şekilde eşit ancak çalışmıyor.
Galiba sizde çözemediniz

 

[Recep İpek]

Do While Not EOF(1)
Line Input #1, Txtdata
Loop

satırı ile TXT dosyasının en altındaki veriyi bulmak istiyorsunuz sanırım.

Fakat bildiğim kadarıyla TXT dosyalarının son verisinden sonra bir satırda boşluk bilgisi vardır.
Yani Textbox1 boş olarak denerseniz istediğiniz olacaktır.

 

[abonem]

peki ilk satırı nasıl okutabiliriz txt nin ? çünkü ilk satır benim işimi görüyor ?