VFP ·R¥ÎªÌªÀ°Ï ­º­¶ 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¸ü.
 
 ±`¨£°ÝÃD±`¨£°ÝÃD   ·j´M·j´M   ·|­û¦Cªí·|­û¦Cªí   ·|­û¸s²Õ·|­û¸s²Õ   ·|­ûµù¥U·|­ûµù¥U 
 ­Ó¤H¸ê®Æ­Ó¤H¸ê®Æ   µn¤JÀˬd±zªº¨p¤H°T®§µn¤JÀˬd±zªº¨p¤H°T®§   µn¤Jµn¤J

°Ï°ìºô¸ô¤ºªº³y¦r¦P¨BºÞ²z

 
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD  
µoªí¤H ¤º®e
ckp6250



µù¥U®É¶¡: 2004-07-30
¤å³¹: 1642


²Ä 1 ¼Ó

µoªíµ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
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ °ÑÆ[µoªí¤Hªº­Ó¤Hºô¯¸
CJWANG



µù¥U®É¶¡: 2003-07-30
¤å³¹: 7


²Ä 2 ¼Ó

µoªíµ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Á !!
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
ckp6250



µù¥U®É¶¡: 2004-07-30
¤å³¹: 1642


²Ä 3 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¤E¤ë 17, 2021 9:09 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¿é¤Jªkªº°ÝÃD§a¡A½Ð¬Ý©x¤è¦³Ãö¿é¤Jªkªº»¡©ú¡C
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ °ÑÆ[µoªí¤Hªº­Ó¤Hºô¯¸
CJWANG



µù¥U®É¶¡: 2003-07-30
¤å³¹: 7


²Ä 4 ¼Ó

µoªíµ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¤£¯àÅã¥Ü
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
ckp6250



µù¥U®É¶¡: 2004-07-30
¤å³¹: 1642


²Ä 5 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¤E¤ë 17, 2021 2:09 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

CJWANG ¼g¨ì:

²§Åé¦r,§Ú¬O¥Î½Æ»s¶K¤Wªº,¤´µM¤£¯àÅã¥Ü


­þ¤@­Ó¦r¡H
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ °ÑÆ[µoªí¤Hªº­Ó¤Hºô¯¸
CJWANG



µù¥U®É¶¡: 2003-07-30
¤å³¹: 7


²Ä 6 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¤E¤ë 17, 2021 3:40 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

§A¦n
³o¨Ç¦r >>

瀞綉韵ýHûº凃玞üQûiúÒ徴
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
ckp6250



µù¥U®É¶¡: 2004-07-30
¤å³¹: 1642


²Ä 7 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤E¤ë 22, 2021 10:31 am    ¤å³¹¥DÃD: ¥D­n¬O¿é¤Jªk°ÝÃD ¤Þ¨¥¦^ÂÐ

­n¿ï¥Î¡iª©¿é¤Jªk¡j
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ °ÑÆ[µoªí¤Hªº­Ó¤Hºô¯¸
CPS0204



µù¥U®É¶¡: 2014-08-24
¤å³¹: 441


²Ä 8 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤Q¤@¤ë 04, 2021 10:44 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

ª½±µ¤U¸ü§O¤H³y¦nªº³y¦rÀÉ
¨Ìºô­¶¨BÆJ,³sµ²¤J§Aªº¨t²Î,°¨¤W¥i¥H¥Î,¯ÊÂI:¤£¯à¦A³y¦r!
¥i¥H¨Ï¥Î¥Lºô­¶ªºexcelÀÉ,±N³y¦rÀÉŪ¥Xcopy ¶K¤W

https://adm.nuk.edu.tw/nukword/document2.htm
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
±q¤§«eªº¤å³¹¶}©lÅã¥Ü:   
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï ©Ò¦³ªº®É¶¡§¡¬° ¥x¥_®É¶¡ (GMT + 8 ¤p®É)
²Ä1­¶(¦@1­¶)

 
«e©¹:  
±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§@