AccessTr.neT
Metin Belgesi İçinde Yazı Bulup Değiştirme Yardım Lütfen - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Belgesi İçinde Yazı Bulup Değiştirme Yardım Lütfen (/konu-metin-belgesi-icinde-yazi-bulup-degistirme-yardim-lutfen.html)



Metin Belgesi İçinde Yazı Bulup Değiştirme Yardım Lütfen - Shatel - 09/12/2011

arkadaşlar mesela bir buton oluşturacağım .
o butonun adı buton1 olsun .
buton1 e tıkladığımda . yazdğım programla aynı klasördeki xx.txt dosyasını açacak .
içerisinden ahmet=0 yazısını bulup . ahmet=1 olarak değiştirecek .
ve kaydedecek .
butona tekrar tıklandığında da
tam tersini yaparak
ahmet=1 yazısını bulup . ahmet=0 olarak geri almalı .
vb.net için lazım bu kod arkadaşlar yardım ederseniz çok teşekkür ederim şimdiden Img-grin


Cvp: Metin Belgesi İçinde Yazı Bulup Değiştirme Yardım Lütfen - alpeki99 - 09/12/2011

Örnek dosyayı göremedim.


Cvp: Metin Belgesi İçinde Yazı Bulup Değiştirme Yardım Lütfen - ercansahin - 09/12/2011

bul ve değiştir konusunu inceleyebilirsiniz. Yada Sn alpeki99 hocanın belirttiği üzere örnek ekleyiniz.
Pardon ben metin kutusu olarak okumuşumImg-grin))


Cvp: Metin Belgesi İçinde Yazı Bulup Değiştirme Yardım Lütfen - Shatel - 09/12/2011

Yalnız bahsettiğim şekilde textbox kullanmıyorum sayın blackeagle Img-grin
mesela şöyle anlatim .
buton direk bir yazı ile ilişkili olacak .
1i tıkladığımda .
open xx.txt
find ahmet=1
change ahmet=0
close

tekrar tıkladığımda
open xx.txt
find ahmet=0
change ahmet=1
close

yani bunları otomatik olarak yapması gerekiyor Img-grin
aslında tam olarak buton değil . tickbox ve vb.net olursa kodlar sevinirimImg-grin


Cvp: Metin Belgesi İçinde Yazı Bulup Değiştirme Yardım Lütfen - mcmaho - 17/12/2011

form üzerine bir tane buton, bir tanede textbox (multiline özelliğini true yap) yerleştir.aşağıdaki kodları yapıştır.incele istersen.ama vb6. çözüm hakkında bi fikrin olsun diye ekledim.

Option Explicit
Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer


Private Sub Bul_Click()
ArananKelime = InputBox("text1 içinde aradığınız kelimeyi giriniz:", Bul, ArananKelime)
'Aranacak kelimeyi soruyoruz..
AramayaBasla = Text1.SelStart + Text1.SelLength
'Aramayı text1 içersinde işaretçinin bulunduğu karakterden başlatacağız..
If AramayaBasla = 0 Or AramayaBasla = Len(Text1.Text) Then AramayaBasla = 1
'Eğer işaretçi sonda veya başta ise aramayı bütün text1 içerisinde yapacağız..
KelimeninYeri = InStr(AramayaBasla, Text1.Text, ArananKelime, vbTextCompare)
'instr ile kelimenin text1 içerisinde başladığı yeri alacağız..
If KelimeninYeri = 0 Then
MsgBox "text1 içinde böyle bir kelime yok"
Else
Text1.SetFocus
Text1.SelStart = KelimeninYeri - 1
Text1.SelLength = Len(ArananKelime)
'Aranan kelimeyi seçtireceğiz..
End If
End Sub