-
RE: Form tìm kiếm không hiển thị hết !
Minh Tiên > 18-09-13, 05:19 PM
Bạn có thể cho mình "Xin" đoạn code chuyển mã trong Access không ?
Thanks ! -
RE: Form tìm kiếm không hiển thị hết !
quanghoasla > 18-09-13, 11:41 PM
bạn muốn chuyển số sang chữ có phải không? nếu đúng thì mình share qua cho -
RE: Form tìm kiếm không hiển thị hết !
paulsteigel > 19-09-13, 09:21 AM
Bạn Tiến có thể viết lại đoạn code đó được mà. Nếu chỉ đơn thuần là chuyển đổi tcvn sang unicode và ngược lại thì thủ tục cực kỳ đơn giản. Nếu có nhiều bảng mã thì mới cần phải viết lại cần thận. Bạn có thể xem qua thủ tục tounicode trong addin_excel tôi post trên liên kết ở trên
Bạn nghiên cứu nhé!Mã PHP:Function ToUnicode(txtString As String, Optional isReversed As Boolean = False, Optional isISO As Boolean = False) As String
' This function will do the conversion of text string into unicode
Dim iStr As String, repTxt As String, mText As String
Dim i As Long, j As Long
Dim iUnicode As Variant ' array to keep unicode char set
Dim iTCVN As Variant ' array to keep TCVN char set
Dim iProcList() As String ' array to keep what to convert
'parse the parameter into this local variable
iStr = txtString
mText = txtString
iUnicode = Array(225, 224, 7843, 227, 7841, 259, 7855, 7857, 7859, 7861, 7863, 226, _
7845, 7847, 7849, 7851, 7853, 233, 232, 7867, 7869, 7865, 234, 7871, 7873, 7875, _
7877, 7879, 237, 236, 7881, 297, 7883, 243, 242, 7887, 245, 7885, 244, 7889, 7891, _
7893, 7895, 7897, 417, 7899, 7901, 7903, 7905, 7907, 250, 249, 7911, 361, 7909, _
432, 7913, 7915, 7917, 7919, 7921, 253, 7923, 7927, 7929, 7925, 273, 193, 192, 195, _
258, 194, 212, 416, 431, 272)
iTCVN = Array(184, 181, 182, 183, 185, 168, 190, 187, 188, 189, 198, 169, 202, 199, 200, _
201, 203, 208, 204, 206, 207, 209, 170, 213, 210, 211, 212, 214, 221, 215, 216, 220, _
222, 227, 223, 225, 226, 228, 171, 232, 229, 230, 231, 233, 172, 237, 234, 235, 236, _
238, 243, 239, 241, 242, 244, 173, 248, 245, 246, 247, 249, 253, 250, 251, 252, 254, _
174, 193, 192, 195, 161, 162, 164, 165, 166, 167)
' Reenlarge the array
ReDim iProcList(1, 133)
' process the vowel only and covert to asc code
For i = 1 To Len(mText)
repTxt = Mid(mText, i, 1)
If AscW(repTxt) > 122 Then
iStr = Replace(iStr, repTxt, "[" & AscW(repTxt) & "]")
mText = Replace(mText, repTxt, " ")
' write the processed list
iProcList(1, j) = "[" & AscW(repTxt) & "]"
If isISO Then
iProcList(0, j) = GetElementNo(AscW(repTxt), iUnicode)
Else
If isReversed Then
iProcList(0, j) = GetElementNo(AscW(repTxt), iUnicode)
Else
iProcList(0, j) = GetElementNo(AscW(repTxt), iTCVN)
End If
End If
j = j + 1
End If
Next
If j = 0 Then
ToUnicode = txtString
Exit Function
End If
ReDim Preserve iProcList(1, j - 1)
' now convert to unicode
For i = 0 To UBound(iProcList, 2)
If isReversed Then
iStr = Replace(iStr, iProcList(1, i), ChrW(iTCVN(Val(iProcList(0, i)))))
Else
If isISO Then
iStr = Replace(iStr, iProcList(1, i), "&#" & iUnicode(Val(iProcList(0, i))) & ";")
Else
iStr = Replace(iStr, iProcList(1, i), ChrW(iUnicode(Val(iProcList(0, i)))))
End If
End If
Next
fExit:
ToUnicode = iStr
End Function
Private Function GetElementNo(iTxt As Long, iObj As Variant) As String
Dim i As Long
For i = 0 To UBound(iObj)
If iTxt = iObj(i) Then
GetElementNo = CStr(i)
Exit For
End If
Next
End Function -
RE: Form tìm kiếm không hiển thị hết !
quanghoasla > 19-09-13, 03:11 PM
ừ có phải mục đích của bạn là code chuyển từ .vntime sang unicode để làm cảnh báo msgbox? hay chỉ đơn thuần là conver font chữ trong tables thôi -
RE: Form tìm kiếm không hiển thị hết !
paulsteigel > 19-09-13, 03:40 PM
Bạn Quang hòa chả đọc tiến trình topic này gì cả! Hãy đọc kỹ đã để biết họ đang lao xao cái gì chứ! -
RE: Form tìm kiếm không hiển thị hết !
Minh Tiên > 20-09-13, 06:01 PM
Thanks bạn "paulsteigel" nhiều. Mình sẽ nghiên cứu và "làm phiến" bạn tiếp nhé !
Chúc bạn luôn vui khỏe !
tmtien261 là: Trịnh Minh Tiên (Tp.Pleiku - Gia Lai) -
RE: Form tìm kiếm không hiển thị hết !
Minh Tiên > 31-10-14, 02:40 PM
Chào bạn "paulsteigel" cũng các ACE !
Chủ đề chuyển chuỗi từ Uniconde tổ hợp sang Unicode dựng sẳn lâu nay mình đắp chiếu, chưa nghiên cứu đến. Hiện mình đang dùng Unikey 4.0 RC và Phần mềm Ms office 2013.
Trong Ms Ex2013 và Ms Word2013 mình phát hiện:
1. Nếu chọn bảng mã kiểu "Unicode tổ hợp" thì gõ Tiếng Việt bình thường;
2. Nếu chọn bảng mã kiểu "Unicode dựng sẳn" thì khi gõ liên tục bị lỗi không hiển thị chữ Tiếng Việt.
...> Hiện mình phải dùng Unicode tổ hợp nên hiện trong Data của mình có tới 2 chuỗi --> Rất khó khăn trong việc tìm kiếm.
Nhờ các ACE Pro chỉ giúp: Có cách nào chuyển chuỗi "Unicode dựng sẳn" sang chuỗi "Unicode tổ hợp" hoặc ngược lại không ?
Cảm ơn nhiều ! -
RE: Form tìm kiếm không hiển thị hết !
Minh Tiên > 02-11-14, 12:52 PM
Chào các ACE !
Tiên có ngu ý thế này: Mỗi khi nhập liệu, chương trình sẽ kiểm tra và thiết lập lại phần mềm gõ Tiếng Việt (Unikey chặng hạn) sang chuẩn Unicode tổ hợp hay Unicode dựng sẳn ---> Thế là Ok không cần bận tâm nữa.
Ko biết cách này có làm được không ?
Nhờ các Pro chỉ giáo !
Thanks ! -
RE: Form tìm kiếm không hiển thị hết !
tranthanhan1962 > 04-11-14, 01:30 AM
Cái này do người Việt mình làm khó mình thôi. Ông nào cũng cho bảng mã mình là hay, là số một. Ngày trước (mà bây giờ vẫn còn) miền Bắc xài .vni, miền nam xài Vni-, rồi Unicode tổ hợp, Unicode dựng sẵn, TCVN1 - 2 - 3, BK HCM 1 - 2, Vietware..., Vietkey...Tốn công, tốn của, tốn thời gian. Chừng nào thống nhất được bộ mã, bà con mới được nhẹ nhàng.