Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Hàm VniToUni
#1
Nhờ anh / chị xem giúp e bảng code này. Khi gõ chữ "Đơn Hàng" nó không hiển thị đầy đủ chữ. E không biết tại sao.

Mã:
Option Explicit
Public Function VniToUni(str$) As String
   Dim VNI$, UNI$, i&, sUni$, arrUNI() As String
   VNI = "aù,aø,aû,aõ,aï,aâ,aê,aá,aà,aå,aã,aä,aé,aè,aú,aü,aë,AÙ,AØ,AÛ,AÕ,AÏ,AÂ,AÊ,AÁ,AÀ,AÅ,AÃ,AÄ,AÉ,AÈ,AÚ,AÜ,AË,eù,eø,eû,eõ,eï,eâ,eá,eà,eå,eã,eä,EÙ,EØ,EÛ,EÕ,EÏ,EÂ,EÁ,EÀ,EÅ,EÃ,EÄ,í ,ì ,æ ,ó ,ò ,Í ,Ì ,Æ ,Ó ,Ò ,où,oø,oû,oõ,oï,oâ,ô,oá,oà,oå,oã,oä,ôù,ôø,ôû,ôõ,ôï,OÙ,OØ,OÛ,OÕ,OÏ,OÂ,Ô ,OÁ,OÀ,OÅ,OÃ,OÄ,ÔÙ,ÔØ,ÔÛ,ÔÕ,ÔÏ,uù,uø,uû,uõ,uï,ö ,öù,öø,öû,öõ,öï,UÙ,UØ,UÛ,UÕ,UÏ,Ö ,ÖÙ,ÖØ,ÖÛ,ÖÕ,ÖÏ,yù,yø,yû,yõ,î ,YÙ,YØ,YÛ,YÕ,Î ,ñ ,Ñ "
   UNI = "E1,E0,1EA3,E3,1EA1,E2,103,1EA5,1EA7,1EA9,1EAB,1EAD,1EAF,1EB1,1EB3,1EB5,1EB7,C1,C0,1EA2,C3,1EA0,C2,102,1EA4,1EA6,1EA8,1EAA,1EAC,1EAE,1EB0,1EB2,1EB4,1EB6,E9,E8,1EBB,1EBD,1EB9,EA,1EBF,1EC1,1EC3,1EC5,1EC7,C9,C8,1EBA,1EBC,1EB8,CA,1EBE,1EC0,1EC2,1EC4,1EC6,ED,EC,1EC9,129,1ECB,CD,CC,1EC8,128,1ECA,F3,F2,1ECF,F5,1ECD,F4,1A1,1ED1,1ED3,1ED5,1ED7,1ED9,1EDB,1EDD,1EDF,1EE1,1EE3,D3,D2,1ECE,D5,1ECC,D4,1A0,1ED0,1ED2,1ED4,1ED6,1ED8,1EDA,1EDC,1EDE,1EE0,1EE2,FA,F9,1EE7,169,1EE5,1B0,1EE9,1EEB,1EED,1EEF,1EF1,DA,D9,1EE6,168,1EE4,1AF,1EE8,1EEA,1EEC,1EEE,1EF0,FD,1EF3,1EF7,1EF9,1EF5,DD,1EF2,1EF6,1EF8,1EF4,111,110"
   arrUNI = Split(UNI, ",")
    For i = 1 To Len(str)
           If InStr(VNI, Mid(str, i, 2)) > 0 And Len(Mid(str, i, 2)) = 2 Then
               sUni = sUni & ChrW("&h" & arrUNI(InStr(VNI, Mid(str, i, 2)) \ 3))
                i = i + 1
           ElseIf InStr(VNI, Mid(str, i, 1) & " ") > 0 Then
               sUni = sUni & ChrW("&h" & arrUNI(InStr(VNI, Mid(str, i, 1) & " ") \ 3))
           End If
       If InStr(VNI, Mid(str, i, 1)) = 0 Or InStr("a,A,e,E,o,O,u,U,y,Y, ", Mid(str, i, 1)) > 0 Then sUni = sUni & Mid(str, i, 1)
   Next
   VniToUni = sUni
End Function

p/s: Nguồn Internet.truongphu
Chữ ký của pherotao "Hạnh phúc ở đâu... biết tìm đâu,
Hồng trần là thế giới muôn màu,
Hội đủ nhân duyên... thời sinh quả,
Kết thúc... cũng là lúc bắt đầu".
Reply
Những người đã cảm ơn
#2
Chào Bạn,

Thay vì trả lời câu hỏi của Bạn theo kiểu chỉ cho 1 chiêu, để rồi Bạn chỉ biết chiêu nào được chỉ thôi, tôi sẽ chỉ cho Bạn cách học sao cho chiêu nào cũng hiểu rõ ràng và mạch lạc.
Đây là cách tôi chỉ cho Bạn: Bạn hãy đọc tài liệu sau khoảng 1 ngày và thực tập thêm 1 ngày nữa, sang ngày thứ 3 thì Bạn đạt đến cảnh giới xử lý Unicode như ăn cơm hàng ngày vậy.

