¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
¤p°ò°ò
µù¥U®É¶¡: 2004-07-08 ¤å³¹: 26
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤E¤ë 06, 2005 8:42 pm ¤å³¹¥DÃD: ¦b·L³n¼gªºAPP¤¤µo²{ì¨Ó¡Avfp¬O¥i¥H¥[±Kªº¡C |
|
|
¬Q¤Ñ¨Ï¥Îvfp9.0ªºµ{¦¡¡A¦]¬°·L³n¦³¬Y¨Ç¤èªk©Mµ{§Ç·Pı°_¨Ó¤ñ§Ú¼gªº¶¶(¦]¬°³t«×§Ö¡A¤S¦³«Ü¦h¦n¥Îªº¦a¤è¡C)¸g¹L¤ß¸Ì´X¤À±Ã¤ã«á¡A´N§â·L³n¼gªºapp¸Ñ¶}¤F¡AµM«á¤p§Ì´N°µ¤H¤£¬°¤H¹Dªº¨Æ±¡(·Q°½¬Ý·L³nªº½s½X¤è¦¡)¡Cµ²ªG·N¥~ªºµo²{¡A¦b¨Æ¥ó¤U¦³¼gµ{¦¡ªº¦a¤è§¹¥þ¤£¯à¬Ý¡A¦Ó¥BÁÙ·|¨Ïvfp9.0·í±¼©Î¦b¨Æ¥ó¤Uªº½s½XÅܶýX¡A¨Ï¥Î¤F¦UºØ¤èªk«á¡CÁÙ¬O¨S¿ëªk¬Ýªº¨ì¡A¸Õ¨ì³Ì«á¤w¸g¤£¬O¬Ý¤£¬Oªº°ÝÃD¤F¡A¦Ó¬O¤j®a¤@ª½¦bÃö¤Á«OÅ@¦Û¤vµ{¦¡½Xªº½s½X¤è¦¡¡C§Ú·Q³o¥u¦³·L³nª¾¹D§a¡C¤£ª¾¹D¦³¨S¦³°ª¤âª¾¹D³oºØªº©_¯Sªº¤è¦¡¡C
¸g¹L§Ú·M¬Nªº²q·Q¡A¦]¬°vfp¥»¨¤]¬O¤@Ó½s¿èªº¤u¨ã¡A¦b¥´¶}¨Æ¥ó«e¤]¤@©w·|¨ì¯S©wªºaddress¥hŪ¨ú¸Ó¨Æ¥ó¤Uªºµ{¦¡½X¡CµM«á¦b¨q¥X¨Ó§ÚÌ©Ò¼gªºµ{¦¡½X¡C¦ý¸g¹L·L³n¯S®í³B²z«á³ºµM¥i¥HÅýµ{¦¡½sÅܶýX¡A¦ý¤S¥i¥H¶]¡C
¤p§Ì·Q½Ð±Ð¦U¦ì¤j¤j¦³¨S¦³¤Hª¾¹D³o½s½Xªº¤è¦¡¡C |
|
¦^³»ºÝ |
|
|
¦æªÌ孙
µù¥U®É¶¡: 2006-03-11 ¤å³¹: 43
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤T¤ë 20, 2006 2:30 pm ¤å³¹¥DÃD: |
|
|
实现这个¥\¯à¤£难¡A§Ú写ªºVFPªí单压缩¥[±K¥N码´N¥i¥H实现¡I
¤Ï编译ªº时Ô会让§AªºVFP¦ºÉó©ÎªÌ¦b§Aªºµw盘¤W¤£断¼W¥[©U§£¤å¥ó¡I _________________ ¢~⌒¢¡VFP应¥Îµ{¦¡ºâªk¸s 12787940¤¢~⌒
¢~http://hi.baidu.com/myvfp/blog
,¡`¡`¡`¡`,""¡`~~ ,""~¡`¡`¡@ ,""
¢¬¢ª¢i¢©¡@¢¬¢ª¢i¢©
¡W¥Ð¡W¥Ð¡W¡W¥Ð¡W¥Ð¡W
ùáùáùáùáùáùáùáùáùáùáùáùáùáùáùáùáùáùá
http://hi.baidu.com/myvfp/blog |
|
¦^³»ºÝ |
|
|
¤p°ò°ò
µù¥U®É¶¡: 2004-07-08 ¤å³¹: 26
²Ä 3 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤T¤ë 21, 2006 10:33 am ¤å³¹¥DÃD: |
|
|
³o¦ì¤j¤j¥i¥H¶Ç±Âµ¹¤j®a¾Ç²ß¶Ü¡H |
|
¦^³»ºÝ |
|
|
Jimsun
µù¥U®É¶¡: 2006-03-21 ¤å³¹: 11
²Ä 4 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤T¤ë 21, 2006 11:02 am ¤å³¹¥DÃD: |
|
|
§â©pªº¾v²{»¡ªº¨ãÅéÂI¦n¶Ü¡H |
|
¦^³»ºÝ |
|
|
Jimsun
µù¥U®É¶¡: 2006-03-21 ¤å³¹: 11
²Ä 5 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤T¤ë 21, 2006 11:02 am ¤å³¹¥DÃD: |
|
|
¬O¤£¬O´N¬O¦æªÌªº¨ºÓ³ËªG¡H |
|
¦^³»ºÝ |
|
|
¦æªÌ孙
µù¥U®É¶¡: 2006-03-11 ¤å³¹: 43
²Ä 6 ¼Ó
|
µoªí©ó: ¬P´Á¥| ¤T¤ë 23, 2006 8:12 pm ¤å³¹¥DÃD: |
|
|
¤£ª¾¹D§A说ªº¬O¤£¬O´N¬O§Ú写ªº¨º个简单¥Ü¨Ò©Ò达¨ìªº®ÄªG
¥Ü¨Ò¦a§}¡Ghttp://vfp.sunyear.com.tw/download.php?id=781
¦pªG¬Oªº话§Ú¥i¥H简单说¤U¨ãÊ^实现ªº¤èªk©Mì²z _________________ ¢~⌒¢¡VFP应¥Îµ{¦¡ºâªk¸s 12787940¤¢~⌒
¢~http://hi.baidu.com/myvfp/blog
,¡`¡`¡`¡`,""¡`~~ ,""~¡`¡`¡@ ,""
¢¬¢ª¢i¢©¡@¢¬¢ª¢i¢©
¡W¥Ð¡W¥Ð¡W¡W¥Ð¡W¥Ð¡W
ùáùáùáùáùáùáùáùáùáùáùáùáùáùáùáùáùáùá
http://hi.baidu.com/myvfp/blog |
|
¦^³»ºÝ |
|
|
goto-dream
µù¥U®É¶¡: 2004-05-11 ¤å³¹: 909
²Ä 7 ¼Ó
|
|
¦^³»ºÝ |
|
|
kosung
µù¥U®É¶¡: 2006-06-25 ¤å³¹: 7
²Ä 8 ¼Ó
|
µoªí©ó: ¬P´Á¤é ¤»¤ë 25, 2006 8:38 am ¤å³¹¥DÃD: ¦æªÌ孙¡A§Aªº东东¦n¶H¤£«ç¤\样§r¡A¤w经给©î¥X来¤F¡C |
|
|
¦æªÌ孙¡A§Aªº东东¦n¶H¤£«ç¤\样§r¡A¤w经给©î¥X来¤F¡C
¥H¤U¬Oªí单压缩Éó.SCX¤¤LABEL7¤¤ªºCLICK¥N码¡G
*--
if ALLTRIM(f) == ""
= MESSAGEBOX("§A没¦³选择¤å¥ó",58,"«H®§´£¥Ü")
else
Rename '&f' TO '&f'+'.sfq'
Rename '&p' TO '&p'+'.sfq'
Copy file '&f'+'.sfq' to '&f'
Copy file '&p'+'.sfq' to '&p'
erase '&f'+'.sfq'
erase '&p'+'.sfq'
nr = ""
USE '&p'
for i = 1 to RECCOUNT()
goto i
nr = nr+methods
endfor
use
if ALLTRIM(nr) == ""
= MESSAGEBOX("该ªí单¤å¥ó无ªk继续压缩",58,"«H®§´£¥Ü")
else
if THISFORM.CHECK1.value = 1
copy file '&f' to '&f'+'.bak'
copy file '&p' to '&p'+'.bak'
THISFORM.zip()
if THISFORM.CHECK3.value = 1
USE '&p'
replace methods with "*¦¹¥N码³¡¤À¤w³Q¦æªÌ¥[±K¾¹¥[±K处²z*" all
use
= ADIR(arryname,f)
h = FOPEN(f,12)
= FSEEK(h,arryname(2))
= FWRITE(h,"*¦¹¥N码³¡¤À¤w³Q¦æªÌ¥[±K¾¹¥[±K处²z*")
= FCLOSE(h)
endif
if THISFORM.CHECK2.value = 1
=SetFileAttributes("&f", BitOr(GetFileAttributes("&f"), 1))
=SetFileAttributes("&p", BitOr(GetFileAttributes("&p"), 1))
endif
= MESSAGEBOX("ªí单压缩¦¨¥\",58,"«H®§´£¥Ü")
else
THISFORM.zip()
if THISFORM.CHECK3.value = 1
USE '&p'
replace methods with "*¦¹¥N码³¡¤À¤w³Q¦æªÌ¥[±K¾¹¥[±K处²z*" all
use
= ADIR(arryname,f)
h = FOPEN(f,12)
= FSEEK(h,arryname(2))
= FWRITE(h,"*¦¹¥N码³¡¤À¤w³Q¦æªÌ¥[±K¾¹¥[±K处²z*")
= FCLOSE(h)
endif
if THISFORM.CHECK2.value = 1
=SetFileAttributes("&f", BitOr(GetFileAttributes("&f"), 1))
=SetFileAttributes("&p", BitOr(GetFileAttributes("&p"), 1))
endif
= MESSAGEBOX("ªí单压缩¦¨¥\",58,"«H®§´£¥Ü")
endif
endif
endif |
|
¦^³»ºÝ |
|
|
Jimsun
µù¥U®É¶¡: 2006-03-21 ¤å³¹: 11
²Ä 9 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤C¤ë 11, 2006 9:29 am ¤å³¹¥DÃD: ¤Þ¥Î |
|
|
¤Þ¥Î¡I
¦æªÌ孙
µù¥U®É¶¡: 2006-03-11
¤å³¹: 22
µoªí©ó: ¬P´Á¤T ¤T¤ë 22, 2006 1:51 pm ¤å³¹¥DÃD:
--------------------------------------------------------------------------------
¥»¥Ü¨Òªºì²z¤]¤ñ较简单¡A§Ú´N¬O§âFORMªºDEBUG«H®§¥Î伪È¥h´À¥N¡A¦A简单קï¤UFORMªº备ª`¤å档¡I
这¤£属¤_¯u¥¿ªºFORM¥[±K¡A请¤j®a¤£n误会¡A©Ò«üªº¬O¥¦¯à够减¤ÖFORMªºÊ^积¦}给恶¬rªº¤Ï编译ªÌ³y¦¨³Â烦¡I
[/img] |
|
¦^³»ºÝ |
|
|
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 10 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤C¤ë 12, 2006 6:44 pm ¤å³¹¥DÃD: |
|
|
§âFORMªºDEBUG«H®§¥Î伪È¥h´À¥N¡A¦A简单קï¤UFORMªº备ª`¤å档¡I
³o¬q§Ú¤£À´!!!§Ú¨S¦³¬ã¨s¹L...¥i§_ÃD¬O¨Ì¤U~~~~ _________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
############################# |
|
¦^³»ºÝ |
|
|
|