Giúp chuyển mã từ Vni-Dos sang Unicode

[venushyt]

Chào anh chị,

Em đang dính vào 1 vụ rắc rối lớn. Hiện tại công ty em đang chuyển phần mềm, từ phần mềm thập niên 90 tới giờ. Hiện tại dữ liệu đổ ra Excel để import vào phần mềm mới, nhưng Font chữ bị bể (Font Vni-Dos). Em không tìm cách nào chuyển được (trong phạm vi hiểu biết). Anh chị có cách nào giúp em với ạ. Dữ liệu khoảng 9000 dòng em đánh không nỗi . Cám ơn anh chị. Anh chị xem giúp em File đính kèm nhé,

 

[vanle33]

Chào anh chị,

Em đang dính vào 1 vụ rắc rối lớn. Hiện tại công ty em đang chuyển phần mềm, từ phần mềm thập niên 90 tới giờ. Hiện tại dữ liệu đổ ra Excel để import vào phần mềm mới, nhưng Font chữ bị bể (Font Vni-Dos). Em không tìm cách nào chuyển được (trong phạm vi hiểu biết). Anh chị có cách nào giúp em với ạ. Dữ liệu khoảng 9000 dòng em đánh không nỗi . Cám ơn anh chị. Anh chị xem giúp em File đính kèm nhé,

Bạn có cần đọc chính xác các loại vật tư đó không??
Nếu chỉ cần tương đối thì bạn vào đây http://font.vn/font-preview/Font-VNI/VNI-DOS-Sample-Font/10067.font.vn tải font
Rồi thêm vào C/Windows/Fonts
Bạn thử đi.

 

[ptm0412]

Bạn có cần đọc chính xác các loại vật tư đó không??
Nếu chỉ cần tương đối thì bạn vào đây http://font.vn/font-preview/Font-VNI/VNI-DOS-Sample-Font/10067.font.vn tải font
Rồi thêm vào C/Windows/Fonts
Bạn thử đi.

Tác giả cần chuyển mã chứ không phải cần tìm font để cài hoặc để đọc.

 

[venushyt]

Bạn có cần đọc chính xác các loại vật tư đó không??
Nếu chỉ cần tương đối thì bạn vào đây http://font.vn/font-preview/Font-VNI/VNI-DOS-Sample-Font/10067.font.vn tải font
Rồi thêm vào C/Windows/Fonts
Bạn thử đi.

Cám ơn bạn. Mình cần chuyển sang Unicode để đổ sang phần mềm mới chứ không phải chỉ đọc thôi, đọc thì mình có Font rồi, hihi. Cái này là dùng để đổ dữ liệu mới khổ. Mình có đọc được nhiều người chuyển mà dùng Code rồi VB6 gì đó, mình ko hiểu lắm.

 

[ptm0412]

Bạn làm cho tôi 2 cột: Cột thứ nhất dùng font với mã Vni-Dos, cột thứ 2 cùng nội dung nhưng font với mã unicode.
Nội dung: Tất cả các nguyên âm có dấu, và chữ đ, chữ hoa và chữ thường (khoảng 130 ký tự gì thôi)
Thí dụ

á
à
ả
ã
ạ
â
ấ
ầ
...
Á
À
Ả
Ã
...

Tôi sẽ thử viết code chuyển đổi.

 

[vodoi2x]

Chào anh chị,

Em đang dính vào 1 vụ rắc rối lớn. Hiện tại công ty em đang chuyển phần mềm, từ phần mềm thập niên 90 tới giờ. Hiện tại dữ liệu đổ ra Excel để import vào phần mềm mới, nhưng Font chữ bị bể (Font Vni-Dos). Em không tìm cách nào chuyển được (trong phạm vi hiểu biết). Anh chị có cách nào giúp em với ạ. Dữ liệu khoảng 9000 dòng em đánh không nỗi . Cám ơn anh chị. Anh chị xem giúp em File đính kèm nhé,

Đơn giản lém code đầy trên mạng (dù có thể GPE chưa có, thì nơi khác có), các tiền bối đã viết trước rùi, bạn chỉ tìm ứng dụng và cảm ơn cảm ơn thui

Tôi gom code và hiệu chỉnh chuyển thành VBA, thành addIns cho bạn đây

Download file Addins sau về, rùi vào File / Option / Addins .. .. Go ---> browse chọn file addIns vừa down, Ok, Ok Ok

từ giờ bạn có hàm UDF: VNIDOS2UNICODE để sử dụng

Nếu A1 chứa chuỗi cần đổi thì, tại ô kết quả gõ công thức
=VNIDOS2UNICODE(A1)
sẽ đổi được ngon lành cành đào,


-----
Tuy nhiên thử file bạn, hình như bản gốc đã sai lung tung rùi thì phải, nên thấy đổi được trên 90% thui (tôi thử down cả font VNI-DOS Sample - đọc file bạn cũng thấy sai mà --> kết quả sai theo thui), vậy kiểm tra lại nhé

Bạn cũng như các TV khác quan tâm, nếu có cần thắc mắc, hay hỏi đáp cứ gửi tin nhắn