ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

(¤w¸Ñ¨M)³Â·ÐÀ°¦£

(¤w¸Ñ¨M)³Â·ÐÀ°¦£

¥»©«³Ì«á¥Ñ softsadwind ©ó 2011-8-12 23:59 ½s¿è

·Q§â units.rar (1.61 KB) Âন ªí®æ.rar (1.97 KB)
unit.txt¤º¦³5863­Ó¤j°}¦C¡A©ÎªÌ§ó¦h¡C
®æ¦¡¦p¤U
{s:11:"cat_persian";a:13:{s:10:"masterymax";s:2:"10";s:5:"sizeY";s:1:"1";s:5:"sizeX";s:1:"1";s:9:"coinYield";s:2:"90";s:7:"buyable";s:5:"false";s:4:"code";s:2:"oq";s:7:"iconurl";s:42:"assets/animals/animal_cat_persian_icon.png";s:4:"type";s:6:"animal";s:4:"name";s:11:"cat_persian";s:13:"requiredLevel";s:1:"1";s:4:"cost";s:5:"50000";s:8:"growTime";s:1:"3";s:6:"action";s:7:"harvest";}
s:11¥Nªí¦r¼Æ¡A¤£§t""¡Aa:13¦n¹³¥Nªí±µ¤U¨Óªº°}¦C¦³´X­Ó¡A±qmastermax ¨ìaction¦@13­Ó

±qunit.txt¤¤¨ú±o¸ê®Æ¦Cªí¡A¨Ì§Ç±Æ¦C¡C¥i¥H¿ï¾Ü"type"¨Ã¤ÏĶ¦¨animal_info.txt¡A®æ¦¡¦P¤@¶}©lªº®æ¦¡¡C                                                                                                       
                 masterymax        sizeX        sizeY        coinYield        buyable        code        iconurl                                                          type        name        requiredLevel        cost        growTime        action
cat_persian                10                  1        1        90                 flase                  oq        assets/animals/animal_cat_persian_icon.png        animal        cat_persian        1                 50000        3        harvest
ÁٽЭþ¬°¤j¤j¨ó§U¡A·PÁ¡C
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# softsadwind
³o¼Ë¼g¤J¤u§@ªí«á¡A¥ýÀˬd¬Ý¬Ý¹ï¤£¹ï
  1. Sub Ex()
  2. Dim Mystr$, Ar()
  3. Set d = CreateObject("Scripting.Dictionary")
  4. fd = "C:\Documents and Settings\m\My Documents\"
  5. [B5:N5] = Array("masterymax", "sizeX", "sizeY", "coinYield", "buyable", "code", "iconurl", "type", "name", "requiredLevel", "cost", "growTime", "action")

  6. Open fd & "units.txt" For Input As #1
  7. Range("A6:N65536") = ""
  8. r = 6
  9. Do While Not EOF(1)
  10.   Input #1, Mystr
  11.   a = Split(Mystr, "}")
  12.   For i = 0 To UBound(a)
  13.       b = Split(a(i), """;")
  14.       For j = 0 To UBound(b)
  15.          ReDim Preserve Ar(s)
  16.          If b(j) <> "" And InStr(b(j), """") > 0 Then Ar(s) = Split(b(j), """")(1)
  17.          s = s + 1
  18.       Next
  19.       For j = 1 To UBound(Ar) - 1
  20.           d(Ar(j)) = Ar(j + 1)
  21.       Next
  22.       Cells(r, 1) = d("name")
  23.       For k = 2 To 14
  24.          Cells(r, k) = d(Cells(5, k).Text)
  25.       Next
  26.       r = r + 1: Erase Ar: s = 0: d.RemoveAll
  27.   Next
  28. Loop
  29. Close #1
  30. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁªO¥D¡A§Ú·Q¤@¤U¡A¦A§â§Úªº¤èªk §Ë¤W¨Ó¡A
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¯u¬O°ª¤â,§Ú¤@¬Ý¨£´£°ÝªÌªºTxt ¸ê®Æ..§Ú´N¤v¸g·w­Ë.
NeverTry , NeverNo !

TOP

²Ä12¦æ  a = Split(Mystr, "}")
§ï¦¨     a = Split(Mystr, """}")
¤£µM¥X²{°}¦C¯Á¤Þ¶W¹L½d³ò

