[PB]20121002-繁體轉換簡體

說明：因為專案的需要，須將繁體的地址轉換成簡體顯示因此上網找了一些方式，其中也包含電波幻想大大的blob方式，但因為需要轉成html方式才可呈現簡體內容，因此最後決定採用

 Big2GB.ocx方式，希望對有此需求的朋友有些幫助(此方式可解決呈現簡體的問題，但如果要將簡體字存入DB中則DB須為UNICODE)。

Step1：新增2個Function:

(1) f_bigtogb：負責將繁體轉成簡體

//Public function f_bigtogb (string as_text) returns string 

//string as_text

oleobject pbobject

oleobject pbnvobject

string ls_text

long ll_status

double ld_result

pbobject = CREATE oleobject

ll_status = pbobject.connecttonewobject("BigToGB.Big2GB")

IF ll_status <> 0 THEN //2

run("Regsvr32 -i ~"Big2GB.ocx~"")

END IF //2

ls_text = pbobject.bigtogb(as_text)

pbobject.disconnectobject()

DESTROY pbobject

RETURN ls_text

(2) f_gbtobig：負責將簡體轉成繁體

//global function string f_gbtobig (string as_text);

OLEObject PBObject, PBNVObject

string       ls_text

long ll_status

double ld_result

PBObject = CREATE OLEObject

ll_status = PBObject.ConnectToNewObject ("BigToGB.Big2GB")

IF ll_status <> 0 THEN

        // Handle the error

        messagebox("注意" , "error!")

ELSE

        ls_text = PBObject.GBTOBIG(as_text)

        PBObject.DisconnectObject( )

END IF

DESTROY PBObject

return ls_text

//end function

Step2： 註冊BigToGB.orc元件，在執行中輸入Regsvr32 -i Big2GB.ocx即可

備註1： BigToGB.ocx元件下載，請上網搜尋或來信索取-cherng32@gmail.com


備註2：有關電波幻想大大的方式請參考下列網址
http://radio-idea.blogspot.tw/2009/11/powerbuilder.html
◎特別感謝電波大大在PB上的指導，謝謝