TextBox1’de ki Veriyi Textbox2’ye Şartlı Yazmak

ormann · 23 Haziran 2018

İyi akşamlar;

Ekli örnek dosyada bulunan Textbox1 deki verinin aynısını TextBox2 ye yazdırıyorum.Benim yapmak istediğim textbox1’in içerisindeki cümlenin en sonunda tespit edilmiştir kelimesi var ise textbox2 ye yazarken bu kelimeyi silip kanaatiyle; yazdırabilir miyiz?
http://dosya.co/rpveipwfccsk/örnek.rar.html

Haluk · 23 Haziran 2018

Şöyle bir şey deneyin ....

Kod:

Private Sub TextBox1_Change()
    If TextBox1.Text Like "*tespit edilmiştir." Then TextBox2 = Replace(TextBox1.Text, "tespit edilmiştir.", "kanaatiyle;")
End Sub

.

ormann · 23 Haziran 2018

Haluk bey çok teşekkür ederim.Yalnız şöyle bir şart olabilir mi?.Textbox1 in sonunda tespit edilmiştir. yok ise textbox1'in aynısını textbox2 ye yazabilir mi?

Haluk · 23 Haziran 2018

Kod:

Private Sub TextBox1_Change()
    If TextBox1.Text Like "*tespit edilmiştir." Then
        TextBox2.Text = Replace(TextBox1.Text, "tespit edilmiştir.", "kanaatiyle;")
    Else
        TextBox2.Text = TextBox1.Text
    End If
End Sub

.

ormann · 23 Haziran 2018

Çok teşekkür ederim.İyi akşamlar

Haluk · 23 Haziran 2018

Kolay gelsin ...

.

ormann · 23 Haziran 2018

Haluk bey;
Cümlenin ortasında örneğin "2B alanı içerisinde kaldığı Tespit edilmiştir.Orman sayılmayan yerlerden olduğu tespit edilmiştir." dediğim zaman da her ikisini de değiştiriyor.Değiştirme işlemi en son yazılan veride olacak.böyle yapar mısınız ?

Haluk · 23 Haziran 2018

Bunu bir deneyin ...... tam olarak test etmedim.

Kod:

Private Sub TextBox1_Change()
    If TextBox1.Text Like "*tespit edilmiştir." Then
        myStr = TextBox1.Text
        str1 = "tespit edilmiştir."
        str2 = "kanaatiyle;"
        
        Pos = InStrRev(myStr, str1)
        
        If Pos > 0 Then
            TextBox2.Text = Mid(myStr, 1, Pos - 1) & Replace(myStr, str1, str2, Pos)
        End If
    Else
        TextBox2.Text = TextBox1.Text
    End If
End Sub

.

ormann · 24 Haziran 2018

Haluk bey çok teşekkür ederim.Son mesajınızdaki kod gayet güzel çalışıyor.İşimi gördü.Birde son olarak başka bir yerde kullanmak için kodda şöyle bir değişiklik yapılabilir mi?
Örneğin: Textbox1 de orman sayılan alanlar içerisinde kaldığı tespit edilmiştir.Bilgilerinize arz ederim.
Textbox2 ye orman sayılan alanlar içerisinde kaldığı kanaatiyle.Bilgilerinize arz ederim. Şeklinde değişebilir mi?. Yani değişmesini istediğim "tespit edilmiştir" kelimesi cümlenin herhangi bir yerinde de olsa değişecek

Haluk · 24 Haziran 2018

Kod:

Private Sub TextBox1_Change()
    TextBox2.Text = Replace(TextBox1.Text, "tespit edilmiştir.", "kanaatiyle; ")
End Sub

.

ormann · 26 Haziran 2018

çok teşekkür ederim.Haluk bey

TextBox1’de ki Veriyi Textbox2’ye Şartlı Yazmak

ormann

Haluk

𐱅𐰇𐰼𐰚

ormann

Haluk

𐱅𐰇𐰼𐰚

ormann

Haluk

𐱅𐰇𐰼𐰚

ormann

Haluk

𐱅𐰇𐰼𐰚

ormann

Haluk

𐱅𐰇𐰼𐰚

ormann