[µo°Ý] ½Ð±ÐÃö©ó¸ê®Æªº¦X¨Ö

°¶ÔÐ

§Ú¦³¼Æµ§¸ê®Æ,¨C­ÓÀx¦s®æ¤¤ªº¸ê®Æ­Y¦³¦h­Ó¦r¦ê¬O¥H¤À¸¹°Ï¹j,¥Ø«e¥²»Ý±N[°ê®a]¤Î[¾÷ºc]¤¤¬Û¹ïÀ³ªº¸ê®Æ¦X¨Ö¦b¤@°_,¦³¥H¤U±¡ªp:
1)­Y[°ê®a]Äæ¦ì¤¤¥u¦³¤@­Ó¦r¦ê,«hª½±µ»P[¾÷ºc]¤¤ªº¦r¦ê¦X¨Ö,¤¤¶¡¥H³r¸¹¹j¶}
2)­Y[°ê®a]Äæ¦ì¤¤¥u¦³¤G­Ó¥H¤W¦r¦ê,«h¥²»Ý»P[¾÷ºc]¤¤ªº¬Û¹ïÀ³ªº¦r¦ê¦X¨Ö,¤¤¶¡¥H³r¸¹¹j¶},¦U²Õ¶¡¥H¤À¸¹¹j¶}(©ÎªÌ¦U²Õ¦U§O¸m©ó¤£¦PÀx¦s®æ)

¨Ò¦p:
°ê®a¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¾÷ºc ¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@µ²ªG
Germany¡@¡@¡@¡@¡@¡@¡@¡@¡@Max Planck Inst Biol Cybernet¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@Germany, Max Planck Inst Biol Cybernet
Japan; Japan¡@¡@¡@¡@¡@¡@Kyoto Univ; RIKEN¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@Japan, Kyoto Univ; Japan, RIKEN
USA; USA; USA¡@¡@¡@¡@¡@ Mississippi State Univ; Clemson Univ; Western Digital¡@¡@¡@¡@¡@¡@USA, Mississippi State Univ; USA, Clemson Univ; USA, Western Digital

°£¤F³z¹L¸ê®Æ­åªR«á,¦A·f°t¨ä¥L¨ç¼Æ¥~,¦³¨S¦³¸û§Ö³tªº¸Ñ¨M¤èªk,ÁÂÁÂ!

°¶ÔÐ

¦^´_ 2# Hsieh

ÁÂÁ Hsieh ª©¥D,¸Ñ¨MÅo!

Hsieh

1. Function MyJoin(str1$, str2$, dot1$, dot2$, k%) As String
   
2. ar = Split(str1, dot1)
   
3. ay = Split(str2, dot1)
   
4. ReDim ary(UBound(ar) + 1)
   
5. For i = 0 To UBound(ar)
   
6.    ary(i) = ar(i) & dot2 & ay(i)
   
7. Next
   
8. If k - 1 > UBound(ary) Then MyJoin = "" Else MyJoin = ary(k - 1)
   
9. End Function

½Æ»s¥N½X

990825.rar (9.36 KB)

¤U¸ü¦¸¼Æ: 6

2010-8-25 23:19