|
VFP ·R¥ÎªÌªÀ°Ï ¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
ckp6250
µù¥U®É¶¡: 2004-07-30 ¤å³¹: 1644
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤¤ë 09, 2012 5:29 pm ¤å³¹¥DÃD: °Ï°ìºô¸ô¤ºªº³y¦r¦P¨BºÞ²z |
|
|
·PÁ syntech violetlkk ªº«ü¾É¤Î garfield ´£¨Ñªº¸ê°T
¥ý´N°Ï°ìºô¸ô¤ºªº³y¦r¦P¨B¡A¼g¤F²³æªºµ{¦¡¡A½Ð¦h«ü±Ð¡I
¥N½X: |
Local cPublicUsrFontsPath , N , i , vPage , vCode , vEuc , vUrl , vGetFontsCount , vShareFontsCount
Set Library To vfpconnection.Fll Additive &&§Q¥Î vfpconnection ªº¤U¸ü¥\¯à¡A¥» fll ½Ð¦Û¦æ¦Ü¸Óºô¯¸ http://www.sweetpotatosoftware.com/home.htm ¤U¸ü
cPublicUsrFontsPath = "G:\CNSFonts\Share\" &&°Ï°ìºô¸ô¤W¦@¨É³y¦rÀɤ§¸ê®Æ§¨¡A½Ð¦Û¦æ©w¸q
If File("c:\Program Files\CNSFontTools\ManageTools\cnspkgui.exe") &&¦³¦w¸Ë¤¤¤å¥þ¦r®w
vGetFontsCount = 0 &&¨ú±o¦@¨É¤§³y¦rÀÉ
vShareFontsCount = 0 &&¤À¨É¤©¥L¤H¤§³y¦rÀɼƶq
*!* Ū¨ú¥»¾÷¤w¦w¸Ë¤§¦r«¬ÀÉ
Create Cursor LocalCNSFonts (Unicode C(4),CNS11643 C(10) ,EUC C(8) ,ܾe½X C(20) ,ª`µ½X C(20))
If File("c:\CNSFonts\EUDC_LOG.CSV")
Append From C:\CNSFonts\EUDC_LOG.Csv Type Csv &&Ū¨ú Log ÀÉ¡A¥H«K±oª¾¥»¾÷¤w¦w¸Ë¤F¨º´XÓ¦r
Endif
*!* Ū¨ú°Ï°ìºô¸ô¤W¤w¤U¸ü¤§¦r«¬ÀÉ
If ! Directory(cPublicUsrFontsPath) &&YµL¦@¨É¸ê®Æ§¨¡A«h¥ý«Ø¥ß¤§
Try
Mkdir(cPublicUsrFontsPath)
Catch To oErr
Endtry
Endif
N = Adir(UsrFontsAry,cPublicUsrFontsPath+"*.cnspkg")
cALLPublicUsrFonts = "" &&¥þ³¡ªº¦@¨É³y¦rÀÉÀɦW
If N>0
For i = 1 To N
cALLPublicUsrFonts = cALLPublicUsrFonts + Juststem(UsrFontsAry[i,1])+","
Locate For EUC = Juststem(UsrFontsAry[i,1]) &&´M§ä¥»¾÷©|¥¼¦w¸Ë¤§³y¦r
If !Found()
Opendoc(cPublicUsrFontsPath+UsrFontsAry[i,1]) &&¦w¸Ë¦@¨É¤§³y¦r
Wait "¸ü¤J¡G"+EUC Window Timeout 1 && ©µ¿ð¬í¼Æ¡A¨Ì¹q¸£°õ¦æ³t«×¦Ó©w¡A¦Ñ¹q¸£½Ð�[¤j¬í¼Æ
oWS = Createobject( "WScript.Shell" ) &&¦Û°Ê«ö�[¤J¤Î§¹¦¨«ö¶s¡A¥H«K¦Û°Ê¤Æ§@·~
oWS.AppActivate( "³y¦rÂà¤J¤Î¦C¦L" )
oWS.SendKeys( "{ENTER}"+ "{ENTER}" )
Release oWS
vGetFontsCount = vGetFontsCount + 1
Wait "§¹¦¨¡G"+EUC Window Timeout 1 && ©µ¿ð¬í¼Æ¡A¨Ì¹q¸£°õ¦æ³t«×¦Ó©w¡A¦Ñ¹q¸£½Ð�[¤j¬í¼Æ
Endscan
vGetFontsCount = vGetFontsCount + 1
Endif
Next i
cALLPublicUsrFonts = Upper(Left(cALLPublicUsrFonts,Len(cALLPublicUsrFonts) - 1))
Endif
*!* ¦Ü¤¤¤å¥þ¦r®wºô¯¸¡A¤U¸ü¥»¾÷¤w¦³¡A¦Ó¦@¨É¸ê®Æ§¨¥¼¦³¤§³y¦rÀÉ
Select * From LocalCNSFonts Where ! EUC $ cALLPublicUsrFonts Into Cursor Tmp
Scan
vPage = Left(CNS11643,At('-',CNS11643)-1) &&¶±
vCode = Trim(Substr(CNS11643,At('-',CNS11643)+1)) &&½s½X
vEuc = cPublicUsrFontsPath+Trim(EUC)+".cnspkg" &&ÀɦW
vUrl = "http://www.cns11643.gov.tw/AIDB/cnspkg.do?page="+vPage+"&"+"code="+vCode &&¤U¸üºô�}
HTTPGet(vUrl, vEuc) &&¤U¸ü³y¦rÀÉ
vShareFontsCount = vShareFontsCount + 1
Endscan
If vGetFontsCount + vShareFontsCount>0
Messagebox("·s¼W¡G"+Transform(vGetFontsCount)+" ¦r"+Chr(13)+"¤À¨É¡G"+Transform(vShareFontsCount)+" ¦r",64,"§@·~³ø§i")
Else
Messagebox("¬dµL¥i¨Ñ·s¼W©Î¤À¨É¤§³y¦r",64,"§@·~³ø§i")
Endif
Else
Messagebox("½Ð¥ý¦w¸Ë¡y¤¤¤å¥þ¦r®w¡z",16,"©|¥½¦w¸Ë¤¤¤å¥þ¦r®w")
Endif
Close Databases All
Return
Function Opendoc(tcDocument,IsShowWindow)
If Pcount()<2
IsShowWindow = 1 && 0.ªí¥ÜÁôÂà 1¥¿±`¤è¦¡ 2³Ì¤p¤Æ¤è¦¡ 3³Ì¤j¤Æ¤è¦¡¡C
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 "§ä¤£¨ì�}±Ò³oÓÀɮתº�{¦¡..."+tcDocument
Case lnResult=29
Wait Wind "Can't start application."
Case lnResult=30
Wait Wind "Application already open."
Endcase
Endif
Endfunc
|
§Úªººc·Q¬O¡A¦U¦a¤À¤½¥qªº³y¦r¥ý¦P¨B¤@P«á¡A¦A©M¨ä¥¦¤À¤½¥q°µ²Ä¤G¦¸¥þ°ê¦P¨B¡C
¦Ü©ó¥þ°ê¦U¦a¹q¸£ªº³y¦r¦P¨B¡Aµ¥§¹¦¨«á¡A¦A´N±Ð©ó¤j®a¡C |
|
¦^³»ºÝ |
|
|
CJWANG
µù¥U®É¶¡: 2003-07-30 ¤å³¹: 7
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¥| ¤E¤ë 16, 2021 6:25 pm ¤å³¹¥DÃD: |
|
|
§A¦n
½Ð°Ý¤¤¤å¥þ¦r®w¦w¸Ë¤§«áÁÙn¦A°µ¨º¨Ç³]©w¶Ü?¦]¬°§Ú¦bWIN10¦w¸Ë¤¤¤å¥þ¦r®w,¦bVFP¤´µM¤£¯àÅã¥Ü²§Åé¦r,¦A¦¸·PÁ !! |
|
¦^³»ºÝ |
|
|
ckp6250
µù¥U®É¶¡: 2004-07-30 ¤å³¹: 1644
²Ä 3 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤E¤ë 17, 2021 9:09 am ¤å³¹¥DÃD: |
|
|
¿é¤Jªkªº°ÝÃD§a¡A½Ð¬Ý©x¤è¦³Ãö¿é¤Jªkªº»¡©ú¡C |
|
¦^³»ºÝ |
|
|
CJWANG
µù¥U®É¶¡: 2003-07-30 ¤å³¹: 7
²Ä 4 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤E¤ë 17, 2021 12:03 pm ¤å³¹¥DÃD: |
|
|
ckp6250 ¼g¨ì: | ¿é¤Jªkªº°ÝÃD§a¡A½Ð¬Ý©x¤è¦³Ãö¿é¤Jªkªº»¡©ú¡C |
·PÁ±zªº¦^ÂÐ
¦ý¬O,²§Åé¦r,§Ú¬O¥Î½Æ»s¶K¤Wªº,¤´µM¤£¯àÅã¥Ü |
|
¦^³»ºÝ |
|
|
ckp6250
µù¥U®É¶¡: 2004-07-30 ¤å³¹: 1644
²Ä 5 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤E¤ë 17, 2021 2:09 pm ¤å³¹¥DÃD: |
|
|
CJWANG ¼g¨ì: |
²§Åé¦r,§Ú¬O¥Î½Æ»s¶K¤Wªº,¤´µM¤£¯àÅã¥Ü |
þ¤@Ó¦r¡H |
|
¦^³»ºÝ |
|
|
CJWANG
µù¥U®É¶¡: 2003-07-30 ¤å³¹: 7
²Ä 6 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤E¤ë 17, 2021 3:40 pm ¤å³¹¥DÃD: |
|
|
§A¦n
³o¨Ç¦r >>
瀞綉韵ýHûº凃玞üQûiúÒ徴 |
|
¦^³»ºÝ |
|
|
ckp6250
µù¥U®É¶¡: 2004-07-30 ¤å³¹: 1644
²Ä 7 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤E¤ë 22, 2021 10:31 am ¤å³¹¥DÃD: ¥Dn¬O¿é¤Jªk°ÝÃD |
|
|
n¿ï¥Î¡iª©¿é¤Jªk¡j |
|
¦^³»ºÝ |
|
|
CPS0204
µù¥U®É¶¡: 2014-08-24 ¤å³¹: 441
²Ä 8 ¼Ó
|
|
¦^³»ºÝ |
|
|
|
|
±z µLªk ¦b³oÓª©±µoªí¤å³¹ ±z µLªk ¦b³oÓª©±¦^ÂФ峹 ±z µLªk ¦b³oÓª©±½s¿è¤å³¹ ±z µLªk ¦b³oÓª©±§R°£¤å³¹ ±z µLªk ¦b³oÓª©±¶i¦æ§ë²¼ ±z µLªk ¦b³oÓª©±ªþ¥[ÀÉ®× ±z µLªk ¦b³oÓª©±¤U¸üÀÉ®×
|
Powered by phpBB © 2001, 2005 phpBB Group ¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@
|