Đổi các chữ đầu thành chữ hoa (Title case)

Các thủ thuật liên quan đến xử lý chuỗi và thời gian
Post Reply
User avatar
truongphu
VIP
VIP
Posts: 4781
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 525 times

Đổi các chữ đầu thành chữ hoa (Title case)

Post by truongphu »

Thủ thuật: Đổi các chữ đầu thành chữ hoa (Title case)
Tác giả: PhuongThanh37
Mô tả: Đổi các chữ đầu thành chữ hoa

Code: Select all

Function S1(ByVal St1 As String) As StringA = Split(St1, " ")For i = 0 To UBound(A)   A(i) = UCase(Left(A(i), 1)) & Right(A(i), Len(A(i)) - 1)NextS1 = 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
Last edited by truongphu on Sun 06/04/2008 11:09 pm, edited 1 time in total.
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh
User avatar
anhtuyenbk
Guru
Guru
Posts: 1311
Joined: Thu 22/09/2005 4:12 pm
Location: Một nơi chừa từng biết, chưa từng nghe, chưa từng thấy
Been thanked: 38 times

Re: Đổi các chữ đầu thành chữ hoa (Title case)

Post by anhtuyenbk »

Phức tạp quá, cái này VB có sẵn mà.

Code: Select all

MsgBox (StrConv("day la ham co san", vbProperCase))
Kiếm cơm cho qua ngày tháng
https://www.facebook.com/pinduphongpisenchinhhang
giongto35
Thành viên danh dự
Thành viên danh dự
Posts: 194
Joined: Thu 19/04/2007 10:17 am
Location: Đà Nẵng City
Been thanked: 1 time
Contact:

Re: Đổi các chữ đầu thành chữ hoa (Title case)

Post by giongto35 »

Đâu cần phải là cứ có sẵn , làm như thế cũng có khi khôn ra chứ :)
________________________________________________________________________________________________
. . . . . . . . . . . . .. .
User avatar
hoangluyen
Thành viên năng nổ
Thành viên năng nổ
Posts: 61
Joined: Thu 03/04/2008 3:26 pm
Location: Hải Hậu - Nam Định
Contact:

Re: Đổi các chữ đầu thành chữ hoa (Title case)

Post by hoangluyen »

Ờ hờ!
Đây thể hiện phong cách pro đấy chứ, mình thích cái giải thuật của truongphu.
Cảm ơn nhiều mình đã mở mang đầu óc ra nhiều.
..::Chỉ có tình yêu (*) và lao động sẽ làm cho con người trở nên đẹp hoàn mĩ ::..
-------------------------------------------------------------------
miucon20
Thành viên tích cực
Thành viên tích cực
Posts: 193
Joined: Fri 04/06/2010 12:35 pm
Has thanked: 27 times
Been thanked: 1 time

Re: Đổi các chữ đầu thành chữ hoa (Title case)

Post by miucon20 »

anhtuyenbk wrote:Phức tạp quá, cái này VB có sẵn mà.

Code: Select all

MsgBox (StrConv("day la ham co san", vbProperCase))
Của bác Phú hay đấy còn cái của ban không hỗ trợ tốt Unico đâu. Bạn thử chữ Đây là hàm có sẵn xem nó sẽ hiển thị Dây Là .... ngay.
User avatar
VuVanHoanh
Thành viên danh dự
Thành viên danh dự
Posts: 1259
Joined: Thu 03/06/2010 9:23 pm
Location: Kim Sơn - Đông Triều - Quảng Ninh
Has thanked: 22 times
Been thanked: 138 times
Contact:

Re: Đổi các chữ đầu thành chữ hoa (Title case)

Post by VuVanHoanh »

Variable Not denified: A; i
thêm một dòng Dim = 8 :D
  1. Function S2(ByVal st As String) As String
  2.     Dim a As String, i As Integer
  3.     For i = 2 To Len(st)
  4.         If Mid(st, i - 1, 1) = " " Then a = a & UCase(Mid(st, i, 1)) Else a = a & Mid(st, i, 1)
  5.     Next
  6.     S2 = UCase(Mid(st, 1, 1)) & a
  7. End Function

7 dòng :D
Since 2008...
One love! :x
User avatar
nhochoclaptrinh
Thành viên danh dự
Thành viên danh dự
Posts: 517
Joined: Sat 28/05/2011 12:10 pm
Has thanked: 15 times
Been thanked: 83 times

Re: Đổi các chữ đầu thành chữ hoa (Title case)

Post by nhochoclaptrinh »

  1. Function TCase(ByVal s As Variant)
  2.     For Each ss In Split(s)
  3.         s = Replace(s, ss, UCase(Left(ss, 1)) & Right(ss, Len(ss) - 1))
  4.     Next    TCase = s
  5. End Function

:D
Sad eyes never lie :((
Post Reply

Return to “[VB] Chuỗi và Thời gian”