textbox içindeki metnin herhangi bir harfini değiştirmeyi nasıl yaparız?

[son üye]

Merhaba, textbox1 içinde "ADANA" yazıyor. Bunun 3. harfini "C" olarak değiştirmek istiyorum. Buradaki 3. sıra, değişebilir. Yani, ben 4 dersem 4. harf, 5 dersem 5. harf değişsin istiyorum. Nasıl yapabilirim? Çok teşekkürler.

 

[Levent Menteşoğlu]

Sorunuzun cevabı kolayda nasıl yapılacağı anlaşılmıyor, örneğin değiştirilecek harf yeri ile neyle değiştirileceği bilgisi nereden alınacaktır.

 

[son üye]

ilgilendiğiniz için teşekkür ederim. Kaçıncı sıradaki harfin ne olacağını farklı textboxlarla gösterebiliriz. Mesela textbox2'de 3, 4 gibi sıra ve textbox3'te de belirtilen sıraya hangi harfin getirileceğini yazabiliriz.
Tekrar teşekkürler.

 

[son üye]

örnek ekledim.. Userform1 üzerinde textboxlar var.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    If Len(TextBox1) < Val(TextBox2) Then Exit Sub
    TextBox1 = WorksheetFunction.Replace(TextBox1, TextBox2, 1, TextBox3)
End Sub

 

[Mahmut Kök]

Sayın Cost Control uygun cevabı vermiş gerçi.. Sadece Mid(TextBox1, 3, 1)="C" gibi olur sanmıştım ama olmadı. Biraz uzun bir yol olsa da aşağıdaki kodları da kullanabilirsiniz.

Private Sub CommandButton1_Click()
Dim a(256) As String
uz = Len(TextBox1)
For b = 1 To uz
a(b) = Mid(TextBox1, b, 1)
Next
a(TextBox2) = TextBox3
TextBox1 = Empty
For c = 1 To uz
TextBox1 = TextBox1 & a(c)
Next
End Sub

 

[son üye]

Sağolun arkadaşlar. Sayenizde çok şey öğreniyoruz. Teşekkürler.