- 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
复制代码
|