我想把TEXT文本中的换行全部去掉怎么做？

Question

我想把TEXT文本中的换行全部去掉怎么做？

Answer 1

Public Function clsenter(a As String)
Dim c() As String
c = Split(a,vbCrLf)
Dim temp As String
Dim i As Integer
For i = 0 To UBound(c)
    temp = Trim(c(i))
Next
clsNull = Trim(a)
End Function

Answer 2

就是说我原来的文本在TEXT筐中假如是KSDJFKS
SKDJFSK
KSJDFKSLKSLDF这样显示的但是我想让它的换行符去掉成一行然后我再自行换行，如果改MULTILINE属性就不能再换行了。

Answer 3

ZYG0你的那个函数我试了一下没管用，能不能解释一下

Answer 4

dim d as string
d=Split(text1.text,vbcrlf,"")

Answer 5

Private Sub Command1_Click()
    Text2.Text = Clsenter(Text1.Text)
End SubPrivate Function Clsenter(ByVal Str As String)
    Dim Arr() As String
    Dim strTemp As String
    Dim i As Long
    
    Arr = Split(Str, vbCrLf)
    For i = LBound(Arr) To UBound(Arr)
        strTemp = strTemp & Arr(i)
    Next
    Clsenter = strTemp
End Function

Answer 6

午夜逛街的也没管用，但是DONGGE2000的好用，谢谢大家。