VFP 愛用者社區

[藍薰]

各位老大：
有try過本站提供的繁<>簡範例，
也有小小的了解一下
但是想請問2個問題
如何用Hokoy.WordKit.dll 及要用什麼指令
1.將欄位名稱一個個讀出來並轉成簡體
thisform.olebig=createobject("Hokoy.WordKit")
是用 rename a1 to thisform.olebig.big5togb(a1)

但是出現〞 語法錯誤〞？？？

2.如何將檔案名稱一個個讀來並轉成簡體

小藍子對某些指令還不是挺熟的，煩告知，謝謝!!

[syntech]

看起來應該不是"某些指令"而已....... ^_^

問題交給別人回答,路過一下......

[蔡文華]

&&先判斷有沒有註冊;沒有註冊則自動註冊
M_WIN = GETENV("WINDIR")+"\SYSTEM32\Hokoy.WordKit.dll"
IF !FILE( M_WIN ) &&註冊
　M_VALUE = "COPY FILE .\tools\Hokoy.WordKit.dll TO "+M_WIN
　&M_VALUE
　M_VALUE = "RUN /N REGSVR32 "+M_WIN
　&M_VALUE
ENDIF

&&判斷是否有被宣告;如果沒有宣告則自動宣告
IF TYPE('oBigBg') # '0'
　oBigBg = CREATEOBJECT("HOKOY.WORDKIT")
ENDIF


M_CHAR = "我愛蔡文華"

IF !EMPTY(M_CHAR)
　M_CHAR = oBigBg.BIG5TOGB(M_CHAR) &&將字串轉換成簡體
ENDIF

&&M_CHAR經過轉換後就是簡體字了

M_CHAR

[蔡文華]

檔案名稱
M_CHAR = "我愛蔡文華.EXE"
M_GBCHAR = oBigBg.BIG5TOGB(M_CHAR)
COPY FILE (M_CHAR) TO M_GBCHAR

欄位名稱
M_CHAR = "我愛蔡文華.DBF"

USE (M_CHAR) IN 0 EXCL
M_CREATE = "SELECT " &&建檔
SELECT (M_CHAR)
FOR III=1 TO FCOUNT()
　M_FIELD = FIELD(III) &&讀取欄位名稱
　M_CREATE = M_CREATE + M_FIELD + " AS "+oBigBg.BIG5TOGB(M_FILE) + ","
NEXT
M_CREATE = SUBSTR(M_CREATE,1,LEN(M_CREATE)-1) + " FROM "+M_CHAR+" INTO TABLES QQ"
&M_CREATE &&即得到QQ的簡體欄位資料表;不過不建議欄位用中文字．．．．

[蔡文華]

COPY FILE (M_CHAR) TO (M_GBCHAR)
修改上面的檔案名稱做法

[syntech]

好像滿麻煩的說 .... ^_^

我只會用convertz來作.

[藍薰]

[藍薰]