G
Các bạn giúp mình với, level mình còn thấp quá, chạy không ra kết quả híc
Public Function khoangtrang(ByRef chuoi As String)
Dim c1, c2 As String
n = Len(chuoi)
'cat khoang trang o 2 dau
While Mid(chuoi, 1, 1) = " "
chuoi = Mid(chuoi, 2, n - 1)
Wend
k = Len(chuoi)
While Right(chuoi, 1) = " "
chuoi = Left(chuoi, k - 1)
Wend
m = Len(chuoi)
j = 2
'cat nhung khoang trang du thua o trong
For i = j To m - 1 Step 1
If Mid(chuoi, j, 2) = " " Then
c1 = Left(chuoi, j - 1)
c2 = Right(chuoi, j + 1)
chuoi = c1 & " " & c2
m = Len(chuoi)
j = j - 1
End If
Exit For
Next i
khoangtrang = chuoi
End Function
Public Function khoangtrang(ByRef chuoi As String)
Dim c1, c2 As String
n = Len(chuoi)
'cat khoang trang o 2 dau
While Mid(chuoi, 1, 1) = " "
chuoi = Mid(chuoi, 2, n - 1)
Wend
k = Len(chuoi)
While Right(chuoi, 1) = " "
chuoi = Left(chuoi, k - 1)
Wend
m = Len(chuoi)
j = 2
'cat nhung khoang trang du thua o trong
For i = j To m - 1 Step 1
If Mid(chuoi, j, 2) = " " Then
c1 = Left(chuoi, j - 1)
c2 = Right(chuoi, j + 1)
chuoi = c1 & " " & c2
m = Len(chuoi)
j = j - 1
End If
Exit For
Next i
khoangtrang = chuoi
End Function
