VFP 愛用者社區

[ms0800]

請教 如何將下列文字 簡體轉成繁體,拜託


declare string GBtoBIG5 in gb2big.dll string
declare string BIG5toGB in gb2big.dll string

AA = FILETOSTR('C:\UNICODE.TXT')

CC =GBtoBIG5(AA)
MESSAGEBOX(CC)
好像不是這樣子,不知錯在那裡 ??

[elleryq]

UNICODE.txt 的前兩個 byte 是 feff ，這表示是 UTF-16 (請參考 http://en.wikipedia.org/wiki/Byte_order_mark)
因此檔案內容是純粹的 Unicode
GBtoBIG5() 是將 GB2312 轉為 BIG5，當然是會轉換失敗。
你應該使用 strconv() 先把 unicode 轉換為 double byte 的字串，再用你的函式來轉換 (http://msdn.microsoft.com/en-us/library/k0yb2181%28v=vs.80%29.aspx)

[ms0800]

CD d:\c5\EXE
declare string GBtoBIG5 in gb2big.dll string
declare string BIG5toGB in gb2big.dll string

AA = FILETOSTR('C:\UNICODE.TXT')
AA = STRCONV(AA,6)
CC =GBtoBIG5(AA)
MESSAGEBOX(CC)

不好意思,加了 AA = STRCONV(AA,6) 結果也好像不對

RETURN

[elleryq]

應該是用 =strconv(aa, 7, 936, 1)

第四個參數是 1 的時候，表示第3個參數是用 code page。
這時候就可以對照 http://msdn.microsoft.com/en-us/library/dd317756%28VS.85%29.aspx
這樣可以明確的把 unicode 轉為 gb2312

6 的話，是說轉成 double byte，但不知道是哪個地方的 double byte，這時候應該是用目前 windows 的 locale，也就是如果是繁中，就用 950，意即 =strconv(aa, 7, 950, 1)

我手頭沒有 vfp ，沒辦法試