- ©«¤l
- 129
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 178
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-12-28
- ³Ì«áµn¿ý
- 2018-11-10
|
«á¨Ó·Q·Q ÁÙ¬Opo¤@¤U§Úªº·Qªk...¬Ý¬Ý¦³¨S¦³¤j¤j¦³§ó¦nªº·Qªk- Sub Ex()
- Dim Mystr$, Ar()
- Set d = CreateObject("Scripting.Dictionary")
- fd = "C:\"
- [B5:W5] = Array("masterymax", "sizeX", "sizeY", "cash", "coinYield", "buyable", "market", "subtype", "code", "iconurl", "type", "plantXp", "name", "requiredLevel", "cost", "growTime", "action", "license", "limitedEnd", "", "", "")
- Open fd & "units.txt" For Input As #1
- Range("A6:W65536") = ""
- r = 6
- Do While Not EOF(1)
- Input #1, Mystr
- a = Split(Mystr, ";}")
- For i = 0 To UBound(a)
- b = Split(a(i), ";")
-
- For j = 0 To UBound(b)
- ReDim Preserve Ar(s)
- If b(j) <> """" And InStr(b(j), """") > 0 Then Ar(s) = Split(b(j), """")(1)
- s = s + 1
- Next
- For j = 1 To UBound(Ar) - 1
- d(Ar(j)) = Ar(j + 1)
- Next
- Cells(r, 1) = d("name")
- For k = 2 To 22
- Cells(r, k) = d(Cells(5, k).Text)
- Next
- r = r + 1: Erase Ar: s = 0: d.RemoveAll
- Next
- Loop
- Close #1
- 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)
|
|