- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 91
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-4-19
              
|
回復 1# softsadwind
這樣寫入工作表後，先檢查看看對不對- Sub Ex()
- Dim Mystr$, Ar()
- Set d = CreateObject("Scripting.Dictionary")
- fd = "C:\Documents and Settings\m\My Documents\"
- [B5:N5] = Array("masterymax", "sizeX", "sizeY", "coinYield", "buyable", "code", "iconurl", "type", "name", "requiredLevel", "cost", "growTime", "action")
- Open fd & "units.txt" For Input As #1
- Range("A6:N65536") = ""
- 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 14
- Cells(r, k) = d(Cells(5, k).Text)
- Next
- r = r + 1: Erase Ar: s = 0: d.RemoveAll
- Next
- Loop
- Close #1
- End Sub
|
|
發表於 2011-8-9 13:30
| 