+- 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
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şum
))
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
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
aslında tam olarak buton değil . tickbox ve vb.net olursa kodlar sevinirim
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