حذف فاصله ی عمودی در text box

[saeedvir]

سلام

چه طوری میشه همه ی فاصله های عمودی بین یه متن در text box را حذف کرد ؟
مثلا :
متن داخل text box به صورت زیر هست :


1

2
3


5
6می خواهم به


1
2
3
4
5
6تبدیل کنم


لطفا کمک کنید

[M.T.P]

باید متنتون رو را داخل یه فایل متنی ذخیره سپس با دستور input هر خط رو بخونی و شرط بزاری که اگه Trim اون متن مخالف Nullstring بود توی textbox نمایش بده در غیر اینصورت دستور input رو دوباره اجرا کنی تا الاآخر. منتها هربار که میخوای یک خط به textbox اضافه کنی vbnewline یادت نره.
اگه متوجه نشدی بگو تا برات یه نمونه بنویسم.

[parselearn]

تابع بدست آوردن اندازه آرایه رو فراموش کردم
ولی خب باید جایگزین عدد 15 بشه


Dim x() As String
---------------------------------------
Private Sub Command1_Click()
x = Split(Text1.Text, vbCrLf)
Text1.Text = ""
For i = 0 To 15
If x(i) <> "" Then Text1.Text = Text1.Text & IIf(Text1.Text <> "", vbCrLf, "") & x(i)
Next i
End Sub

[xxxxx_xxxxx]

While InStr(1, Text1.Text, vbCrLf & vbCrLf)
Text1.Text = Replace(Text1.Text, vbCrLf & vbCrLf, vbCrLf)
Wend
:چشمک:



تابع بدست آوردن اندازه آرایه رو فراموش کردم

UBound(x)