- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 6# softsadwind
格式如下
{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";}
但其中有許多筆格式不符
- Sub Ex()
- Dim FS As Object, d As Object, i%, ii%, Ar, Ar1, Ar2
- Dim f
- Set FS = CreateObject("Scripting.FileSystemObject").OpenTextFile(ThisWorkbook.Path & "\units.txt", 1, -2) 'TextStream 物件->加快對檔案的順序存取。
- Ar = Split(Replace(FS.READALL, Chr(10), ""), "}") '讀取資料存入陣列 Ar
- FS.Close ' 將檔案關閉。
- [a5:iv65536] = ""
- On Error GoTo aa
- r = 6
- For i = 0 To UBound(Ar)
- Set d = CreateObject("Scripting.Dictionary")
- 'If InStr(Ar(i), "{") Then
- Ar1 = Split(Ar(i), "{")
- If i = 0 Then
- d("Name") = Split(Ar1(1), """")(1)
- Ar2 = Split(Ar1(2), """")
- Else
- d("Name") = Split(Ar1(0), """")(1)
- Ar2 = Split(Ar1(1), """")
- End If
- For ii = 1 To UBound(Ar2) - 4 Step 4
- d(Ar2(ii)) = Ar2(ii + 2)
- Next
- For Each key In d
- If key = "Name" Then
- Cells(r, 1) = d(key)
- Else
- f = Application.Match(key, Rows(5), 0)
- If IsError(f) Then
- f = Range("iv5").End(xlToLeft).Column + 1
- Cells(5, f) = key
- End If
- Cells(r, f) = d(key)
- End If
- Next
- r = r + 1
- 'End If
- Next
- Set FS = Nothing
- Set d = Nothing
- Exit Sub
- aa:
- MsgBox "陣列 Ar 第" & i & "筆資料排列異常" & Ar(i)
- Resume Next
- End Sub
|
|
發表於 2011-8-12 18:07
| 