1. Tuyển Mod quản lý diễn đàn. Các thành viên xem chi tiết tại đây

Chuyen tieng viet Unicode thanh khong dau

Chủ đề trong 'Hỏi đáp Tin học' bởi tieuquetu, 13/08/2003.

  1. 1 người đang xem box này (Thành viên: 0, Khách: 1)
  1. tieuquetu

    tieuquetu Thành viên mới

    Tham gia ngày:
    13/08/2003
    Bài viết:
    93
    Đã được thích:
    0
    Bác nào biết chương trình nào chuyển tiếng Việt Unicode ( tổ hợp và dựng sẳn ) thành tiếng Việt không dấu không ? . Ampad trên website của LH chỉ chuyển được với VNI và ABC thôi.

    Bác nào biết xin chỉ giáo. Đệ xin cảm ơn nhiều
  2. bigfoot2

    bigfoot2 Thành viên quen thuộc

    Tham gia ngày:
    02/08/2001
    Bài viết:
    160
    Đã được thích:
    0
    Tôi mới chỉ viết một macro trong word để chuyển unicode tổ hợp thành không dấu thôi. Còn unicode dựng sẵn thì có vẻ hơi dài dòng nên chưa làm vì bây giờ thiếu gì công cụ chuyển sang unicode tổ hợp.
    Bạn vào word bấm ALT+F11 để viết macro.
    Vào insertmodule để chèn một module vào file normal.dot của word
    bạn dán đoạn code này vào
    Sub bodau()
    Dim m, n, i, j, t
    On Error Resume Next
    Text = Selection.Text
    For i = 1 To Len(Text)
    ch = Mid(Text, i, 1)
    so = AscW(ch)
    If so = 272 Or so = 273 Then so = 100 ''''d
    If so = 234 Or so = 202 Then so = 101 ''''e
    If so = 432 Or so = 431 Then so = 117 ''''u
    If so = 208 Or so = 208 Then so = 68 ''''D
    If so = 244 Or so = 212 Or so = 417 Then so = 111 ''''o
    If so = 226 Or so = 259 Or so = 194 Then so = 97 ''''a
    t = t + Chr(so)
    Next i
    Selection.InsertAfter (Chr(13) & "------------------------------------------------------")
    Selection.InsertAfter (Chr(13) & "De doc duoc tieng viet vao ViewEncodingUncode(UTF-8)")
    Selection.InsertAfter (Chr(13) & "------------------------------------------------------")
    Selection.InsertAfter (Chr(13) & t)
    End Sub
    Trở về word nếu bạn biết thêm nút vào thanh công cụ thì làm lấy một nút còn không thì cứ đánh dấu văn bản muốn chuyển bấm ALT+F8 và chọn macro bỏ dấu để chạy

    Nếu bạn cần file chạy độc lập mình sẽ chuyển đoạn này vào VB và dịch thành EXE cho bạn
    Được bigfoot2 sửa chữa / chuyển vào 08:04 ngày 14/08/2003
  3. tieuquetu

    tieuquetu Thành viên mới

    Tham gia ngày:
    13/08/2003
    Bài viết:
    93
    Đã được thích:
    0
    Xin đa tạ . Đệ đaf la?m được . Thật tuyệt.
  4. Ba_Phi

    Ba_Phi Thành viên rất tích cực

    Tham gia ngày:
    07/12/2002
    Bài viết:
    1.596
    Đã được thích:
    1
    vậy sao còn chưa ... hậu tạ hắn, giờ tôi xin tiếp tục tiên phong bình chọn hắn 5 sao
    tôi thì chưa kịp thử nhưng cách này hay đấy nên tôi cũng muốn cám ơn bác ta
    [​IMG]được chưa hả?[​IMG]

Chia sẻ trang này