czjt1234

rem 另存为 ANSI 编码 的 bat
' & cls & CScript.exe /nologo /e:vbscript "%~f0" >sour.csv & pause & exit

Option Explicit
Dim oFSO, oDOMDocument, s

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oDOMDocument = CreateObject("Msxml2.DOMDocument.6.0")
wsh.Echo "ClassId	skillname	skillId	skillLvl	getLevel	levelUpSp	Item ID	item_count"
For Each s In oFSO.GetFolder(oFSO.GetAbsolutePathName(".")).Files
    If LCase(oFSO.GetExtensionName(s)) = "xml" Then Call k(s.Path)
Next

Sub k(ByVal s)
    Dim i, j, m, t
    oDOMDocument.Load s
    For Each i In oDOMDocument.SelectNodes("//skillTree")
        For Each j In i.SelectNodes("skill")
            t = i.getAttribute("classId") & vbTab
            t = t & j.getAttribute("skillName") & vbTab _
                  & j.getAttribute("skillId")   & vbTab _
                  & j.getAttribute("skillLvl")  & vbTab _
                  & j.getAttribute("getLevel")  & vbTab _
                  & j.getAttribute("levelUpSp") & vbTab
            For Each m In j.SelectNodes("item")
                t = t & m.getAttribute("id")    & vbTab _
                      & m.getAttribute("count") & vbTab
            Next
            wsh.Echo Left(t, Len(t) - 1)
        Next
    Next
End Sub
复制代码