³o­ÓÀÉ®×¥»¨­¤£³W«h©Ê¤Ó¦h¤F...·PÁªO¥DÀ°¦£...¤p§ÌÁÙ¬O©ñ±ó¦n¤F
¤£¹L¾Ç¤F¤£¤ÖªF¦è...·í¦¨¬O¤@­ÓÀu¨}½d¨Ò:>
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

«á¨Ó·Q·Q ÁÙ¬Opo¤@¤U§Úªº·Qªk...¬Ý¬Ý¦³¨S¦³¤j¤j¦³§ó¦nªº·Qªk
  1. Sub Ex()
  2. Dim Mystr$, Ar()
  3. Set d = CreateObject("Scripting.Dictionary")
  4. fd = "C:\"
  5. [B5:W5] = Array("masterymax", "sizeX", "sizeY", "cash", "coinYield", "buyable", "market", "subtype", "code", "iconurl", "type", "plantXp", "name", "requiredLevel", "cost", "growTime", "action", "license", "limitedEnd", "", "", "")

  6. Open fd & "units.txt" For Input As #1
  7. Range("A6:W65536") = ""
  8. r = 6
  9. Do While Not EOF(1)
  10.   Input #1, Mystr
  11.   a = Split(Mystr, ";}")
  12.   For i = 0 To UBound(a)
  13.       b = Split(a(i), ";")
  14.       
  15.       For j = 0 To UBound(b)
  16.          ReDim Preserve Ar(s)
  17.          If b(j) <> """" And InStr(b(j), """") > 0 Then Ar(s) = Split(b(j), """")(1)
  18.          s = s + 1
  19.       Next
  20.       For j = 1 To UBound(Ar) - 1
  21.           d(Ar(j)) = Ar(j + 1)
  22.       Next
  23.       Cells(r, 1) = d("name")
  24.       For k = 2 To 22
  25.          Cells(r, k) = d(Cells(5, k).Text)
  26.       Next
  27.       r = r + 1: Erase Ar: s = 0: d.RemoveAll
  28.   Next
  29. Loop
  30. Close #1
  31. End Sub
½Æ»s¥N½X
fd­×§ï©ñ¦bc: ¦]¬°¨C­Ó¤Hªº±b¸¹¤£¤@¼Ë..
a = Split(Mystr, ";}") ­×§ï¦h¤@­Ó;¡A¤£µM·|¥X²{¶W¥X½d³ò
code¨º¤@Äæ ¦³¥i¯à¥Î "," ©ÎªÌ "0"·í¥N½X¡A
«á¨Óµo²{ ¨ä¹ê¥LªºB5:W5ªº¦WºÙ¤£¨£±o©Ò¦³¶µ¥Ø³£·|¦³..ªþ¤WÀÉ®×
ÁöµM»¡©ñ±ó¤F ¤£¹L³o´X¤ÑÁÙ¬O«ùÄò¦b¬ã¨s:P
ªí®æ.rar (289.51 KB) units.rar (107.36 KB)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 6# softsadwind
®æ¦¡¦p¤U
{s:11:"cat_persian";a:13:{s:10:"masterymax";s:2:"10";s:5:"sizeY";s:1:"1";s:5:"sizeX";s:1:"1";s:9:"coinYield";s:2:"90";s:7:"buyable";s:5:"false";s:4:"code";s:2:"oq";s:7:"iconurl";s:42:"assets/animals/animal_cat_persian_icon.png";s:4:"type";s:6:"animal";s:4:"name";s:11:"cat_persian";s:13:"requiredLevel";s:1:"1";s:4:"cost";s:5:"50000";s:8:"growTime";s:1:"3";s:6:"action";s:7:"harvest";}

¦ý¨ä¤¤¦³³\¦hµ§®æ¦¡¤£²Å
  1. Sub Ex()
  2.     Dim FS As Object, d As Object, i%, ii%, Ar, Ar1, Ar2
  3.     Dim f
  4.     Set FS = CreateObject("Scripting.FileSystemObject").OpenTextFile(ThisWorkbook.Path & "\units.txt", 1, -2) 'TextStream ª«¥ó->¥[§Ö¹ïÀɮתº¶¶§Ç¦s¨ú¡C
  5.     Ar = Split(Replace(FS.READALL, Chr(10), ""), "}")  'Ū¨ú¸ê®Æ¦s¤J°}¦C Ar
  6.     FS.Close                             ' ±NÀÉ®×Ãö³¬¡C
  7.     [a5:iv65536] = ""
  8.     On Error GoTo aa
  9.     r = 6
  10.     For i = 0 To UBound(Ar)
  11.         Set d = CreateObject("Scripting.Dictionary")
  12.         'If InStr(Ar(i), "{") Then
  13.             Ar1 = Split(Ar(i), "{")
  14.             If i = 0 Then
  15.                 d("Name") = Split(Ar1(1), """")(1)
  16.                 Ar2 = Split(Ar1(2), """")
  17.             Else
  18.                 d("Name") = Split(Ar1(0), """")(1)
  19.                 Ar2 = Split(Ar1(1), """")
  20.             End If
  21.             For ii = 1 To UBound(Ar2) - 4 Step 4
  22.                 d(Ar2(ii)) = Ar2(ii + 2)
  23.             Next
  24.             For Each key In d
  25.                 If key = "Name" Then
  26.                     Cells(r, 1) = d(key)
  27.                 Else
  28.                     f = Application.Match(key, Rows(5), 0)
  29.                     If IsError(f) Then
  30.                         f = Range("iv5").End(xlToLeft).Column + 1
  31.                         Cells(5, f) = key
  32.                     End If
  33.                     Cells(r, f) = d(key)
  34.                 End If
  35.             Next
  36.             r = r + 1
  37.         'End If
  38.     Next
  39.     Set FS = Nothing
  40.     Set d = Nothing
  41.     Exit Sub
  42. aa:
  43.     MsgBox "°}¦C Ar ²Ä" & i & "µ§¸ê®Æ±Æ¦C²§±`" & Ar(i)
  44.     Resume Next
  45. End Sub
½Æ»s¥N½X

TOP

·PÁÂ
µo²{¤@­Ó¦³½ìªº°ÝÃD¡A³o­Óµ{¦¡½X¥u­n¨â­ÓÀɮשñ¦b¤@°_´N¥i¥H°õ¦æ¡C
§Ú¸ÕµÛ§â¥L­Ì
©ñ¦bC->ok
©ñ¦bCªº¥Ø¿ý¤º ->ok
©ñ¦b®à­±ªº¥Ø¿ý¤º->ok
©ñ¦b®à­±  ->´N¥X²{ ¡y¿é¤J¤w¶W¹LÀÉ®×µ²§À¡z
¥H¤W¬OÃD¥~¸Ü¡C
ÁÙ¬O·PÁÂHsieh, GBKEEªºÀ°¦£¡A§Ú¦b¬ã¨s¬Ý¬Ý¡A¦A¦^õX¦^¨Ó¡C
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 7# GBKEE
  1.     Ar = Split(Replace(FS.READALL, Chr(10), ""), "}")  'Ū¨ú¸ê®Æ¦s¤J°}¦C Ar
½Æ»s¥N½X
§ï¦¨
  1.     Ar = Split(Replace(FS.READALL, Chr(10), ""), ";}")  'Ū¨ú¸ê®Æ¦s¤J°}¦C Ar
½Æ»s¥N½X
´N¤£·|¥X²{®æ¦¡¿ù»~

¤£¹L¤Sµo²{¦³ª««~ªº¥N½X¬O¥Î¨ì{©ÎªÌ}¡A¦]¦¹¤S¼vÅT¨ìµ{¦¡ªº§PÂ_
  1. Ar1 = Split(Ar(i), "{")
½Æ»s¥N½X
§ï¦¨
  1. Ar1 = Split(Ar(i), ":{")
½Æ»s¥N½X
©Ò¥H³Ì«áµ{¦¡Åܦ¨
  1. Sub Ex()
  2.     Dim FS As Object, d As Object, i%, ii%, Ar, Ar1, Ar2
  3.     Dim f
  4.     Set FS = CreateObject("Scripting.FileSystemObject").OpenTextFile(ThisWorkbook.Path & "\units.txt", 1, -2) 'TextStream ª«¥ó->¥[§Ö¹ïÀɮתº¶¶§Ç¦s¨ú¡C
  5.     Ar = Split(Replace(FS.READALL, Chr(10), ""), ";}")  'Ū¨ú¸ê®Æ¦s¤J°}¦C Ar
  6.     FS.Close                             ' ±NÀÉ®×Ãö³¬¡C
  7.     [a5:iv65536] = ""
  8.     On Error GoTo aa
  9.     r = 6
  10.     For i = 0 To UBound(Ar)
  11.         Set d = CreateObject("Scripting.Dictionary")
  12.         'If InStr(Ar(i), ":{") Then
  13.             Ar1 = Split(Ar(i), ":{")
  14.             If i = 0 Then
  15.                 d("Name") = Split(Ar1(1), """")(1)
  16.                 Ar2 = Split(Ar1(2), """")
  17.             Else
  18.                 d("Name") = Split(Ar1(0), """")(1)
  19.                 Ar2 = Split(Ar1(1), """")
  20.             End If
  21.             For ii = 1 To UBound(Ar2) - 4 Step 4
  22.                 d(Ar2(ii)) = Ar2(ii + 2)
  23.             Next
  24.             For Each key In d
  25.                 If key = "Name" Then
  26.                     Cells(r, 1) = d(key)
  27.                 Else
  28.                     f = Application.Match(key, Rows(5), 0)
  29.                     If IsError(f) Then
  30.                         f = Range("iv5").End(xlToLeft).Column + 1
  31.                         Cells(5, f) = key
  32.                     End If
  33.                     Cells(r, f) = d(key)
  34.                 End If
  35.             Next
  36.             r = r + 1
  37.         'End If
  38.     Next
  39.     Set FS = Nothing
  40.     Set d = Nothing
  41.     Exit Sub
  42. aa:
  43.     MsgBox "°}¦C Ar ²Ä" & i & "µ§¸ê®Æ±Æ¦C²§±`" & Ar(i)
  44.     Resume Next
  45. End Sub
½Æ»s¥N½X
³o¼Ë¤l­×¥¿¤§«á ¤@¯ë´N¬O³Ì«á¤@¦æ·|¥X°ÝÃD
¦AªÌ¦]¬°«á­±ªº¦r¦ê ³]­pªÌ¦ü¥G¤]¨S¦³·Ó«e­±ªº¹CÀ¸³W«h¨«
¥X²{Ãþ¦ü ¦WºÙ + iconurl
s:9:"Q34_Giver";a:1:{s:7:"iconurl";s:46:"assets/SocialMissions/SM_avatar_spahostess.png";}

©ÎªÌ¶È   code + iconurl
s:3:"Q34";a:1:{s:7:"iconurl";s:53:"assets/newsfeed/socialmissions_wishyouloveperfume.png";}
¦Ó¥B¨Ã¨S¦³©ú½T¼Ð¥Ü ¬O¦WºÙ©ÎªÌ¬Ocode¡A³o¼Ë¤l´N¨S¿ìªk¥Îµ{¦¡§PÂ_
©Ò¥H ­Ó¤H¬Oı±o³o­Ó°ÝÃD ¥i¥Hºâ¬Oµ²®×¤F  ¦]¬°«á­±¤@¨Ç°}¦Cºâ¬O¤ñ¸û¯S®í©ÊªºªF¦è ¬O¥i¥H©¿²¤¤£­p
¦A¦¸·PÁ ¨â¦ì¤j¤j¦a¹©¤OÀ°¦£¡A³o¦¸ªº°ÝÃD Åý§Ú¾Ç¨ì¤£ªF¦è:lol :lol
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 2# Hsieh


    ª©¥D·PÁ§AªºÀ°¦£¡A²Ä¤@¦¸µo©«¡A¤£ª¾¹D­nª½±µ«ö¤å³¹¤U¤èªº¦^¶K¡A¸É¤W³o¤@½g¡AÁÂÁ§AªºÀ°¦£¡A³o­Ó°ÝÃD¸Ñ¨M¤F¡C
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD