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

softsadwind

·Q§â units.rar (1.61 KB)

¥Ø¼ÐÀÉ
¤U¸ü¦¸¼Æ: 6

2011-8-9 10:56

Âন ªí®æ.rar (1.97 KB)

¥ØªºÀÉ
¤U¸ü¦¸¼Æ: 9

2011-8-9 10:56

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

Hsieh

¦^´_ 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. 
   
7. Open fd & "units.txt" For Input As #1
   
8. Range("A6:N65536") = ""
   
9. r = 6
   
10. Do While Not EOF(1)
    
11.   Input #1, Mystr
    
12.   a = Split(Mystr, "}")
    
13.   For i = 0 To UBound(a)
    
14.       b = Split(a(i), """;")
    
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 14
    
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

softsadwind

ÁÂÁªO¥D¡A§Ú·Q¤@¤U¡A¦A§â§Úªº¤èªk §Ë¤W¨Ó¡A

StanleyVic

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

softsadwind

²Ä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¨Ò:>

softsadwind

«á¨Ó·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. 
   
7. Open fd & "units.txt" For Input As #1
   
8. Range("A6:W65536") = ""
   
9. r = 6
   
10. Do While Not EOF(1)
    
11.   Input #1, Mystr
    
12.   a = Split(Mystr, ";}")
    
13.   For i = 0 To UBound(a)
    
14.       b = Split(a(i), ";")
    
15.       
    
16.       For j = 0 To UBound(b)
    
17.          ReDim Preserve Ar(s)
    
18.          If b(j) <> """" And InStr(b(j), """") > 0 Then Ar(s) = Split(b(j), """")(1)
    
19.          s = s + 1
    
20.       Next
    
21.       For j = 1 To UBound(Ar) - 1
    
22.           d(Ar(j)) = Ar(j + 1)
    
23.       Next
    
24.       Cells(r, 1) = d("name")
    
25.       For k = 2 To 22
    
26.          Cells(r, k) = d(Cells(5, k).Text)
    
27.       Next
    
28.       r = r + 1: Erase Ar: s = 0: d.RemoveAll
    
29.   Next
    
30. Loop
    
31. Close #1
    
32. 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)

¤U¸ü¦¸¼Æ: 6

2011-8-12 14:37

units.rar (107.36 KB)

¤U¸ü¦¸¼Æ: 10

2011-8-12 14:37

GBKEE

¦^´_ 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

softsadwind

·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

softsadwind

¦^´_ 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

softsadwind

¦^´_ 2# Hsieh


    ª©¥D·PÁ§AªºÀ°¦£¡A²Ä¤@¦¸µo©«¡A¤£ª¾¹D­nª½±µ«ö¤å³¹¤U¤èªº¦^¶K¡A¸É¤W³o¤@½g¡AÁÂÁ§AªºÀ°¦£¡A³o­Ó°ÝÃD¸Ñ¨M¤F¡C