textbox seperator

[ikgyargic]

Herkese merhaba,

Textbox daki uzunca bir metnin içinde " ; " separatorleri bulunmakta.
yapmak istediğim " ; " separatorlerinden sonra alt satıra geçmesi.
(Excel sheetlerde metni sütuna dönüştermenin satıra dönüştürmesi gibi..)

Yardımlarınız için şimdiden teşekkürler...

 

[Mahmut Kök]

Herkese merhaba,

Textbox daki uzunca bir metnin içinde " ; " separatorleri bulunmakta.
yapmak istediğim " ; " separatorlerinden sonra alt satıra geçmesi.
(Excel sheetlerde metni sütuna dönüştermenin satıra dönüştürmesi gibi..)

Yardımlarınız için şimdiden teşekkürler...

Formunuza bir metinkutusu (textbox) ekleyip aşağıdaki kodları kullanırsanız fikir verecektir. Bu kodları kullandığınızda metni yazdığınız anda ; işareti kullandığınızda alt satıra geçer. Yazılmış bir metin için de aşağıdaki kodlardan hareketle çözüm üretebilirsiniz.

Private Sub TextBox1_Change()
TextBox1.MultiLine = True
If Right(TextBox1, 1) = ";" Then TextBox1 = TextBox1 & Chr(10)
End Sub

İçinde metin bulunan metin kutusu için bu işlemi aşağıdaki kodlarla yapabilirsiniz.

Private Sub CommandButton1_Click()
TextBox1.MultiLine = True
For a = 1 To Len(TextBox1)
If Mid(TextBox1, a, 1) = ";" Then TextBox1 = Left(TextBox1, a) & Chr(10) & Right(TextBox1, Len(TextBox1) - a)
Next
End Sub

Sheet = Sayfa
spetarator = Ayırıcı, buradaki manasıyla işaret. Noktalı virgül işareti.