- Đánh giá :
(Điểm đánh giá: 3.00)- Xem / Bình luận:
- 2362 / 6 lượt
- Tổng số đính kèm:
- 0
- Bình luận cuối cùng:
- 19/01/12, 08:26
gửi bởi nhochoclaptrinh
Câu lạc bộ Visual Basic
.:: Nơi trao đổi về lập trình Visual Basic ::.
Đổi các chữ đầu thành chữ hoa (Title case)
Giới thiệu sơ lược
- Thủ thuật:
- Đổi các chữ đầu thành chữ hoa (Title case)
- Tác giả:
- PhuongThanh37">PhuongThanh37
- Mô tả:
- Đổi các chữ đầu thành chữ hoa
- Người gửi:
- truongphu
vào lúc 06/04/08, 22:27 - Liên kết:
- Xem toàn bộ Chủ đề trên Diễn đàn
Thống kê
Chia sẻ bạn bè qua:
Nội dung bài viết
- Code: Chọn tất cả
- Function S1(ByVal St1 As String) As String
- A = Split(St1, " ")
- For i = 0 To UBound(A)
- A(i) = UCase(Left(A(i), 1)) & Right(A(i), Len(A(i)) - 1)
- Next
- S1 = Join(A, " ")
- End Function
7 dòng! Dùng được cho chữ đầu là Unicode Mong các bạn bên dưới xem lại