Tùy chọn
Sắp xếp thứ tự record
- Sắp xếp thứ tự record
-
Sắp xếp thứ tự record
thanhhao > 06-07-17, 12:17 PM
Mong các bạn hướng dẫn , làm sao sắp xếp tện sản phẩm, vd : chữ "Bảng" sắp cho hết sau đó tới chữ " Băng" ,mình đã sắp sort tăng a-z rồi mà nó vẫn không ổn...
-
RE: Sắp xếp thứ tự record
tranthanhan1962 > 06-07-17, 02:04 PM
Bảng, băng mà nhằm nhò gì, Nếu bạn có chữ Duyên, Dương, Đại. Thứ tự tiếng Việt sẽ sắp 1-Duyên, 2-Dương, 3-Đại. Nhưng bạn sort mà xem nó sẽ sắp là Đại, Dương, Duyên.
Để đưa chữ Đ nằm sau chữ D, bạn có thể tạo cột phụ tách riệng ký tự đầu để sắp xếp, nhưng những ký tự phía trong chẳng lẽ mỗi ký tự mỗi xử lý. Lỗi này do máy tính sắp thứ tự theo mã KeyAscii. Nhưng tiếng Việt phải vay mượn Nên những chữ bất thường như đ, ư, ô, ơ, ă, â, ê, và các ký tự có dấu bị nằm ngoài mã liên tục của bảng mã KeyAscii. Hiện nay ngành giáo dục cũng rất bực bội trong chuyện sắp tên học sinh theo thứ tự chữ cái tiếng việt.
Tất nhiên cũng có cách (nhưng báo trước cách này tương đối cực vì vậy đến nay mình vẫn chưa làm
) là viết code chuyển ký tự thành số a=1, á=2, à=3, ả=4, ạ=5, ă=6, ắ=7, ằ=8... khi đó nó sẽ dịch các ký tự theo số và ta có thể tạo cột phụ để sắp sếp.
-
RE: Sắp xếp thứ tự record
lehongduc > 08-07-17, 04:26 PM
Chào các Bạn,
Bài toán sắp xếp danh sách tiếng Việt có thể được giải theo nhiều cách, sau đây là một cách đơn giản nhất, phù hợp với tư duy của các Bạn mới tìm hiểu MS. Access:
1. Nếu là sắp xếp danh sách Họ và Tên người, theo quy tắc sắp xếp tiếng Việt:
+ Xếp thứ tự theo "tên" trước
+ Sau đó sắp theo "chữ lót" rồi tới "Họ"
Thứ tự sắp xếp các nguyên âm có dấu thanh tiếng Việt là: không dấu -> huyền -> sắc -> hỏi -> ngã -> nặng.
2. Như vậy ta cần phải tách cột "Họ và Tên" thành 2 cột phân biệt là: "Tên" và "Họ và chữ lót"
Vì quy tắc thứ tự sắp xếp là: "tên" -> "chữ lót" rồi mới tới "Họ", nên ta sẽ phải đảo ngược "Họ và chữ lót" thành "Chữ lót và Họ"
Vậy là ta phải viết code VBA để:
+ tách cột
+ và đảo chuỗi.
3. Muốn sắp xếp tiếng Việt, ta chỉ cần mã hóa chuỗi các ký tự tiếng Việt (nguyên âm và phụ âm chữ việt) thành chuỗi các ký tự la tinh không dấu.
Vậy là ta phải viết code VBA để làm cái công việc mã hóa này.
Sau đó ta cho sắp xếp bằng công cụ Sorting của Access là xong. -
RE: Sắp xếp thứ tự record
lehongduc > 08-07-17, 04:30 PM
Chào các Bạn,
Và đây là link tải file mdb minh họa việc sắp xếp tiếng Việt theo suy nghĩ dự tính mà tôi đã viết trong bài trước:
http://www.mediafire.com/file/pbwwm4hyom...String.zip
(Đây là File mdb có bảng danh sách họ và tên lên tới trên 7.000 mẫu tin)
Hoặc File đính kèm.
Tôi xin giải thích thêm để các Bạn mới tìm hiểu MS. Access và lập trình với VBA đỡ phải lúng túng:
1. Trong file mdb minh họa này, tôi có tạo ra 2 bảng:
- bảng tblUnicode: là bảng ghi chi tiết các nguyên âm có dấu của chữ Việt + phụ âm đ
Tác dụng của bảng này là:
+ Giúp các Bạn nhanh chóng có được code của các ký tự tiếng Việt.
Có bạn sẽ hỏi tôi, lấy đâu ra những code ấy, là tôi dùng hàm lấy code của các ký tự tiếng Việt Unicode là ASCW (nhớ có chữ W)
+ Giúp các Bạn đưa nhanh bảng code nêu trên vào VBA để tạo thành chuỗi Unicode và chuỗi mã hóa khi viết hàm mã hóa chuỗi Unicode.
Trong file mdb này tôi lấy các chuỗi này ra bằng 1 procedure tôi tự viết là Sub LayChuoiCode
- bảng thứ hai là tblDanhsach: để kiểm thử các hàm đã viết: tách cột, mã hóa, ...
2. Và các Query để chạy kiểm thử với bảng Danh sách giả lập nêu trên. -
RE: Sắp xếp thứ tự record
lehongduc > 09-07-17, 05:02 PM
Chào các Bạn,
Có Bạn gửi email thắc mắc về cái function mã hóa tôi đã viết trong file mdb minh họa, cụ thể đã đề nghị giải thích các câu lệnh sau:
Mã:UniArr = Split(UniStr, ",")
MhArr = Split(MhStr, ",")
Toàn văn Function mã hóa đã được tôi cho ngắt dòng cho dễ đọc như sau:
Mã:Function mh(UnicodeText)
Dim LngSt As Integer
Dim i As Integer
Dim UniStr As String, MhStr As String
Dim UniArr, MhArr
Dim SubStr As String, k As Integer
Dim ReStr As String
'Tac dung: Ma hoa chuoi Unicode (UnicodeText)
UniStr = "," & ChrW(97) & "," & ChrW(224) & "," & ChrW(225) & "," & ChrW(7843) & "," & ChrW(227) & "," & ChrW(7841)
UniStr = UniStr & "," & ChrW(259) & "," & ChrW(7857) & "," & ChrW(7855) & "," & ChrW(7859) & "," & ChrW(7861) & "," & ChrW(7863)
UniStr = UniStr & "," & ChrW(226) & "," & ChrW(7847) & "," & ChrW(7845) & "," & ChrW(7849) & "," & ChrW(7851) & "," & ChrW(7853)
UniStr = UniStr & "," & ChrW(101) & "," & ChrW(232) & "," & ChrW(233) & "," & ChrW(7867) & "," & ChrW(7869) & "," & ChrW(7865)
UniStr = UniStr & "," & ChrW(234) & "," & ChrW(7873) & "," & ChrW(7871) & "," & ChrW(7875) & "," & ChrW(7877) & "," & ChrW(7879)
UniStr = UniStr & "," & ChrW(105) & "," & ChrW(236) & "," & ChrW(237) & "," & ChrW(7881) & "," & ChrW(297) & "," & ChrW(7883)
UniStr = UniStr & "," & ChrW(117) & "," & ChrW(249) & "," & ChrW(250) & "," & ChrW(7911) & "," & ChrW(361) & "," & ChrW(7909)
UniStr = UniStr & "," & ChrW(432) & "," & ChrW(7915) & "," & ChrW(7913) & "," & ChrW(7917) & "," & ChrW(7919) & "," & ChrW(7921)
UniStr = UniStr & "," & ChrW(111) & "," & ChrW(242) & "," & ChrW(243) & "," & ChrW(7887) & "," & ChrW(245) & "," & ChrW(7885)
UniStr = UniStr & "," & ChrW(244) & "," & ChrW(7891) & "," & ChrW(7889) & "," & ChrW(7893) & "," & ChrW(7895) & "," & ChrW(7897)
UniStr = UniStr & "," & ChrW(417) & "," & ChrW(7901) & "," & ChrW(7899) & "," & ChrW(7903) & "," & ChrW(7905) & "," & ChrW(7907)
UniStr = UniStr & "," & ChrW(100) & "," & ChrW(273)
UniStr = UniStr & "," & ChrW(121) & "," & ChrW(7923) & "," & ChrW(253) & "," & ChrW(7927) & "," & ChrW(7929) & "," & ChrW(7925)
MhStr = ",a00,a01,a02,a03,a04,a05" 'a
MhStr = MhStr & ",a10,a11,a12,a13,a14,a15" 'aw
MhStr = MhStr & ",a20,a21,a22,a23,a24,a25" 'â
MhStr = MhStr & ",e00,e01,e02,e03,e04,e05" 'e
MhStr = MhStr & ",e10,e11,e12,e13,e14,e15" 'ê
MhStr = MhStr & ",i00,i01,i02,i03,i04,i05" 'i
MhStr = MhStr & ",u00,u01,u02,u03,u04,u05" 'u
MhStr = MhStr & ",u10,u11,u12,u13,u14,u15" 'uw
MhStr = MhStr & ",o00,o01,o02,o03,o04,o05" 'o
MhStr = MhStr & ",o10,o11,o12,o13,o14,o15" 'ô
MhStr = MhStr & ",o20,o21,o22,o23,o24,o25" 'ow
MhStr = MhStr & ",d0,d1" 'dd
MhStr = MhStr & ",y00,y01,y02,y03,y04,y05" 'y
'Su dung Function Split
'De chuyen cac chuoi UniStr va MhStr sang Array
UniArr = Split(UniStr, ",")
MhArr = Split(MhStr, ",")
'Cat cac khoang trong o 2 dau cua Chuoi Unicode dua vao
UnicodeText = Trim(UnicodeText)
'Chuyen toan bo chuoi sang chu thuong
UnicodeText = LCase(UnicodeText)
'
LngSt = Len(UnicodeText)
'Duyet tu dau chuoi den cuoi chuoi
'Lay tung ky tu ra de kiem tra xem co nam trong List cuoi Unicode hay khong (UniArr)
'Neu la chuoi Unicode thi tra ky tu ma hoa tuong ung trong List chuoi ma hoa (MhArr)
For i = 1 To LngSt
SubStr = Mid(UnicodeText, i, 1) 'Tach tung ky tu ra
k = FindInArray(UniArr, SubStr) 'Xac dinh vi tri cua ky tu vua tach ra (SubStr) xem co hay khong trong UniArr
If k > 0 Then
SubStr = MhArr(k) 'Neu co trong UniArr thi lay ky tu ma hoa tuong ung trong MhArr
End If
ReStr = ReStr & SubStr 'Gan vao thanh chuoi da ma hoa
Next i
mh = ReStr
End Function
Tôi xin giải thích như sau:
Câu lệnh
Có ý nghĩa là: tôi dùng hàm Split để phân tích chuỗi Unicode (biến UniStr) thành các thành phần của Array có tên là UniArr, UniArr là tập hợp các ký tự Unicode trong chữ Việt cần được mã hóa. Trong Procedure trên, tôi thiết lập chuỗi UniStr ngăn cách các thành phần bằng dấu phẩy.Mã:UniArr = Split(UniStr, ",")
Các Bạn có thể tham khảo về Array và các Functions có liên quan bằng cách search trên Google với các từ khóa tương ứng. Sau đây là một số link gợi ý:
https://docs.microsoft.com/en-us/dotnet/...es/arrays/
https://msdn.microsoft.com/en-us/library...e.12).aspx
Và các Bạn rất nên đọc bài ở link sau:
http://patorjk.com/programming/tutorials/vbarrays.htm -
RE: Sắp xếp thứ tự record
lehongduc > 09-07-17, 05:09 PM
Và tại sao tôi không đọc các ký tự Unicode và chuỗi mã hóa tương ứng từ bảng tblUnicode, mà lại phải gán tới gán lui thành các Array: UniArr và MhArr làm chi vậy?
Lý do thật là đơn giản thôi các Bạn ạ, nếu ta đọc từ bảng sẽ mất thời gian hơn là từ Array như tôi đã gán, vì theo cách thức tổ chức của Access và VBA, Array nằm trong bộ nhớ RAM nên tất nhiên là đọc ra nhanh hơn từ bảng rồi (bảng được lưu trên đĩa cứng).