麻辣家族討論版版 - Powered by Discuz! Board

標題: (已解決)麻煩幫忙 [打印本頁]

作者: softsadwind 時間: 2011-8-9 11:01 標題: (已解決)麻煩幫忙

本帖最後由 softsadwind 於 2011-8-12 23:59 編輯

想把[attach]7320[/attach]轉成[attach]7321[/attach]
unit.txt內有5863個大陣列，或者更多。
格式如下
{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代表字數，不含""，a:13好像代表接下來的陣列有幾個，從mastermax 到action共13個

從unit.txt中取得資料列表，依序排列。可以選擇"type"並反譯成animal_info.txt，格式同一開始的格式。
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
還請哪為大大協助，感謝。

作者: Hsieh 時間: 2011-8-9 13:30

回復 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

複製代碼

作者: softsadwind 時間: 2011-8-10 11:46

謝謝板主，我想一下，再把我的方法弄上來，

作者: StanleyVic 時間: 2011-8-10 11:53

真是高手,我一看見提問者的Txt 資料..我就己經暈倒.

作者: softsadwind 時間: 2011-8-11 13:08

第12行 a = Split(Mystr, "}")
改成 a = Split(Mystr, """}")
不然出現陣列索引超過範圍

這個檔案本身不規則性太多了...感謝板主幫忙...小弟還是放棄好了
不過學了不少東西...當成是一個優良範例:>

作者: softsadwind 時間: 2011-8-12 14:37

後來想想還是po一下我的想法...看看有沒有大大有更好的想法

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

複製代碼

fd修改放在c: 因為每個人的帳號不一樣..
a = Split(Mystr, ";}") 修改多一個;，不然會出現超出範圍
code那一欄有可能用 "," 或者 "0"當代碼，
後來發現其實他的B5:W5的名稱不見得所有項目都會有..附上檔案
雖然說放棄了不過這幾天還是持續在研究:P
[attach]7388[/attach][attach]7389[/attach]

作者: GBKEE 時間: 2011-8-12 18:07

回復 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

複製代碼

作者: softsadwind 時間: 2011-8-12 23:23

感謝
發現一個有趣的問題，這個程式碼只要兩個檔案放在一起就可以執行。
我試著把他們
放在C->ok
放在C的目錄內 ->ok
放在桌面的目錄內->ok
放在桌面 ->就出現『輸入已超過檔案結尾』
以上是題外話。
還是感謝Hsieh, GBKEE的幫忙，我在研究看看，再回饋回來。

作者: softsadwind 時間: 2011-8-12 23:55

回復 7# GBKEE

Ar = Split(Replace(FS.READALL, Chr(10), ""), "}") '讀取資料存入陣列 Ar

複製代碼

改成

Ar = Split(Replace(FS.READALL, Chr(10), ""), ";}") '讀取資料存入陣列 Ar

複製代碼

就不會出現格式錯誤

不過又發現有物品的代碼是用到{或者}，因此又影響到程式的判斷

Ar1 = Split(Ar(i), "{")

複製代碼

改成

Ar1 = Split(Ar(i), ":{")

複製代碼

所以最後程式變成

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

複製代碼

這樣子修正之後一般就是最後一行會出問題
再者因為後面的字串設計者似乎也沒有照前面的遊戲規則走
出現類似名稱 + 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";}
而且並沒有明確標示是名稱或者是code，這樣子就沒辦法用程式判斷
所以個人是覺得這個問題可以算是結案了因為後面一些陣列算是比較特殊性的東西是可以忽略不計
再次感謝兩位大大地鼎力幫忙，這次的問題讓我學到不東西:lol :lol

作者: softsadwind 時間: 2011-8-13 00:01

回復 2# Hsieh

版主感謝你的幫忙，第一次發帖，不知道要直接按文章下方的回貼，補上這一篇，謝謝你的幫忙，這個問題解決了。

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)