Chuyển đổi font trong foxpro. (4 người xem)

[thaibao3]

Chào mọi người, tôi đang làm đoạn chương trình lấy dữ liệu từ file excel vào foxpro, nhưng khi lấy dữ liệu vào lại gặp vấn đề font chữ, tôi muốn khi lấy dữ liệu vào dbf rồi chuyển font chữ có được không, và làm như thế nào?

 

[Hau151978]

Chào mọi người, tôi đang làm đoạn chương trình lấy dữ liệu từ file excel vào foxpro, nhưng khi lấy dữ liệu vào lại gặp vấn đề font chữ, tôi muốn khi lấy dữ liệu vào dbf rồi chuyển font chữ có được không, và làm như thế nào?

Công việc mình cũng đang dùng excel và foxpro, đang bắt đầu học mà khó quá. Trong fox không hỗ trợ unicode nên bạn phải chuyển sang font TCVN3 trước khi import vào fox.

 

[thaibao3]

Chuyển mã trên excel thì dễ rồi, mình đang nghĩ đến giải pháp xuất file txt rồi chuyển mã xong appen nó vào.

 

[thaibao3]

Mình tìm được hai xâu
xau_vn = " 97,181,184,182,183,185, 65,181,184,182,183,185,168,187,190,188,189,198,161,187,190,188,189,198,169,199,202,200,201,203," + "162,199,202,200,201,203,174,174,174,174,174,174,167,167,167,167,167,167,101,204,208,206,207,209, 69,204,208,206,207,209," + "170,210,213,211,212,214,163,210,213,211,212,214,105,215,221,216,220,222, 73,215,221,216,220,222,111,223,227,225,226,228," + " 79,223,227,225,226,228,171,229,232,230,231,233,164,229,232,230,231,233,172,234,237,235,236,238,165,234,237,235,236,238," + "117,239,243,241,242,244, 85,239,243,241,242,244,173,245,248,246,247,249,166,245,248,246,247,249,121,250,253,251,252,254, 89,250,253,251,252,254,"
xau_uni = " 97, 0,224, 0,225, 0,163, 30,227, 0,161, 30, 65, 0,192, 0,193, 0,162, 30,195, 0,160, 30, 3, 1,177, 30,175, 30,179, 30,181, 30,183, 30," + " 2, 1,176, 30,174, 30,178, 30,180, 30,182, 30,226, 0,167, 30,165, 30,169, 30,171, 30,173, 30,194, 0,166, 30,164, 30,168, 30,170, 30,172, 30," + " 17, 1, 17, 1, 17, 1, 17, 1, 17, 1, 17, 1, 16, 1, 16, 1, 16, 1, 16, 1, 16, 1, 16, 1,101, 0,232, 0,233, 0,187, 30,189, 30,185, 30," + " 69, 0,200, 0,201, 0,186, 30,188, 30,184, 30,234, 0,193, 30,191, 30,195, 30,197, 30,199, 30,202, 0,192, 30,190, 30,194, 30,196, 30,198, 30," + "105, 0,236, 0,237, 0,201, 30, 41, 1,203, 30, 73, 0,204, 0,205, 0,200, 30, 40, 1,202, 30,111, 0,242, 0,243, 0,207, 30,245, 0,205, 30," + " 79, 0,210, 0,211, 0,206, 30,213, 0,204, 30,244, 0,211, 30,209, 30,213, 30,215, 30,217, 30,212, 0,210, 30,208, 30,212, 30,214, 30,216, 30," + "161, 1,221, 30,219, 30,223, 30,225, 30,227, 30,160, 1,220, 30,218, 30,222, 30,224, 30,226, 30,117, 0,249, 0,250, 0,231, 30,105, 1,229, 30," + " 85, 0,217, 0,218, 0,230, 30,104, 1,228, 30,176, 1,235, 30,233, 30,237, 30,239, 30,241, 30,175, 1,234, 30,232, 30,236, 30,238, 30,240, 30," + "121, 0,243, 30,253, 0,247, 30,249, 30,245, 30, 89, 0,242, 30,221, 0,246, 30,248, 30,244, 30,"
Nhờ các bạn cho mình xin 2 xâu là xâu của vni (vni for win) và xâu vwf (vietware F).
Cảm ơn

 

[thaibao3]

Các bạn giúp mình với!

 

[thaibao3]

Mình viết hàm chuyển đổi như thế này:
----------------------------------
function unitoabc
para xau
xau_uni = "a,á,à,?,ã,?,?,?,?,?,?,?,â,?,?,?,?,?,e,é,è,?,?,?,ê,?,?,?,?,?,i,í,ì,?,?,?,o,ó,ò,?,õ,?,ô,?,?,?,?,?,?,?,?,?,?,?,u,ú,ù,?,?,?,?,?,?,?,,?,?,y,ý,?,?,?,?,?,A,Á,À,?,?,?,?,?,?,?,Â,?,?,?,?,?,E,É,È,?,?,Ê,?,?,?,?,?,I,Í,Ì,?,?,O,Ó,Ò,?,?,Ô,?,?,?,?,?,?,?,?,?,U,Ú,Ù,?,?,?,?,?,?,?,Y,Ý,?,?,?,?,"
xau_abc ="a,¸,µ,¶,¹,¨,¾,»,¼,Æ,©,Ê,Ç,È,É,Ë,©,Ê,Ç,È,É,Ë,e,Ð,Ì,Î,Ï,Ñ,ª,Õ,Ò,Ó,Ô,Ö,i,Ý,×,Ø,Ü,Þ,o,ã,ß,á,â,ä,«,è,å,æ,ç,é,¬,í,ê,ë,ì,î,u,ó,ï,ñ,ò,ô,­,ø,õ,ö,÷,ù,y,ý,ú,û,ü,þ,®,A,¸,µ,¶,·,¹,¡,¾,»,¼,½,Æ,¢,Ê,Ç,È,É,Ë,E,Ð,Ì,Î,Ñ,£,Õ,Ò,Ó,Ô,Ö,I,Ý,×,Ø,Ü,Þ,O,ã,ß,á,â,ä,¤,è,å,æ,ç,é,¥,í,ê,ë,ì,ä,U,ó,ï,ñ,ò,ô,¦,ø,õ,ö,÷,ù,Y,ý,ú,û,ü,þ,§,"
xau=chrtran(xau,xau_uni,xau_abc)
retu xau
----------------------------------
Nếu hai xâu mình cho ít ký tự thì chuyển đổi được, còn đầy đủ ký tự thì không chuyển đổi được, vì biến có độ dài quá lớn. Bạn nào có cách chi nhỏ nó ra không?