diyip dosyayı 0 dan oluşturursun kayıt silinmiş olur. eğer içinde başka kayıtlar varsa text1 e göre silcekse şöyle yapabilirsin. yine 2 tane text koy. bi tane buton koy silmek için aşağıdaki kodları o butonun click olayına yaz Kod: Private Sub Command2_Click Open "C:\yedek. txt" For Output As

127.0.0.1 www.wardom.org 127.0.0.1 www.mynet.com 127.0.0.1 www.yahoo.com yaz bakalım dostum deneme dosyasına bunları yapamıyo neden acaba?

tırnak işaretleri çıkmasın diyosan Write

dostum yardımlarını esirgeme

' Yeden dosyamızı oluşturduk Open "C:\deneme. txt" For Input As

walla şuan aşırı derecede sınava konsantire oldumdanmı bilmiom ama anlayamıyorum demek istediğini kusura bakma :S

ya dostum farkı yok işte deneme 12345 yazınca 12345 siliniyo textboxa 12345 yazınca verdiğin kodlarla ama 127.0.0.1 wardom. org olunca deneme. txt de textboxa wardom. org yazınca silinmiyo dostum olmazsa pmde msn at olmazsa baştan anlatıyım c:/deneme. txt adlı 1 dosyamız war içinde 127.0.0.1 www.wardom.org 127.0.0.1 www.mynet.com yazıyor textboxa www.mynet.com yazdığımızda denemede 127.0.0.1 www.wardom.org 127.0.0.1 kalacak sadece -

walla erişim engellendi hatasıymış. niye verdi bilmiyorum ama bende vermiyo. bide on local error resume next yaz tanımlamalardan sonra olmassa. senin dosyaya yaptığın kayıt başka bi formatta mı acaba :S bilemicem.

benim bildiğim kadarıyla silme olayı yok. ama şöyle bişey var ikinci bir dosya kullanıyoruz yedek olarak birinci dosyadaki kayıtlarla silmek istediğimiz kaydı karşılaştırıyoruz. eğer kayıtlar farklıysa 2. dosyaya yazdırıyoruz. eğer silmek istediğimiz kayıtla aynıysa yazdırmıyoruz. işlemler bitincede 1. dosyayı siliyoruz. 2. dosyanın adını 1. dosyanın adı yapıyoruz. bölece silinmiş oluyo senin sorduğun soruyu ben söyle anladım. şimdi dosyada deneme 123456789 yazı tmm sen onu sildircen. ama eğer dosyada sadece o varsa tek bi kayıt varsa Open "C:\yedek. txt" For Output As

Kill ' gerçek dosyayı sildik Name "c:\yedek. txt" As "c:\deneme. txt" ' yedek dosyanın Adını değiştirdik End Sub umarım doğru anlamışımdır ve yardımcı olabilmişimdir.

dostum, verdiğin kodlar c:/deneme. txt deki istenilen kelimenin silinmesine değil tüm kelimelerin tırnak işareti içinde olmasına neden oldu ama genede tşk. deneme kısmını kaldırsak textboxa girilen (12345)kaldırılsa sadece deneme. txt den daha kolay olacak galiba bu kodlar hakkındada yardımcı olurmusun misal örnek vermişsin deneme 12345 tek bir kayıt olduğu için ayırcaz... işte şimdide sadece 12345 silinsin istiyom salla denemeyi bu daha kolay olacak galiba

dostum denemedeki dosyada bunu yazıyo warsay yedek dosyasınada textboxa www.mynet.com yazınca 127.0.0.1 www.wardom.org 127.0.0.1 127.0.0.1 www.yahoo.com olması gerek dimi olmuyo ama işte

' Gerçek dosyamızı okuma modunda açtık While Not EOF(2) ' 2. dosyayı sonuna kadar okutcaz Input

yok kardeş hata felan vermedi. ama sen yinede dim a as string dim bosluk as integer diye değişkenleri tanımla belki ondandır.

dostum dediğim sadece textbox a 123456789 yazdığımızda 123456789 silinsene olur daha kolaya benziyor bu dediklerini yaptım ama deneme. txt de "kelime" olarak çıktılar dostum dediğim sadece textbox a 123456789 yazdığımızda 123456789 silinsene olur bu dediğim hakkında 1 bilgi verirsen sevinirim dostum tşk.

' dosyaları kapattık Close

Close

dostum ellerine sağlık

If Text1. Text <> Left(a, bosluk - 1) Then ' burda 1 hata çıktı

iiide sana verdim kodlar kayıt eklemioki kayıt silio

arkadaşlar misal c:/deneme. txt dosyamda deneme 123456789 yazıyor 2 textbox war textbox1'e = deneme texbox2'ye = 123456789 yazdığımda satırın silinmesini istiyorum bunu nasıl başarabilirim aradım aradım hiç 1 yerde bulamadım olmadı sadece textbox a 123456789 yazdığımızda 123456789 silinsene olur

Text'e Yazdırmayı Biliyorum'da, Silmeyi Bilemicem..;

oldu yane sorun yok çok şükür bunuda yaptık

kodları böyle değiştir. yok deneme yazdığımda deneme gitcek diyosan If Text2. Text <> Mid(a, bosluk + 1, Len - bosluk) Then ' boşluğa kada olan kısmı text1 in içindekiyle karşılaştırdık satırındaki Mid(a, bosluk + 1, Len - bosluk) i sil Left(a, bosluk - 1) yaz. Print

yedek dosyamı :S nası yani :S ya sen en iyisi ne programı yapacan onu söyle direk onu yapalım walla bak