Skip to main content

AccessTr.neT M.

Metin Belgesi İçinde Yazı Bulup Değiştirme Yardım Lütfen

Konu

Çözüldü #1
Son Düzenleme: 09/12/2011, 15:42, Düzenleyen: Shatel.
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

Cevapla
Çözüldü #2
Örnek dosyayı göremedim.

AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
...........
Çözüldü #3
Son Düzenleme: 09/12/2011, 19:08, Düzenleyen: ercansahin.
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))

Cevapla
Çözüldü #4
Son Düzenleme: 09/12/2011, 20:18, Düzenleyen: Shatel.
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

Cevapla
...........
Çözüldü #5
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

<<< 10-HAGİ-10 >>>
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da