返信先: Super Console X （PRO）

[エンジン]

For i = 0 to UBound(arr)
If i < UBOUND(arrHead) +1 Then
wStr = wStr & vbTab & vbTab & “<” & arrHead(i) & “>”
wStr = wStr & arr(i)
wStr = wStr & “</” & arrHead(i) & “>”
wStr = wStr & vbNewLine
End If
Next
wStr = wStr & vbTab & “</game>”
WriteFile.WriteLine(wStr)
wStr = “”
End If
Loop
wStr = wStr & “</gamelist>”
WriteFile.WriteLine(wStr)
ReadFile.Close()
WriteFile.Close()
Set wShell = Nothing
Set FSO = Nothing