Viết bởi: DoquangLam 05-08-12, 05:24 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (8) |
Viết bởi: nguyencaodang 05-08-12, 04:25 PM Chuyên mục: Report - Bài trả lời (1) |
Viết bởi: uronmapu 05-08-12, 12:46 AM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (11) |
Viết bởi: Xuân Thanh 04-08-12, 12:51 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (4) |
Public Function SuaCau(CauVan)
CauMoi = Trim(CauVan)
ViTri = InStr(1, CauMoi, Space(2))
Do While ViTri > 0
CauMoi = Left(CauMoi, ViTri) & Trim(Mid(CauMoi, ViTri))
ViTri = InStr(1, CauMoi, Space(2))
Loop
SuaCau = CauMoi
End Function
Public Function XepABC(HoTen)
Ten = SuaCau(Trim(HoTen))
TenMoi = Space(0): One = Space(0): Two = Space(0)
One = One & "a aùaøaûaõaïaêaéaèaúaüaëaâaáaàaåaãaä"
One = One & "o oùoøoûoõoïoâoáoàoåoãoäô ôùôøôûôõôï"
One = One & "e eùeøeûeõeïeâeáeàeåeãeäi í ì æ ó ò "
One = One & "y yùyøyûyõî u uùuøuûuõuïö öùöøöûöõöïd ñ"
Two = Two & "aaabacadaeafagahaiajakalamanaoapaqar"
Two = Two & "oaobocodoeofogohoiojokolomonooopoqor"
Two = Two & "eaebecedeeefegeheiejekeliaibicidieifyaybycydyeyf"
Two = Two & "uaubucudueufuguhuiujukuldadb"
ViTri = InStr(1, Ten, Space(1))
Do While ViTri > 0
TenMoi = Left(Ten, ViTri) & TenMoi
Ten = Mid(Ten, ViTri + 1)
ViTri = InStr(1, Ten, Space(1))
Loop
OldS = Trim(Ten & Space(1) & TenMoi)
NewS = Space(0): LenOf = Len(OldS): ViTri = 1
Do While ViTri <= LenOf
KyTu = Mid(OldS, ViTri, 1)
If KyTu = Space(1) Then
NewS = NewS & KyTu: ViTri = ViTri + 1
Else
LowK = LCase(KyTu): OldP = InStr(1, One, LowK)
If OldP = 0 Then
NewS = NewS & KyTu: ViTri = ViTri + 1
Else
KeTiep = LCase(Mid(OldS, ViTri, 2))
NewP = InStr(1, One, KeTiep)
If NewP = 0 Then
NewS = NewS & Trim(IIf(Asc(KyTu) = Asc(LCase(KyTu)), Mid(Two, OldP, 2), UCase(Mid(Two, OldP, 2))))
ViTri = ViTri + 1
Else
NewS = NewS & Trim(IIf(Asc(KyTu) = Asc(LCase(KyTu)), Mid(Two, NewP, 2), UCase(Mid(Two, NewP, 2))))
ViTri = ViTri + Len(Trim(KeTiep))
End If
End If
End If
Loop
XepABC = Trim(NewS)
End Function
Viết bởi: Alias90 03-08-12, 12:09 PM Chuyên mục: Table - Không có hồi đáp |
Chủ đề Mới nhất |
E xin chia sẽ phần mềm Qu... -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-13-05-24, 10:37 PM- » Bài trả lời: 1- » Lượt xem: 41 |
Demo tạo Barcode (1D) bằn... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-13-05-24, 10:33 PM- » Bài trả lời: 2- » Lượt xem: 53 |
[Demo 1] Tạo Textbox tìm ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: nguyencaothong-10-05-24, 11:07 PM- » Bài trả lời: 13- » Lượt xem: 1,507 |
[Demo-Phần 4] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: huyhoang22-06-05-24, 03:29 PM- » Bài trả lời: 40- » Lượt xem: 5,544 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-06-05-24, 03:21 PM- » Bài trả lời: 40- » Lượt xem: 1,603 |
Dòng Thơ Nhạc Trích Đoạn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-30-04-24, 04:51 PM- » Bài trả lời: 4- » Lượt xem: 57 |
Trợ giúp về Textbox với c... -Chuyên mục: Forms-Đăng bởi lần cuối: Nguyên Thông-18-04-24, 10:15 PM- » Bài trả lời: 16- » Lượt xem: 5,971 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM- » Bài trả lời: 38- » Lượt xem: 20,835 |
Kết nối bảng từ access A ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM- » Bài trả lời: 5- » Lượt xem: 107 |
Lấy dữ liệu từ 1 cột của ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM- » Bài trả lời: 11- » Lượt xem: 1,111 |
Diễn đàn Thống kê |
» Thành viên: 4,566 » Thành viên mới nhất: WilliamWek » Các chủ đề diễn đàn: 9,856 » Các bài viết diễn: 48,441 Thống kê đầy đủ |