|
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´Á¤é ¥|¤ë 13, 2003 3:16 pm ¤å³¹¥DÃD: ªü©Ô§B¼Æ¦rÂন¤¤¤å¤j¼gª÷ÃB |
|
|
********************************************
FUNC Num2Chinese &&¼Æ¦rÂà´«¦¨'¤j¼g'
&& numªº¾ã¼Æ³¡¤À³Ì¦h¦³16¦ì,¤p¼Æ³¡¤À5¦ì
para num &&I.g.: 234,124.33 ¶L¬B ¸U¸v¥a³ü¨Õ¶L¬B¸vÂI
LOCAL i,tmp,tmpchr,never_met0,lcTmp,lnPos
tmp=''
never_met0=.t.
num=allt(padc(num,22))
if len(num)>16
=MessageBox('½Õ¥ÎnumToChinese®É¥X¿ù, °Ñ¼Æªø¹L16¦ì')
return ''
endif
int_len=iif(at('.',num)=0,len(num),at('.',num)-1) &&¾ã¼Æ³¡¤Àªø«×
for i=1 to len(num)
tmpchr=substr(num,i,1)
do case
case i>int_len+1 &&¤p¼Æ³¡¤À
tmp=tmp+ gcU2Ch(tmpchr)
case tmpchr='.' &&¤p¼ÆÂI
tmp=tmp+'ÂI'
case tmpchr='0' && ¹J¨ì¹s
do case
case int_len=1 &&¥u¦³Ó¦ì¼Æ
tmp=gcU2Ch(tmpchr)
case i=int_len and int_len#1 &&¦h¦ì¼ÆªºÓ¦ì, ¤£n
otherwise &&¦h¦ì¼Æ
do case
case never_met0 &&¥¼¹J¨ì¹L'0',«O¯d¤@Ó
never_met0=.f.
if gcPos2Chinese(int_len-i+1)$'»õ¸U'
tmp=tmp+gcPos2Chinese(int_len-i+1)
never_met0=.f.
else
tmp=tmp+gcU2Ch(tmpchr)
endif
case gcPos2Chinese(int_len-i+1)$'»õ¸U'
&& ¦ýY¥¦ªºTITLE¬O'¸U'©Î'»õ,'¸U'©Î'»õ'¯d¤U
tmp=tmp+gcPos2Chinese(int_len-i+1)
never_met0=.t.
endcase
endcase
case i=int_len &&¹J¨ìÓ¦ì¼Æ
tmp=tmp+gcU2Ch(tmpchr)
otherwise &&¾ã¼Æ³¡¤À
never_met0=.t.
tmp=tmp+gcU2Ch(tmpchr)+gcPos2Chinese(int_len-i+1)
endcase
endfor
&&&!!!¸U©M»õªº«e±¦³'¹s',¥h±¼!
lnPos=at('¸U',Tmp)
IF lnPos>0 and subst(Tmp,lnPos-2,2)='¹s'
Tmp=Subst(Tmp,1,lnPos-4+1)+Subst(Tmp,lnPos)
ENDIF
lnPos=at('»õ',Tmp)
IF lnPos>0 and subst(Tmp,lnPos-2,2)='¹s'
Tmp=Subst(Tmp,1,lnPos-4+1)+Subst(Tmp,lnPos)
ENDIF
return tmp |
|
¦^³»ºÝ |
|
|
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤G¤ë 11, 2004 5:17 pm ¤å³¹¥DÃD: |
|
|
YSC5096¼g¤F§ó²¼äªº¨ç¼Æ,§Ú§â¥LÂà¶K¹L¨Ó.
¨Ó·½:¬õª°½×¾Â YSC5096
http://fox.hanyu.com.tw/View.aspx?fbId=1&Id=11198
¥N½X: | * ¬°¨D±Æª©¬ü?#91;¡AªÅ¥Õ¬°¥þ§Î¡AYn´ú¸Õ¡A½ÐÂର¥b§Î«á¦A´ú¸Õ
FUNCTION F_StrConv
* -------------------------------------------------------------------------- *
*¡@¡@¡@¡@ ÅܼƦWºÙ¡@ «¬ºA¡@¡@¡@»¡©ú
* -------------------------------------------------------------------------- *
* Input : L_ncNumber N or C¡@¡@1.¥Nªí¡uªü©Ô§B¼Æ¦r«¬¦¡¡vªºª÷ÃB¡C
*¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@2.¤p¼Æ¦ì¼Æ¥u³B²z¨ì²Ä¤G¦ì¡At¸¹·|³Q©¿²¤¤£³B²z¡C
*¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@3.Y¬° C «¬ºA¡G±µ¨ü
*¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@9999999999999999999.99 ©Î
*¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@9,999,999,999,999,999,999.99 ®æ¦¡
* Output: Lo_cNumber C¡@¡@¡@¡@ ¥Nªí¡u¤f»yª÷ÃB±Ôz«¬¦¡¡vªº¦r¦êª÷ÃB
* -------------------------------------------------------------------------- *
* »¡©ú:¡@ ±N¡uªü©Ô§B¼Æ¦r«¬¦¡¡vª÷ÃBÂà´«¦¨¡u¤f»yª÷ÃB±Ôz«¬¦¡¡v¦r¦êª÷ÃB
* -------------------------------------------------------------------------- *
* ½d¨Ò: 10205104.32 --> ³ü¥a¹s¶L¬B¸U¥î¥a³ü¨Õ¹s¸v¤¸°Ñ¨¤¶L¤À¾ã
* ? F_StrConv(10205104.32)
* ? F_StrConv("10205104.32")
* ? F_StrConv("10,205,104.32")
* -------------------------------------------------------------------------- *
¡@LPARAMETERS L_ncNumber
¡@LOCAL W1_cNumber,W1_cStr1,W1_cStr2,W1_cStr3
¡@LOCAL W1_nSUB_A,W1_n1Num,W1_cTranStr
¡@IF TYPE("L_ncNumber") = "C"
¡@¡@L_ncNumber = VAL(CHRTRAN(L_ncNumber,",",""))
¡@ENDIF
¡@W1_cNumber = LTRIM(TRANSFORM(ABS(L_ncNumber),"9999999999999999999.99"))
¡@STORE "¹s³ü¶L°Ñ¸v¥î³°¬m®Ã¨h"¡@¡@¡@¡@¡@¡@¡@¡@¡@ TO W1_cStr1
¡@STORE "¤À¨¤¡@¤¸¬B¨Õ¥a¸U¬B¨Õ¥a»õ¬B¨Õ¥a¥ü¬B¨Õ¥a" TO W1_cStr2
¡@STORE "¡@¡@¡@¤¸¡@¡@¡@¸U¡@¡@¡@»õ¡@¡@¡@¥ü¡@¡@¡@" TO W1_cStr3
¡@STORE SPACE(0)¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@ TO Lo_cNumber
¡@FOR W1_nSUB_A = LEN(W1_cNumber) TO 1 STEP -1
¡@¡@W1_n1Num¡@¡@= VAL(SUBSTR(W1_cNumber,W1_nSUB_A,1))¡@&& n³B²zªº¦ì¼Æ¤§È
¡@¡@W1_cTranStr = IIF(W1_n1Num=0,W1_cStr3,W1_cStr2)¡@¡@&& n´«ºâªº¹ïÀ³³æ¦ì¦r¦ê
¡@¡@Lo_cNumber¡@= SUBSTR(W1_cStr1,W1_n1Num*2+1,2) + ;¡@&& ¨Ò¡G4 --> ¸v
¡@¡@¡@¡@¡@¡@¡@¡@¡@ALLTRIM(SUBSTR(W1_cTranStr,(LEN(W1_cNumber)-W1_nSUB_A+1)*2-1,2)) + ;
¡@¡@¡@¡@¡@¡@¡@¡@¡@Lo_cNumber
¡@ENDFOR
¡@Lo_cNumber = Lo_cNumber + "¾ã"
¡@DO WHILE !EMPTY(AT("¹s¹s",Lo_cNumber))
¡@¡@Lo_cNumber = STRTRAN(Lo_cNumber,"¹s¹s","¹s")
¡@ENDDO
¡@Lo_cNumber = STRTRAN(Lo_cNumber,"¹s¸U","¸U")
¡@Lo_cNumber = STRTRAN(Lo_cNumber,"¹s»õ","»õ")
¡@Lo_cNumber = STRTRAN(Lo_cNumber,"¹s¥ü","¥ü")
¡@Lo_cNumber = STRTRAN(Lo_cNumber,"¹s¤¸","¤¸")
¡@Lo_cNumber = STRTRAN(Lo_cNumber,"¤¸¹s","¤¸")
¡@Lo_cNumber = STRTRAN(Lo_cNumber,"¹s¾ã","¾ã")
RETURN Lo_cNumber |
_________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
############################# |
|
¦^³»ºÝ |
|
|
¦¶¨|¿³
µù¥U®É¶¡: 2003-08-25 ¤å³¹: 661 ¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï
²Ä 3 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤G¤ë 11, 2004 10:14 pm ¤å³¹¥DÃD: |
|
|
TO Ruey:
§A¤Ö¶K¤F¤U±¤@¬q¸Ü
¤Þ¨¥¦^ÂÐ: |
[¾ã²z]±N¡uªü©Ô§B¼Æ¦r«¬¦¡¡vª÷ÃBÂà´«¦¨¡u¤f»yª÷ÃB±Ôz«¬¦¡¡v¦r¦êª÷ÃB
* ³o¬O cchvfp ´£¨Ñªº¡u¤H¨Æ¨t²Îµ{¦¡½X§K¶O¤½¶}¡v¤¤ªº¬Y¤@¦Ûq¨ç¼Æ¡A
* §Úı±o¥¦ÁÙÆZ¹ê¥Î¡A´N§â¥¦´£¥X¨Ó¤À¨É¡C
* ¤£¹L§Ú¦³µy·L§ó°Ê¹L¤º®e¡Aì©lªºµ{¦¡½X¤ñ¸û²¼ä¡A§Ú¥u¬O¬°¤F¥[»¡©ú¦Ó§ó°Ê¤@¨Ç¡C |
§Ú¥u¬O±N¥¦¾ã²z¥X¨Ó¨Ã¥[¤J»¡©ú¦Ó¤w _________________ §Æ±æ¦³§ó¦h¤H¨Ó°Ñ»P
VFP wiki - »Ýn¤j®a¤@°_§¹¦¨ªºVFP¹q¤l®Ñ»PFAQ |
|
¦^³»ºÝ |
|
|
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 4 ¼Ó
|
|
¦^³»ºÝ |
|
|
jasonyummy
µù¥U®É¶¡: 2004-05-06 ¤å³¹: 15
²Ä 5 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤»¤ë 04, 2004 10:26 am ¤å³¹¥DÃD: |
|
|
§Ú¬O·s¤â¡A¦b³o¸ÌÀò¨ú«Ü¦h«Ü¦h¡A©Ò¥H¨C¦³·s·N®É´N«Ü·Q¶K¥X¡A¦ý¬O©È¦h¦¹¤@Á|¦Óê¨ì§A̪º²´·ú¡A©Ò¥H´N.........
³oÓ¤ñ¸û²³æ¡A©Ò¥H´NÄmÁà¤F
¥N½X: |
**********************************************
µ{¦¡½X¡G
parameter xnTc_V
lcChar_M="0¹s1³ü2¶L3°Ñ4¸v5¥î6³°7¬m8®Ã9¨h"
lcTc_V=strtran(transform(xnTc_V,"9¥ü9¥a9¨Õ9¬B9»õ9¥a9¨Õ9¬B9¸U9¥a9¨Õ9¬B9¤¸.9¨¤9¤À"),".","") &&Âন¤å¦r«¬ºA
lcRet_T=''
for lnI=1 to lenc(lcTc_V) step 2
¡@¡@lcChar_N=substrc(lcTc_V,lnI,2) &&¨ú½X
¡@¡@if inlist(left(lcChar_N,1),"1","2","3","4","5","6","7","8","9","0") &&¨úªü©Ô§B¼Æ¦r
¡@¡@¡@lcChar_B= substr(lcChar_M,at(left(lcChar_N,1),lcChar_M)+1,2) &&Âà´«ªü©Ô§B¼Æ¦r¦¨¬°¤¤¤å¤j¼g¼Æ¦r
¡@¡@¡@lcRet_T= lcRet_T+lcChar_B+right(lcChar_N,2)
¡@¡@endif
endfor
lcRet_T=alltrim(lcRet_T)+"¾ã"
lcRet_T=strtran(lcRet_T,"¹s¬B","¹s")
lcRet_T=strtran(lcRet_T,"¹s¨Õ","¹s")
lcRet_T=strtran(lcRet_T,"¹s¥a","¹s")
lcRet_T=strtran(lcRet_T,"¹s¨¤","¹s")
lcRet_T=strtran(lcRet_T,"¹s¤À","¹s")
lcRet_T=strtran(lcRet_T,"¹s¹s","¹s")
lcRet_T=strtran(lcRet_T,"¹s¹s","¹s")
lcRet_T= STRTRAN(lcRet_T,"¹s¸U","¸U")
lcRet_T= STRTRAN(lcRet_T,"¹s»õ","»õ")
lcRet_T= STRTRAN(lcRet_T,"¹s¥ü","¥ü")
lcRet_T= STRTRAN(lcRet_T,"¹s¤¸","¤¸")
lcRet_T= STRTRAN(lcRet_T,"¹s¾ã","¾ã")
return(lcRet_T)
********************************************** |
¬°¤F¬üÆ[, §Ú¦³¥[¤J¤j¼gªÅ¥Õ, n¥Îªº¸Ü½Ð¦Û¦æ§R°£
§Ú¨ú Ruey ©Òµoªíªº YSC5096 ¤å³¹¤ù¬q, °µ¦¨§Ú©Ò³ßÅwªº®æ¦¡
§Æ±æ¦¹Á|¨S¦³Ä²¥Ç¦ó¨Æ, ©Î¥t¤H¤£®®ªº¨Æ
Y¦³ªº¸Ü, ¦¹§R°£¦¹½g, ÁÂÁª©¥D |
|
¦^³»ºÝ |
|
|
|
|
±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§@
|