MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > VisualBasic > Kodlar

Bul ve Değiştir

Girilen ifayeyi metin içinde bulup istediğiniz başka bir ifade ile değiştirir

Kategori : VisualBasic
Gönderen : LonG
Telif :
Tarih : 19 Temmuz 2005
Örnek Dosya : İndir
Okunma Sayısı : 14651
Puan
: 7,6 / 10 (5 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
'Form 1 Kodları
Private Sub m10_Click()
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" + "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    CommonDialog1.FilterIndex = 2
    CommonDialog1.ShowOpen
    On Error GoTo hata
    Open CommonDialog1.FileName For Input As #1
    'İlk satır metin kutusuna alınıyor.
    Line Input #1, satir
    Text1.Text = satir
    Do While Not EOF(1)
        Line Input #1, satir
        'Aralarına satır sonu işareti de eklenerek tüm satırlar metin kutusuna alınıyor.
        Text1.Text = Text1.Text + Chr(13) + Chr(10) + satir
    Loop
hata:
End Sub

Private Sub m11_Click()
    Aranan = InputBox("Bulunmasını istediğiniz kelime")
    If Len(Aranan) > 0 Then
        konum = InStr(Text1.Text, Aranan)
        'Konum=0 ise metin bulunamadı demektir.
        '0'dan büyükse metin bulundu demektir.
        If konum > 0 Then Text1.SelStart = konum - 1
    End If
End Sub

Private Sub m12_Click()
    Form2.Show 1
End Sub

Private Sub m15_Click()
    Unload Me
End Sub




'Form 2 Kodları
Private Sub Command1_Click()
    'Eğer aranacak bir kelime girildiyse.
    If Len(Text1.Text) > 0 Then
        'Aramaya imleçin bulunduğu konumdan başlanmalı
        Baslama = Form1.Text1.SelStart
        If Baslama = 0 Then Baslama = 1
        Anametin = Form1.Text1.Text
        Arananmetin = Text1.Text
        'Kelime aranıyor ve imleç o noktaya konumlandırılıyor.
        konum = InStr(Baslama, Anametin, Arananmetin)
        If konum > 0 Then Form1.Text1.SelStart = konum - 1
        'Eğer değiştirilecek bir kelime girildiyse.
        If Len(Text2.Text) > 0 Then
            'İmleçin olduğu noktaya kadar olan kısım alınıyor.
            Anametin1 = Left(Form1.Text1.Text, Form1.Text1.SelStart)
            miktar = Len(Anametin) - Form1.Text1.SelStart - Len(Text1.Text)
            'Ana metnin, değişimi yapılacak olan kelimeden sonraki kısmı da alınıyor.
            Anametin2 = Right(Form1.Text1.Text, miktar)
            'Sonra da ilk parça, değişecek kelime ve son parça birleştiriliyor.
            Form1.Text1.Text = Anametin1 + Text2.Text + Anametin2
            Form1.Text1.SelStart = Len(Anametin1 + Text2.Text)
            Unload Me
        End If
    End If
End Sub

Private Sub Command2_Click()
    Baslama = 1
    degismesayisi = 0
    konum = 1
    Anametin = Form1.Text1.Text
    Arananmetin = Text1.Text
    If Len(Text1.Text) > 0 And Len(Text2.Text) > 0 Then
        Do While konum > 0
            konum = InStr(Baslama, Anametin, Arananmetin)
            If konum > 0 Then
                Form1.Text1.SelStart = konum - 1
                degismesayisi = degismesayisi + 1
            End If
            Anametin1 = Left(Form1.Text1.Text, Form1.Text1.SelStart)
            miktar = Len(Anametin) - Form1.Text1.SelStart - Len(Text1.Text)
            Anametin2 = Right(Form1.Text1.Text, miktar)
            Form1.Text1.Text = Anametin1 + Text2.Text + Anametin2
            Form1.Text1.SelStart = Len(Anametin1 + Text2.Text)
            Baslama = Form1.Text1.SelStart
        Loop
        MsgBox (Str(degismesayisi) + "  adet değiştirme yapıldı")
        Unload Me
    End If
End Sub

Private Sub Command3_Click()
    If Len(Text1.Text) > 0 Then
        konum = InStr(Form1.Text1.Text, Text1.Text)
        If konum > 0 Then Form1.Text1.SelStart = konum - 1
    End If
End Sub
 
 

Bul ve Değiştir için yazılan yorumlar

fatma  { 17 Aral�k 2014 }
bana bunun recursive olanı lazım nasıl yapabilirz.?her dilde olabilir

yakup   { 10 Mart 2007 }
ellerine sağlık ben endüstri meslek lisesinde okuyorum programcı olacağım insallah programlarında basarılar devamını bekleriz. kolay gelsin

Yorum ekleyin

Anasayfa > VisualBasic > Kodlar > Bul ve Değiştir
Kategoriler:


Forum:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.80.93.19 | 0,12 Saniye
© Copyright 2004-2018 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.