- 【Civilization】Freeciv 7ターン目【フリー】
100 ：名無しさん＠お腹いっぱい。[sage]：2013/02/09(土) 10:18:12.43 ID:UjEy/Gk2 - FSAのソース見たんですが、
>score(j).turn = Split(stBuffer, " ")(1)
>score(j).tag = Split(stBuffer, " ")(2)
>score(j).pnumber = Split(stBuffer, " ")(3)
>score(j).value = Split(stBuffer, " ")(4)
これだと一行毎に４回以上の分割処理が入るんで、
> Dim tmpArry = Split(stBuffer," ")
> …
>score(j).turn = tmpArry(1)
>score(j).tag = tmpArry(2)
>score(j).pnumber = tmpArry(3)
>score(j).value = tmpArry(4)
と、一旦配列を受け取る感じでどうでしょうか？
ついでに
> If stBuffer.IndexOf("addplayer") >= 0 Then
この部分も
> If tmpArry(0) == "addplayer"
こんな感じで行けませんか？
あと、配列は、
> playerNum = playerArry.length
で配列の大きさがわかると思いますよ。
VBは使った事無いので文法間違ってるかもしれませんが。
|