Đây là tài liệu Bạn cần đọc và học: http://www.vovisoft.com/unicode/BasicUnicode.htm

Tôi thành thật góp ý cho những Bạn nào muốn học lập trình: đừng bao giờ học theo kiểu "xin 1 chiêu" mà hãy học từ căn bản.
Chữ ký của lehongduc Lê Hồng Đức
Số ĐT: 0913.941.144
Email: lhongduc@gmail.com, lehongduc@quantribanhang.vn
Website: http://quantribanhang.vn
Reply
Những người đã cảm ơn pherotao , maidinhdan
#3
(14-12-17, 08:28 AM)lehongduc Đã viết: Tôi thành thật góp ý cho những Bạn nào muốn học lập trình: đừng bao giờ học theo kiểu "xin 1 chiêu" mà hãy học từ căn bản.

Để học lập trình căn bản dành riêng cho Access  thì nên học từ tài liệu nào đầu tiên rồi tiếp đến tài liệu nào. 
Vì quá nhiều tài liệu liên quan về lập trình, nhưng khi đọc vào , mỗi tài liệu đôi khi lại đi chuyên sâu đôi khi đi xa khỏi căn bản về lập trình cho Access. Đối với người mới tiếp cận vào cảm thấy như quá sức để phù hợp với các tài liệu đấy.
Nhờ Chú HongDuc có thể hướng dẫn các tài liệu cơ bản cho phần lập trình cho Access.
Cảm ơn Chú.
Cháu DooHoaangPhuuc
Chữ ký của DooHoaangPhuuc DooHoaangPhuuc,gia nhập Thủ Thuật Access từ 27-06 -17.
ღღღღღTài sản của DooHoaangPhuuc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(14-12-17, 10:41 PM)DooHoaangPhuuc Đã viết:
(14-12-17, 08:28 AM)lehongduc Đã viết: Tôi thành thật góp ý cho những Bạn nào muốn học lập trình: đừng bao giờ học theo kiểu "xin 1 chiêu" mà hãy học từ căn bản.

Để học lập trình căn bản dành riêng cho Access  thì nên học từ tài liệu nào đầu tiên rồi tiếp đến tài liệu nào. 
Vì quá nhiều tài liệu liên quan về lập trình, nhưng khi đọc vào , mỗi tài liệu đôi khi lại đi chuyên sâu đôi khi đi xa khỏi căn bản về lập trình cho Access. Đối với người mới tiếp cận vào cảm thấy như quá sức để phù hợp với các tài liệu đấy.
Nhờ Chú HongDuc có thể hướng dẫn các tài liệu cơ bản cho phần lập trình cho Access.
Cảm ơn Chú.
Cháu DooHoaangPhuuc

Chào các Bạn,
Tôi thấy các Bạn ở BQT diễn đàn này đã có sẵn những nội dung từ căn bản về lập trình VBA trong Access rồi.

Về cách học, riêng tôi nhận thấy các Bạn mới tìm hiểu về VBA trong Access lại hay bỏ qua việc trước hết phải nắm vững các thành phần của 1 file Access và các đặc trưng căn bản của Access (cũng đã được BQT diễn đàn trình bày, sắp xếp chu đáo rồi). Chính vì vậy khi sử dụng VBA để làm chủ và điều khiển Access thì gặp quá nhiều lúng túng.

Tôi xin nêu 1 ví dụ: các Bạn muốn thiết kế và dùng VBA để điều khiển được 1 main-form có 1 hoặc nhiều sub-form, nhưng lại không biết rõ ràng các thuộc tính căn bản của form và các control có liên quan, hay dùng tới trên form.
Hay 1 ví dụ khác: chúng ta muốn làm chủ được Unicode để thiết kế ứng dụng có hiệu quả, nhưng lại bỏ qua, không biết một cách căn bản về Unicode (Unicode là gì? Cấu trúc của nó ra sao?, ...) thì làm sao "lập trình với Unicode" được.
 
Như vậy thì khác gì muốn vẽ được chú voi xinh đẹp, nhưng không biết tường tận đầu voi ra sao, tai voi như thế nào, vòi voi để làm gì, thì làm sao vẽ được. Hoặc có vẽ ra lại thành con gì đó chứ chẳng phải voi như mình muốn.

Muốn thành công, hãy chịu khó bắt đầu từ lớp vở lòng các Bạn ạ.
Chữ ký của lehongduc Lê Hồng Đức
Số ĐT: 0913.941.144
Email: lhongduc@gmail.com, lehongduc@quantribanhang.vn
Website: http://quantribanhang.vn
Reply
Những người đã cảm ơn maidinhdan
#5
Cám ơn anh Đức đã quan tâm trả lời ạ. E chỉ hỏi đoạn code trên sai ở chỗ nào thôi, để tụi e khắc phục,... mà anh khuyên tụi e học lại từ đầu thì tụi e cũng đành nghe theo vậy.
Chữ ký của pherotao "Hạnh phúc ở đâu... biết tìm đâu,
Hồng trần là thế giới muôn màu,
Hội đủ nhân duyên... thời sinh quả,
Kết thúc... cũng là lúc bắt đầu".
Reply
Những người đã cảm ơn


Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line