تابع آرايش يك رشته بدون فاصله

[abas1388]

سلام
با استفاده از چه تابعي ميتوان اعدادي را كه بين رقم هاي آن فاصله است بدون فاصله نوشت ؟
مثلاً عدد 2 35 654 21 بصورت 21654352 در بيايد
با تشكر

[M.T.P]

با استفاده از تابع زیر:



Function KillSpace(YourText As String) As String
Dim strTemp As String
Dim strInput As String
Dim strOutput As String
Dim i As Integer
strInput = YourText
For i = 1 To Len(strInput)
If Trim(Mid(strInput, i, 1)) <> vbNullString Then
strTemp = Mid(strInput, i, 1)
strOutput = strOutput & strTemp
End If
Next i
KillSpace = strOutput
End Function

[xxxxx_xxxxx]

x = "1 23 456 7 89"
x = Replace(x, " ", vbNullString)

:چشمک: