|
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 |
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤E¤ë 08, 2003 8:50 pm ¤å³¹¥DÃD: VFP¹ê²{«÷µ(Âà¶K) |
|
|
µû»y:Åý¥Î¤á¦Û¤v«Ø¥ß²ºÙªí¸ê®Æªº¡A
¦Û°ÊÂà´«¦³®É¤£·Ç½T(ÁÙ¦³«µ¦rªº°ÝÃD).
"吖¤KìÀËÞ妸µoÉîä¦ÃÕÃÕÐñ©UËí®³ðÝw¤CËäÉe¥L«z«z«z¤i¤X¥`咗"
¦bµ{¦¡¤¤«üªº¬O±Æ¦C¶¶§Ç¤¤¨CÓ«÷µªº²Ä¤@Óº~¦r
¨Ó·½:myf1 ©]¨Ó»
¥N½X: | Function F_GET_PY
Lparameter AS_DATA
LS_PY = ''
For LL_POS = 1 TO Len(AS_DATA)
LS_PY = IIF(ASC(SUBSTR(AS_DATA,LL_POS,1)) > 128, ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '¥`', LS_PY + "Z", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '¤X', LS_PY + "Y", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '¤i', LS_PY + "X", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '«z', LS_PY + "W", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '¥L', LS_PY + "T", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '¼»', LS_PY + "S", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= 'µM', LS_PY + "R", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '¤C', LS_PY + "Q", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= 'w', LS_PY + "P", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '®@', LS_PY + "Q", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '®³', LS_PY + "N", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '¶ý', LS_PY + "M", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '¹ø', LS_PY + "L", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '©@', LS_PY + "K", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= 'ÃÕ', LS_PY + "J", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '«¢', LS_PY + "H", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '¹Ç', LS_PY + "G", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= 'µo', LS_PY + "F", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '³_', LS_PY + "E", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '·f', LS_PY + "D", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= 'À¿', LS_PY + "C", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= '¤K', LS_PY + "B", ;
IIf(SUBSTR(AS_DATA,LL_POS,2) >= 'ªü', LS_PY + "A", ;
LS_PY + SUBSTR(AS_DATA,LL_POS,2) ))))))))))))))))))))))), ;
LS_PY + SUBSTR(AS_DATA,LL_POS,1))
LL_POS = IIF(ASC(SUBSTR(AS_DATA,LL_POS,1)) > 128, LL_POS + 1, LL_POS)
Next
Return LS_PY |
_________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
Ruey ¦b ¬P´Á¤@ ¤E¤ë 08, 2003 8:56 pm §@¤F²Ä 2 ¦¸×§ï |
|
¦^³»ºÝ |
|
|
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤E¤ë 08, 2003 8:51 pm ¤å³¹¥DÃD: |
|
|
¨Ó·½:myf1 ¯u·RµL¼Ä
¥N½X: |
**************************************************************************
*¹Lµ{:hz2py.prg
*¥Î³~:±N¤@Ó¤¤¤å¦r¦êÂà´«¬°¬ÛÀ³ªº«÷µ¦ê
*¨Ò:
* ?hz2py("¤¤°ê¤H¥Á")
* µ²ªG¬° ZGRMJFJ
*ª`:
* ªð¦^µ²ªG¬°¤j¼g¦r¥À
* ¥u¯àªð¦^°ê¼Ð½X¤¤ªº¦rªº«÷µ
**************************************************************************
FUNC HZ2PY
PARAMETER TCCSTR
IF EMPTY(TCCSTR)
RETURN TCCSTR
ENDIF
LOCAL I,THISSTR,HZ,PYSTR,QW,STRLEN
THISSTR=ALLTRIM(m.TCCSTR)
STRLEN =LEN(m.THISSTR)
PYSTR=""
IF TYPE("_PBSTR_")="U"
PUBLIC _PBSTR_
_PBSTR_=REPLICATE("A",36)+;
REPLICATE("B",196)+;
REPLICATE("C",245)+;
REPLICATE("D",196)+;
REPLICATE("E",28)+;
REPLICATE("F",131)+;
REPLICATE("G",161)+;
REPLICATE("H",193)+;
REPLICATE("J",319)+;
REPLICATE("K",106)+;
REPLICATE("L",260)+;
REPLICATE("M",163)+;
REPLICATE("N",87)+;
REPLICATE("O",8)+;
REPLICATE("P",128)+;
REPLICATE("Q",169)+;
REPLICATE("R",59)+;
REPLICATE("S",304)+;
REPLICATE("T",168)+;
REPLICATE("W",126)+;
REPLICATE("X",241)+;
REPLICATE("Y",324)+;
REPLICATE("Z",341)+SPACE(11)+;
"CJWGNSPGCGNE Y BTYYZDXYKYGT JNNJQMBSGZSCYJSYY PGKBZGY YWYKGKLJSWKPJQHY W DZLSGMRYPYWWCCKZNKYYG "+;
"TTNJJEYKKZYTCJNMCYLQLYPYQFQRPZSLWBTGKJFYXJWZLTBNCXJJJJZXDTTSQZYCDXXHGCK PHFFSS YBGMXLPBYLL HLX "+;
"S ZM JHSOJNGHDZQYKLGJHXGQZHXQGKEZZWYSCSCJXYEYXADZPMDSSMZJZQJYZC J WQJBDZBXGZNZCPWHKXHQKMWFBPBY "+;
"DTJZZKQHYLYGXFPTYJYYZPSZLFCHMQSHGMXXSXJ DCSBBQBEFSJYHXWGZKPYLQBGLDLCCTNMAYDDKSSNGYCSGXLYZAYBN "+;
"PTSDKDYLHGYMYLCXPY JNDQJWXQXFYYFJLEJPZRXCCQWQQSBZKYMGPLBMJRQCFLNYMYQMSQYRBCJTHZTQFRXQHXMJJCJLX "+;
"XGJMSHZKBSWYEMYLTXFSYDSGLYCJQXSJNQBSCTYHBFTDCYZDJWYGHQFRXWCKQKXEBPTLPXJZSRMEBWHJLBJSLYYSMDXLCL "+;
"QKXLHXJRZJMFQHXHWYWSBHTRXXGLHQHFNM YKLDYXZPWLGG MTCFPAJJZYLJTYANJGBJPLQGDZYQYAXBKYSECJSZNSLYZH "+;
"ZXLZCGHPXZHZNYTDSBCJKDLZZYFMYDLEBBGQYZKXGLDNDNYSKJSHDLYXBCGHXYPKDQMMZMGMMCLGWZSZXZJFZNMLZZTHCS "+;
"YDBDLLSCDDNLKJYKJSYCJLKOHQASDKNHCSGZEHDAASHTCPLCPQYBSDMPJLPZJOQLCDHJJYSPRCHN NNLHLYYQYHWZPTCZG "+;
"WWMZFFJQQQQYXACLBHKDJXDGMMYDJXZLLSYGXGKJRYWZWYCLZMSSJZLDBYDCPCXYHLXCHYZJQ QAGMNYXPFRKSSBJLYXY "+;
"SYGLNSCMHSWWMNZJJLXXHCHSY CTXRYCYXBYHCSMXJSZNPWGPXXTAYBGAJCXLY DCCWZOCWKCCSBNHCPDYZNFCYYTYCKX "+;
"KYBSQKKYTQQXFCWCHCYKELZQBSQYJQCCLMTHSYWHMKTLKJLYCXWHYQQHTQH PQ QSCFYMMDMGBWHWLGSLLYSDLMLXPTHMJ "+;
"HWLJZYHZJXHTXJLHXRSWLWZJCBXMHZQXSDZPMGFCSGLSXYMQSHXPJXWMYQKSMYPLRTHBXFTPMHYXLCHLHLZYLXGSSSSTCL "+;
"SLTCLRPBHZHXYYFHB GDNYCNQQWLQHJJ YWJZYEJJDHPBLQXTQKWHLCHQXAGTLXLJXMSL HTZKZJECXJCJNMFBY SFYWYB "+;
"JZGNYSDZSQYRSLJPCLPWXSDWEJBJCBCNAYTWGMPABCLYQPCLZXSBNMSGGFNZJJBZSFZYNDXHPLQKZCZWALSBCCJX YZHWK "+;
"YPSGXFZFCDKHJGXDLQFSGDSLQWZKXTMHSBGZMJZRGLYJBPMLMSXLZJQSHZYJ ZYDJWBMJKLDDPMJEGXYHYLXHLQYQHKYCW "+;
"CJMYYXNATJHYCCXZPCQLBZWWYTWBQCMLPMYRJCCCXFPZNZZLJPLXXYZTZLGDLDCKLYRZZGQTGJHHGJLJAXFGFJZSLCFDQZ "+;
"LCLGJDJCSNCLLJPJQDCCLCJXMYZFTSXGCGSBRZXJQQCTZHGYQTJQQLZXJYLYLBCYAMCSTYLPDJBYREGKJZYZHLYSZQLZNW "+;
"CZCLLWJQJJJKDGJZOLBBZPPGLGHTGZXYGHZMYCNQSYCYHBHGXKAMTXYXNBSKYZZGJZLQJDFCJXDYGJQJJPMGWGJJJPKQSB "+;
"GBMMCJSSCLPQPDXCDYYKY CJDDYYGYWRHJRTGZNYQLDKLJSZZGZQZJGDYKSHPZMTLCPWNJZFYZDJCNMWESCYGLBTZCGMSS "+;
"LLYXQSXSBSJSBBSGGHFJLYPMZJNLYYWDQSHZXTYYWHMZYHYWDBXBTLMSYYYFSXJC TXXLHJHF SXZQHFZMZCZTQCXZXRTT "+;
"DJHNNYZQQMNQDMMG YTXMJGDHCDYZBFFALLZTDLTFXMXQZDNGWQDBDCZJDXBZGSQQDDJCMBKZFFXMKDMDSYYSZCMLJDSYN "+;
"SPRSKMKMPCKLGDCQTFZSWTFGGLYPLLJZHGJ GYPZLTCSMCNBTJBQFKTHBYZGHPBBYMTDSSXTBNPDKLEYCJNYDDYKZTDHQH "+;
"SDZSCTARLLTKZLGECLLKJLQJZQNBDKKGHPJTZQKSECSHALQFMMGJNLYJBBTMLYZXDCJPLDLPCQDHZYCBZSCZBZMSLJFLKR "+;
"ZJSNFRGJHXPDHYJYBZGDLJCSEZGXLBLHYXTWMABCHECMWYJYZLLJJYHLG DJLSLYGKDZPZXJYYZLWCXSZFGWYYDLYHCLJS "+;
"CMBJHBLYZLYCBLYDPDQYSXQZBYTDKYYJY CNRJMPDJGKLCLJBCTBJDDBBLBLCZQRPPXJCGLZCSHLTOLJNMDDDLNGKAQHQH "+;
"JHYKHEZNMSHRP QQJCHGMFPRXHJGDYCHGHLYRZQLCYQJNZSQTKQJYMSZSWLCFQQQZYFGGYPTQWLMCRNFKKFSYYLQBMQAMM "+;
"MYXCTPSHCPTXXZZSMPHPSHMCLMLDQFYQFSZYJDJJZZHQPDSZGLSTJBCKBXYQZJSGPSXQZQZRQTBDKYXZKHHGFLBCSMDLDG "+;
"DZDBLZYYCXNNCSYBZBFGLZZXSWMSCCMQNJQSBDQSJTXXMBLTXZCLZSHZCXRQJGJYLXZFJPHY ZQQYDFQJJLZZNZJCDGZYG "+;
"CTXMZYSCTLKPHTXHTLBJXJLXSCDQXCBBTJFQZFSLTJBTKQBXXJJLJCHCZDBZJDCZJDCPRNPQCJPFCZLCLZXZDMXMPHJSGZ "+;
"GSZZQLYLWTJPFSYAXMCJBTZYYCWMYTCSJJLQCQLWZMALBXYFBPNLSFHTGJWEJJXXGLLJSTGSHJQLZFKCGNNDSZFDEQFHBS "+;
"AQTGYLBXMMYGSZLDYDQMJJRGBJTKGDHGKBLQKBDMBYLXWCXYTTYBKMRTJZXQJBHLMHMJJZMQASLDCYXYQDLQCAFYWYXQHZ"
ENDIF
FOR I = 1 TO m.STRLEN
IF ASC(SUBSTR(m.THISSTR,m.I,1))>160
HZ=SUBSTR(m.THISSTR,m.I,2)
QW=100 * ASC(LEFT(m.HZ,1)) + ASC(RIGHT(m.HZ,1)) - 17760
PYSTR=IIF(m.QW<1,m.PYSTR+"V",m.PYSTR+SUBSTR(_PBSTR_,m.QW,1))
I=m.I+1
ELSE
PYSTR=m.PYSTR+SUBSTR(m.THISSTR,m.I,1)
ENDIF
ENDFOR
RETURN m.PYSTR |
_________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
############################# |
|
¦^³»ºÝ |
|
|
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 3 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤E¤ë 08, 2003 8:53 pm ¤å³¹¥DÃD: |
|
|
¨Ó·½:myf1 abiao
¥N½X: | *-------------------
*¤J¤f¡Gº~¦r¦ê
*¥X¤f¡G«÷µ¦ê
*-------------------
function hzpy(hzstr)
local py,i
private p0
p0="吖¤KìÀËÞ妸µoÉîä¦ÃÕÃÕÐñ©UËí®³ðÝw¤CËäÉe¥L«z«z«z¤i¤X¥`咗"
py=&&
for i=1 to lenc(hzstr)
py=py+hzpy0(substrc(hzstr,i,1))
next
retu py
function hzpy0(hz)
local j,c
for j=1 to 26
if hz<substrc(p0,j,1)
retu chr(95+j)
endif
next
retu "z" |
_________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
############################# |
|
¦^³»ºÝ |
|
|
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 4 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤E¤ë 08, 2003 8:57 pm ¤å³¹¥DÃD: |
|
|
¥Î«÷µ¿é¤Jªk¦r¨å®w¹ê²{¦Pµ¦r¼Ò½k¬d¸ß
¦b¶}µo¦UÃþÀ³¥ÎºÞ²z¨t²Î¤¤¡A¤@¯ë³£n¹ê²{¦UºØ¬d¸ß¥\¯à¡A¦p¦ó·Ç½T¡B§Ö³t¬d§ä¨ì²Å¦X±ø¥óªº°O¿ý¡A¬O¹ê²{¦UºØ¬d¸ß¥\¯àªº«ÂI¡C¨t²Îªº¹ê»Ú¶}µo¹Lµ{¤¤¡A¬d¸ß¥\¯à¤@¯ë³£¬O³q¹L¹ï¦r¤¸¶i¦æ¤ñ¸û¡B§PÂ_µ¥¤èªk¨Ó¹ê²{¡C§Ú̶}µo¤@Ó¤H¨ÆºÞ²z¨t²Î¤¤¹Lµ{¤¤¡A¨t²În¨ã¦³·sªº¬d¸ß¤è¦¡¡A§Y¥unª¾¹D¤@Ó¤H©m¦WªºÅªµ¡A¨Ã¤£ª¾¹D¨CÓ¦rªº¨ãÅé¼gªk¡A³q¹LÀ˯Á¸ê®Æ®w¡A´N¯à§â©Ò¦³²Å¦X³oÓŪµªº°O¿ý¤º®e¥þ³¡Åã¥Ü¥X¨Ó¡C¥Ñ©óº~¦r¦s¦bµÛ¤j¶qªº¦Pµ¦r¡A±Ä¥Î±`¥Îªº¦r¤¸¤ñ¸ûªk¡A¦p¬d§ä¤@Ó¦W¥s¡§§õ¾åx¡¨ªº¤H¡A¸ê®Æ®w¤¤¦s¦bªº¥s¡§§õ¤p§g¡¨ªº¸ê®Æ´N¤£¯à¬d¨ì¡A§Q¥Î±`¥Îªº¬d¸ß¤èªk¹ê²{¤£¤F¦Pµ¦rªº¬d¸ß¥\¯à¡C¬°¤F¸Ñ¨M¦Pµ¦rªº¼Ò½k¬d¸ß°ÝÃD¡Aµ§ªÌÉ¥ÎWINDOWS¨t²Î¤Uªº¿é¤Jªk¥Í¦¨¾¹¡A±N¨t²Î¤¤ªº«÷µ¿é¤Jªk¦r¨å®w¡A¥Í¦¨¤F¤@Ó«÷µ¬d¸ß¦r¨å®w¡A§Q¥Î³oÓ«÷µ¬d¸ß¦r¨å®w¡A¦b¨Ï¥ÎVFP¸ê®Æ®wºÞ²z¨t²Î½s¼gªº¤H¨ÆºÞ²z¨t²Î¤¤¡A»´ÃP¹ê²{¤F«ö»yµ¶i¦æ¼Ò½k¬d¸ß¥\¯à¡A¨ãÅé«ä¸ô¦p¤U¡G
---- ¤@¡Bº¥ýn¥Í¦¨¤@Ó«÷µ¦r¨å¬d¸ß¸ê®Æ®w
---- ¿ï¾ÜWINDOWS¨t²Îªº¶}©l¡Xµ{¦¡¡Xªþ¥ó¡X¿é¤Jªk¥Í¦¨¾¹¡A¶i¤J¿é¤Jªk¥Í¦¨¾¹µøµ¡¡A¨Ï¥Î·Æ¹«ÂIÀ»°fÂà´«ªº¶®Ø¡AÂIÀ»¥´¶}ÀÉ«ö¶s¡A¿ï¤¤µwºÐWINDOWS\SYSTEMÀɧ¨¤UªºWINPY.MBÀÉ¡A¦b½Xªíì¤å¥ó¤¤¿é¤JC:\WINPY.TXT¡A¿é¤J§¹²¦«áÂIÀ»°fÂà´«¡A¦¹®É¨t²Î¹ï¥þ«÷¦r¨å®w¶i¦æÂà´«¡A³Ì«á±N¥Í¦¨¤@ӯ¤å¦rÀɮסA§Q¥Î³oӯ¤å¦rÀÉ®×½s¼g¤@¬q¤pµ{¦¡§Y¥i¥Í¦¨¤@Ó«÷µ¦r¨å¬d¸ß¸ê®Æ®w¡C
---- ¤G¡B¶i¤JVFP¨t²Î¡A½s¼g¤@¬q¥Í¦¨µ{¦¡©R¥O¬°ZH.PRG
---- µ{¦¡¤¤ªº¤º®e¦p¤U©Ò¦C¡G
---- CREA TABL B1 (NR C(60),HZ C(2),PY1 C(12),PY2 C(12))&&³Ð«Ø¤@ÓÁ{®É¸ê®Æ®w
---- USE B1 &&¥´¶}¥Í¦¨ªº¸ê®Æ®w
---- APPE FROM C:\WINPY.TXT SDF
---- &&±N§Q¥Î¿é¤Jªk¥Í¦¨¾¹¥Í¦¨ªº¦r¨å½XÀÉWINPY.TXTÀɤº®e°l¥[¨ì¸ê®Æ®w¤¤
---- DELE FOR ASC(SUBS(NR,3,1)) >=128
---- &&¦b¸ê®Æ®w¤¤§R°£¥þ³¡¤ù»y¤º®e¡A¥u¯d¤U³æ¦r DELE FOR RECN()< 13 &&¦b¸ê®Æ®w§R°£½s½X®wªºÀYÀÉ
---- PACK &&²M°£¥´¤F§R°£¼Ð°Oªº°O¿ý¡C
---- REPL HZ WITH SUBS(NR,1,2),PY1 WITH SUBS(NR,3,AT(' ',NR)-2),;
---- PY2 WITH SUBS(NR,AT(' ',NR)+1) ALL
---- &&±Nº~¦r»P«÷µ¦s©ñ¦b¤£¦PªºÄæ¦ìùØ¡A³oùØ«÷µ¦³¨âÓÄæ¦ì¡A¨ä¤¤¦³¤@Ó¬°¦Pµ¦r¡C
---- REPL NR1 WITH ¡¥s¡¦+SUBS(NR1,3) FOR ¡§sh¡¨$NR1
---- &&¬°¤F·ÓÅU«n¤è¤fµªº¤Hû¨Ï¥Î¡A¥i±N¥þ³¡zh,ch,sh´À´«¦¨z,c,s
---- REPL NR1 WITH ¡¥c¡¦+SUBS(NR1,3) FOR ¡§ch¡¨$NR1
---- REPL NR1 WITH ¡¥z¡¦+SUBS(NR1,3) FOR ¡§zh¡¨$NR1
---- REPL NR2 WITH ¡¥s¡¦+SUBS(NR2,3) FOR ¡§sh¡¨$NR2
---- REPL NR2 WITH ¡¥c¡¦+SUBS(NR2,3) FOR ¡§ch¡¨$NR2
---- REPL NR2 WITH ¡¥z¡¦+SUBS(NR2,3) FOR ¡§zh¡¨$NR2
---- COPY TO PYZDK FIEL HZ,PY1,PY2 &&¥Í¦¨¤@Ó«÷µ¬d¸ß¸ê®Æ®w
---- USE &&Ãö³¬¥´¶}ªº¸ê®Æ®w
---- ERASE 'B1.DBF' &&§R°£¥Í¦¨ªºÁ{¹L¸ê®Æ®w
---- ¦bVFP¤¤©R¥Oµøµ¡¤¤¡A°õ¦æ¤W±³o¬qµ{¦¡¨t²Î±N¦Û°Ê¥Í¦¨¤@Ó«÷µ¬d¸ß®w¡A¨Ã±N³oÓ¸ê®Æ®w©R¦W¬°PYZDK.DBF¡C
---- ¤T¡B·s«Ø¤@Óªí³æ
---- ¦b¸ê®ÆÀô¹Ò¤¤¥[¤J¡§¤Hû±¡ªpªí¡¨©M¡§PYZDK¡¨¡A¨âÓ¸ê®Æ®w¡A¦b¤Hû±¡ªpªí¤¤¦s¦b»Ýn¦³¬d¸ßªº¤Hû©m¦WÄæ¦ì¡AÄæ¦ì¦W¬°NAME¡A¼Ð»x¦ì¤¸Äæ¦ì¡AÄæ¦ì¦W¬°BZW¡C
---- ¦bªí³æ¤W·s«Ø¤@ÓLABEL1ª«¥ó¥Î¨Ó´£¥Ü¡§½Ð¿é¤Jn¬d¸ßªº©m¦W¡¨¡F¤@Ӥ奻®Ø¥Î¨Ó¿é¤Jn¬d¸ßªº¦r¤¸¤º®e¡F¤@Óªí®æ¹ï¹³¡A¥Î¨ÓÅã¥Ü¤Hû±¡ªpªí¸ê®Æ®w¤¤ªº¤º®e¡A¨âÓ©R¥O«ö¶s¡ACOMMAND2¥Î¨Ó°õ¦æ¬d¸ß¹Lµ{ÀÉ¡ACOMMAND1¥Î¨Ó°h¥X¬d¸ßµ¡¤f¡C
---- COMMAND1©R¥O«ö¶sÄݩʳ]¸m¦p¤U¡G
COMMAND1.CAPTION=¡¦°h¥X¡¦
¦bCOMMAND1©R¥O«ö¶sªº.CLICK¨Æ¥ó¤¤¼g¤J¥N½X
THISFORM.RELEASE
COMMAND2©R¥O«ö¶sÄݩʳ]¸m¦p¤U¡G
COMMAND2.CAPTION¡×¡¦¶}©l¬d¸ß¡¦
¦bCOMMAND2©R¥O«ö¶sªºCLICK¨Æ¥ó¤¤¼g¤J¥N½X¡G
IF THIS.CAPTION='¶}©l¬d¸ß'
THIS.CAPTION='«ì´_¸ê®Æ'
SRNR=ALLT(THISFORM.TEXT1.value)
ZDD=LEN(SRNR)/2
DIME HH(100)
HH=''
FOR I=1 TO LEN(SRNR)/2
ABC=SUBS(SRNR,I*2-1,2)
SELE PYZDK
SET FILT TO
LOCA FOR ABC$HZ
PYNR1=PY1
PYNR2=PY2
IF PYNR2< >' '
SET FILT TO PY1=PYNR1 OR PY2=PYNR2
ELSE
SET FILT TO PY1=PYNR1
ENDIF
GO TOP
DO WHIL NOT EOF()
HH(I)=HH(I)+HZ
SKIP
ENDDO
ENDFOR
SELE ¤Hû±¡ªpªí
SET FILT TO
REPL BZW WITH '' ALL
GO TOP
DO WHIL NOT EOF()
JSQ=0
FOR I=1 TO LEN(ALLT(NAME))/2
IF SUBS(YXMM,I*2-1,2)$HH(I)
JSQ=JSQ+1
ENDIF
ENDFOR
IF JSQ=LEN(ALLT(NAME))/2 OR JSQ >=ZDD
REPL BZW WITH '*'
ENDIF
SKIP
ENDDO
SET FILT TO BZW="*"
THISFORM.REFRESH
ELSE
THIS.CAPTION='¶}©l¬d¸ß'
SELE ¤Hû±¡ªpªí
SET FILT TO
GO TOP
THISFORM.REFRESH
ENDIF
---- ¥þ³¡³]¸m§¹²¦«á¡A°õ¦æ³oÓµ{¦¡¡A¦b¤å¥»®Ø¤¤¿é¤Jn¬d¸ßªºÃöÁä¦r¡AÂIÀ»¬d¸ß©R¥O«ö¶s¡A³o®Éªí®æ¤¤Åã¥Üªº±N¬O²Å¦X¬d¸ßÃöÁä¦rªº¥þ³¡¤º®e¡A¦A¦¸ÂIÀ»³oÓ©R¥O«ö¶s¡Aªí®æ¤¤±N«ì´_Åã¥Ü¥þ³¡¸ê®Æ¤º®e¡AÂIÀ»°h¥X¨t²Î©R¥O«ö¶s¡A±N°h¥X¨t²Î¡C
---- ¥|¡B¬d¸ßµ{¦¡¹ê²{ªºì²z
---- ¦b¨t²Î¤¤´£¨Ñªº½s¿è®Ø¤¤¿é¤Jn¬d¸ßªºÃöÁä¦r¡A¦pªG¦b¤@Ó¤Hû¸ê®Æ®w¤¤¬d¸ß¤@Ó©m¦Wµ¬°¡§§õ¾åx¡¨ªº¤Hû¡Aº¥ý¦b¥Í¦¨ªº«÷µ¬d¸ß¸ê®Æ®w¤¤§ä¿é¤J²Ä¤@Óº~¦r¦b¦r¨å®w¤¤ªº¦ì¸m¡A§Q¥Î³oÓº~¦rªºÅªµ¡A¹ï¦r¨å®w°O¿ý¤º®e¶i¦æ¹LÂo¡A³o¼Ë¦r¨å®w¤¤¥u¦³²Å¦X³oÓº~¦rŪµªº¥þ³¡º~¦r¡A§Q¥Î¤@Ó°j°é¡A±N¥þ³¡¦Pµ¦r¬Û¥[¥Í¦¨¤@Ó¦r¦ê°e¨ì¤@ÓÅܼƤ¤¡AÄ~Äò¹ï¥t¥~¿é¤Jªºº~¦r¶i¦æ¦P¼Ëªº³B²z¡A³Ì«á®Ú¾Ú¿é¤Jº~¦rªº¦h¤Ö¡A¥Í¦¨¦hÓ¦r¦êÅܼơC¥Í¦¨¦r¦êÅܼƫá¡A¶}©lÀ˯Á§An¬d¸ßªº¸ê®Æ®w¡A±N¸ê®Æ®w¤¤¨C¤Hªº©m¦W©î¶}¤À§O»P¥Í¦¨ªº¦r¦ê¶i¦æ§PÂ_¡A¥u¦³·í¸ê®Æ®w¤¤¤@Ó¤Hªº©m¦W¥þ³¡¦r¤¸³£¯à¦b¬ÛÀ³ªº¦r¦ê¤¤¬d§ä¨ì¡A¨º»ò³o±ø°O¿ý´N²Å¦X¬d§äªº±ø¥ó¡A¥´¤W¤@Ó¼ÐÃÑ¡A¤ñ¸û¤U¤@±ø°O¿ý¡A°j°é¨ì¸ê®Æ®wªºµ²§À¡A³o®É´N¥i¥H±N©Ò¦³°µ¤F¬d¸ß¼Ð°Oªº¸ê®Æ®w¤º®eÅã¥Ü¥X¨Ó¡A§Y¹ê²{¤F«ö»yµ¼Ò½k¬d¸ßªº¤èªk¡C
---- ¤W±Â²n¤¶²Ð¤F¦bVFP¨t²Î¤¤¡A¹ê²{«ö»yµ¼Ò½k¬d¸ßªº¤@ºØ¤èªk¡A¦bµ{¦¡¤¤¨Ã¨S¦³¦Ò¼{®e¿ù©Ê¡A¦b³oùØ¥u¬O´£¨Ñ¤F¤@ºØ«ä¸ô¡AŪªÌ®Ú¾Ú¥H¤W¹ê²{»yµ¬d¸ßªºì²z¡A®Ú¾Ú¹ê»Ú¤u§@ªº»Ýn¹ê²{¤£¦P§Î¦¡ªº»yµ¼Ò½k¬d¸ß¤è¦¡¡C _________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
############################# |
|
¦^³»ºÝ |
|
|
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 5 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤E¤ë 08, 2003 9:03 pm ¤å³¹¥DÃD: |
|
|
¨Ó·½:myf1 ³·¤ß
¥N½X: | ***************************************
* ¨ú±oº~¦r¦êªº«÷µº¦r¥À §@ªÌ¡G³·¤ß *
***************************************
func hzjc
PARAMETERS hzstr
local py,i,j,c
private p0
p0="吖¤KìÀËÞ妸µoÉîä¦ÃÕÃÕÐñ©UËí®³ðÝw¤CËäÉe¥L«z«z«z¤i¤X¥`咗"
py=""
for i=1 to lenc(hzstr)
C='z'
for j=1 to 26
if substrc(hzstr,i,1)<substrc(p0,j,1) &&,¦pj=1§Y³q¹L,«h¸Ó¦r¤¸¤£¬Oº~¦r,ªð¦^`,¸õ¥X°j°é
C=chr(95+j)
EXIT
endif
NEXT
IF j=1 &&ÃöÁä¦b³o¤@¥y,¦p¤£¬Oº~¦r,«hª½±µªð¦^¸Ó¦r¤¸
c=substrc(hzstr,i,1)
endi
py=py+C
next
retu py |
_________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
############################# |
|
¦^³»ºÝ |
|
|
|
|
±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§@
|