langbat nói:
Mình có một câu hỏi thế này. Nếu mình có một chuỗi ký tự:
"pham hong anh" sau đó mình viết lại là "anhph". vậy có cách nào làm không ?
Xin thứ lỗi nếu câu hỏi này làm mọi người cười.
Chào bạn
Đây là Function tách chuỗi theo yêu cầu của bạn.
Function UserID(FullName)
Dim FirstName, LastName, l, i 'Khai bao cac bien
FullName = RTrim(Trim(FullName)) 'Cat bo khoang trong thua
l = Len(FullName) 'Xac dinh do dai cua chuoi FullName
If l < 2 Then
FirstName = ""
Else ' Tim khoang trong dau tien ke tu ben phai chuoi de tach ten
For i = 1 To l - 1
If Mid(FullName, (l - i), 1) = " " And Len(FullName) - i < 25 Then
FirstName = Right(FullName, i)
Exit For
Else
FirstName = "Khong co khoang trong giua Ho va Ten."
End If
Next i
l = l - i
LastName = Left(FullName, 1)
'Lay ho va chu lot
For i = 1 To l - 1
If Mid(FullName, i, 1) = " " Then 'And Len(FullName) - i < 25 Then
LastName = LastName + Mid(FullName, i + 1, 1)
End If
Next i
End If
UserID = FirstName + LastName
End Function
Thân mến.
PS: Gửi bạn file UserID.XLA