 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 1 樓
|
 發表於: 星期三 五月 09, 2012 5:29 pm 文章主題: 區域網路內的造字同步管理 |
 |
|
感謝 syntech violetlkk 的指導及 garfield 提供的資訊
先就區域網路內的造字同步，寫了簡單的程式，請多指教！
| 代碼: |
Local cPublicUsrFontsPath , N , i , vPage , vCode , vEuc , vUrl , vGetFontsCount , vShareFontsCount
Set Library To vfpconnection.Fll Additive &&利用 vfpconnection 的下載功能，本 fll 請自行至該網站 http://www.sweetpotatosoftware.com/home.htm 下載
cPublicUsrFontsPath = "G:\CNSFonts\Share\" &&區域網路上共享造字檔之資料夾，請自行定義
If File("c:\Program Files\CNSFontTools\ManageTools\cnspkgui.exe") &&有安裝中文全字庫
vGetFontsCount = 0 &&取得共享之造字檔
vShareFontsCount = 0 &&分享予他人之造字檔數量
*!* 讀取本機已安裝之字型檔
Create Cursor LocalCNSFonts (Unicode C(4),CNS11643 C(10) ,EUC C(8) ,倉頡碼 C(20) ,注音碼 C(20))
If File("c:\CNSFonts\EUDC_LOG.CSV")
Append From C:\CNSFonts\EUDC_LOG.Csv Type Csv &&讀取 Log 檔，以便得知本機已安裝了那幾個字
Endif
*!* 讀取區域網路上已下載之字型檔
If ! Directory(cPublicUsrFontsPath) &&若無共享資料夾，則先建立之
Try
Mkdir(cPublicUsrFontsPath)
Catch To oErr
Endtry
Endif
N = Adir(UsrFontsAry,cPublicUsrFontsPath+"*.cnspkg")
cALLPublicUsrFonts = "" &&全部的共享造字檔檔名
If N>0
For i = 1 To N
cALLPublicUsrFonts = cALLPublicUsrFonts + Juststem(UsrFontsAry[i,1])+","
Locate For EUC = Juststem(UsrFontsAry[i,1]) &&尋找本機尚未安裝之造字
If !Found()
Opendoc(cPublicUsrFontsPath+UsrFontsAry[i,1]) &&安裝共享之造字
Wait "載入："+EUC Window Timeout 1 && 延遲秒數，依電腦執行速度而定，老舊電腦請�[大秒數
oWS = Createobject( "WScript.Shell" ) &&自動按�[入及完成按鈕，以便自動化作業
oWS.AppActivate( "造字轉入及列印" )
oWS.SendKeys( "{ENTER}"+ "{ENTER}" )
Release oWS
vGetFontsCount = vGetFontsCount + 1
Wait "完成："+EUC Window Timeout 1 && 延遲秒數，依電腦執行速度而定，老舊電腦請�[大秒數
Endscan
vGetFontsCount = vGetFontsCount + 1
Endif
Next i
cALLPublicUsrFonts = Upper(Left(cALLPublicUsrFonts,Len(cALLPublicUsrFonts) - 1))
Endif
*!* 至中文全字庫網站，下載本機已有，而共享資料夾未有之造字檔
Select * From LocalCNSFonts Where ! EUC $ cALLPublicUsrFonts Into Cursor Tmp
Scan
vPage = Left(CNS11643,At('-',CNS11643)-1) &&頁面
vCode = Trim(Substr(CNS11643,At('-',CNS11643)+1)) &&編碼
vEuc = cPublicUsrFontsPath+Trim(EUC)+".cnspkg" &&檔名
vUrl = "http://www.cns11643.gov.tw/AIDB/cnspkg.do?page="+vPage+"&"+"code="+vCode &&下載網�}
HTTPGet(vUrl, vEuc) &&下載造字檔
vShareFontsCount = vShareFontsCount + 1
Endscan
If vGetFontsCount + vShareFontsCount>0
Messagebox("新增："+Transform(vGetFontsCount)+" 字"+Chr(13)+"分享："+Transform(vShareFontsCount)+" 字",64,"作業報告")
Else
Messagebox("查無可供新增或分享之造字",64,"作業報告")
Endif
Else
Messagebox("請先安裝『中文全字庫』",16,"尚末安裝中文全字庫")
Endif
Close Databases All
Return
Function Opendoc(tcDocument,IsShowWindow)
If Pcount()<2
IsShowWindow = 1 && 0.表示隱藏 1正常方式 2最小化方式 3最大化方式。
Endif
Local lnResult
Declare Integer ShellExecute ;
IN SHELL32.Dll ;
INTEGER nWinHandle, ;
STRING cOperation, ;
STRING cFileName, ;
STRING cParameters, ;
STRING cDirectory, ;
INTEGER nShowWindow
**retreive the main VFP window handle (this handle is used by ShellExecute)
Declare Integer FindWindow ;
IN WIN32API ;
STRING cNull, ;
STRING cWinName
lnResult=ShellExecute(FindWindow( 0, _Screen.Caption), "Open", tcDocument, "", "", IsShowWindow)
**Error messages if the return value is < 32
If lnResult < 32
Do Case
Case lnResult=2
Wait Wind "Invalid association or URL..."+tcDocument
Case lnResult=31
Wait Wind "找不到�}啟這個檔案的�{式..."+tcDocument
Case lnResult=29
Wait Wind "Can't start application."
Case lnResult=30
Wait Wind "Application already open."
Endcase
Endif
Endfunc
|
我的構想是，各地分公司的造字先同步一致後，再和其它分公司做第二次全國同步。
至於全國各地電腦的造字同步，等完成後，再就教於大家。 |
|
| 回頂端 |
|
 |
CJWANG
註冊時間: 2003-07-30
文章: 7
第 2 樓
|
| 發表於: 星期四 九月 16, 2021 6:25 pm 文章主題: |
|
|
你好
請問中文全字庫安裝之後還要再做那些設定嗎?因為我在WIN10安裝中文全字庫,在VFP仍然不能顯示異體字,再次感謝 !! |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 3 樓
|
| 發表於: 星期五 九月 17, 2021 9:09 am 文章主題: |
|
|
| 輸入法的問題吧，請看官方有關輸入法的說明。 |
|
| 回頂端 |
|
|
CJWANG
註冊時間: 2003-07-30
文章: 7
第 4 樓
|
| 發表於: 星期五 九月 17, 2021 12:03 pm 文章主題: |
|
|
| ckp6250 寫到: | | 輸入法的問題吧，請看官方有關輸入法的說明。 |
感謝您的回覆
但是,異體字,我是用複製貼上的,仍然不能顯示 |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 5 樓
|
| 發表於: 星期五 九月 17, 2021 2:09 pm 文章主題: |
|
|
| CJWANG 寫到: |
異體字,我是用複製貼上的,仍然不能顯示 |
哪一個字？ |
|
| 回頂端 |
|
|
CJWANG
註冊時間: 2003-07-30
文章: 7
第 6 樓
|
| 發表於: 星期五 九月 17, 2021 3:40 pm 文章主題: |
|
|
你好
這些字 >>
瀞綉韵椀媖凃玞彣堃却徴 |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 7 樓
|
| 發表於: 星期三 九月 22, 2021 10:31 am 文章主題: 主要是輸入法問題 |
|
|
| 要選用【舊版輸入法】 |
|
| 回頂端 |
|
|
CPS0204
註冊時間: 2014-08-24
文章: 482
第 8 樓
|
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
