批处理之家 - Powered by Discuz! Board

<item id="3" type="Weapon" name="宽剑">
<set name="icon" val="icon.weapon_broad_sword_i00" />
<set name="default_action" val="equip" />
<set name="weapon_type" val="sword" />
<set name="bodypart" val="rhand" />
<set name="random_damage" val="10" />
<set name="attack_range" val="40" />
<set name="damage_range" val="0;0;40;120" />
<set name="immediate_effect" val="1" />
<set name="material" val="steel" />
<set name="weight" val="1590" />
<set name="price" val="9600" />
<set name="soulshots" val="1" />
<set name="spiritshots" val="1" />
<for>
<set order="0x08" stat="pAtk" val="11" />
<set order="0x08" stat="mAtk" val="9" />
<set order="0x08" stat="rCrit" val="8" />
<set order="0x08" stat="pAtkSpd" val="379" />
</for>
</item>
<item id="4" type="Weapon" name="木棒">
<set name="icon" val="icon.weapon_club_i00" />
<set name="default_action" val="equip" />
<set name="weapon_type" val="blunt" />
<set name="bodypart" val="rhand" />
<set name="random_damage" val="20" />
<set name="attack_range" val="40" />
<set name="damage_range" val="0;0;40;120" />
<set name="immediate_effect" val="1" />
<set name="material" val="wood" />
<set name="weight" val="1870" />
<set name="price" val="590" />
<set name="soulshots" val="1" />
<set name="spiritshots" val="1" />
<for>
<set order="0x08" stat="pAtk" val="8" />
<set order="0x08" stat="mAtk" val="6" />
<set order="0x08" stat="rCrit" val="4" />
<add order="0x10" stat="accCombat" val="4.75" />
<set order="0x08" stat="pAtkSpd" val="379" />
</for>
</item>
</item>
<item id="1201" type="EtcItem" name="信仰凭证">
<set name="icon" val="icon.accessary_earing_of_wisdom_i00" />
<set name="immediate_effect" val="1" />
<set name="material" val="steel" />
<set name="is_tradable" val="false" />
<set name="is_dropable" val="false" />
<set name="is_sellable" val="false" />
<set name="is_depositable" val="false" />
<set name="is_stackable" val="true" />
<set name="is_questitem" val="true" />
</item>

复制代码

id name icon default_action weapon_type bodypart random_damage attack_range damage_range immediate_effect material weight price soulshots spiritshots pAtk mAtk rCrit pAtkSpd accCombat type is_tradable is_dropable is_sellable is_depositable is_stackable is_questitem
3 宽剑 icon.weapon_broad_sword_i00 equip sword rhand 10 40 0;0;40;120 1 steel 1590 9600 1 1 11 9 8 379
4 木棒 icon.weapon_club_i00 equip blunt rhand 20 40 0;0;40;120 1 wood 1870 590 1 1 8 6 4 4.75
1201 信仰凭证 icon.accessary_earing_of_wisdom_i00 1 steel EtcItem FALSE FALSE FALSE FALSE FALSE FALSE

复制代码

rem 另存为 ANSI 编码的 bat
' & cls & %windir%\SysWOW64\CScript.exe /nologo /e:vbscript "%~f0" & pause & exit
Option Explicit
Dim oWshShell, oFSO, oTextStream, oDOMDocument, oXMLDOMElement, oConnection, oRecordset, s, t
Const PATH = "C:\Users\Administrator\Desktop\items"
Const OUT = "C:\Users\Administrator\Desktop\items\输出.txt"
wsh.Echo Now()
Set oWshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(OUT, 2, True)
Set oDOMDocument = CreateObject("Msxml2.DOMDocument")
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")
s = oFSO.BuildPath(PATH, "temp.mdb")
If oFSO.FileExists(s) Then oFSO.DeleteFile s, True
s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & s
CreateObject("ADOX.Catalog").Create s
oConnection.Open s
oConnection.Execute "CREATE TABLE list(id INT PRIMARY KEY, name VARCHAR)"
t = "|"
For Each s In oFSO.GetFolder(PATH).Files
If LCase(oFSO.GetExtensionName(s)) = "xml" Then Call k(s.Path)
Next
oRecordset.CursorLocation = 3 'adUseClient
oRecordset.Open "SELECT * FROM list ORDER BY id ASC", oConnection
s = ""
For t = 0 To oRecordset.Fields.Count - 1
s = s & oRecordset(t).Name & vbTab
Next
s = Left(s, Len(s) - 1) & vbCrLf
Do Until oRecordset.EOF = True
For t = 0 To oRecordset.Fields.Count - 1
s = s & oRecordset(t).Value & vbTab
Next
s = Left(s, Len(s) - 1) & vbCrLf
If Len(s) >= 2048 Then
oTextStream.Write s
s = ""
End If
oRecordset.MoveNext()
Loop
If s <> "" Then oTextStream.Write s
oRecordset.Close()
oConnection.Close()
oTextStream.Close()
s = oFSO.BuildPath(PATH, "temp.mdb")
If oFSO.FileExists(s) Then oFSO.DeleteFile s, True
wsh.Echo Now()
wsh.Echo "ok"
Sub k(ByVal s)
Dim i, j, m
oDOMDocument.Load s
Set oXMLDOMElement = oDOMDocument.documentElement
For Each i In oXMLDOMElement.SelectNodes("item[@id and @name]")
oConnection.Execute "INSERT INTO list(id, name) VALUES(" & i.getAttribute("id") & ", '" & i.getAttribute("name") & "')"
m = "UPDATE list SET "
For Each j In i.SelectNodes("set[@name and @val]")
If InStr(1, t, "|" & j.getAttribute("name") & "|", vbTextCompare) = 0 Then
oConnection.Execute "ALTER TABLE list ADD COLUMN [" & j.getAttribute("name") & "] VARCHAR"
t = t & j.getAttribute("name") & "|"
End If
If InStr(1, m, "[" & j.getAttribute("name") & "]", vbTextCompare) = 0 Then '处理异常文件 id = 20994
m = m & "[" & j.getAttribute("name") & "] = """ & j.getAttribute("val") & """, "
End If
Next
oConnection.Execute Left(m, Len(m) - 2) & " WHERE id = " & i.getAttribute("id")
Next
End Sub

复制代码

<set order="0x08" stat="pAtk" val="207" />
<set order="0x08" stat="mAtk" val="157" />
<set order="0x08" stat="rCrit" val="4" />
<add order="0x10" stat="accCombat" val="4.75" />
<set order="0x08" stat="pAtkSpd" val="325" />
<enchant val="0" order="0x0C" stat="pAtk" />
<enchant val="0" order="0x0C" stat="mAtk" />

复制代码

rem 另存为 ANSI 编码的 bat
' & cls & %windir%\SysWOW64\CScript.exe /nologo /e:vbscript "%~f0" & pause & exit
Option Explicit
Dim oWshShell, oFSO, oTextStream, oDOMDocument, oXMLDOMElement, oConnection, oRecordset, s, t
Const PATH = "C:\Users\Administrator\Desktop\items"
Const OUT = "C:\Users\Administrator\Desktop\items\输出.txt"
wsh.Echo Now()
Set oWshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(OUT, 2, True)
Set oDOMDocument = CreateObject("Msxml2.DOMDocument")
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")
s = oFSO.BuildPath(PATH, "temp.mdb")
If oFSO.FileExists(s) Then oFSO.DeleteFile s, True
s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & s
CreateObject("ADOX.Catalog").Create s
oConnection.Open s
oConnection.Execute "CREATE TABLE list(id INT PRIMARY KEY, name VARCHAR)"
t = "|"
For Each s In oFSO.GetFolder(PATH).Files
If LCase(oFSO.GetExtensionName(s)) = "xml" Then Call k(s.Path)
Next
oRecordset.CursorLocation = 3 'adUseClient
oRecordset.Open "SELECT * FROM list ORDER BY id ASC", oConnection
s = ""
For t = 0 To oRecordset.Fields.Count - 1
s = s & oRecordset(t).Name & vbTab
Next
s = Left(s, Len(s) - 1) & vbCrLf
Do Until oRecordset.EOF = True
For t = 0 To oRecordset.Fields.Count - 1
s = s & oRecordset(t).Value & vbTab
Next
s = Left(s, Len(s) - 1) & vbCrLf
If Len(s) >= 2048 Then
oTextStream.Write s
s = ""
End If
oRecordset.MoveNext()
Loop
If s <> "" Then oTextStream.Write s
oRecordset.Close()
oConnection.Close()
oTextStream.Close()
s = oFSO.BuildPath(PATH, "temp.mdb")
If oFSO.FileExists(s) Then oFSO.DeleteFile s, True
wsh.Echo Now()
wsh.Echo "ok"
Sub k(ByVal s)
Dim i, j, m
oDOMDocument.Load s
Set oXMLDOMElement = oDOMDocument.documentElement
For Each i In oXMLDOMElement.SelectNodes("item[@id and @name]")
oConnection.Execute "INSERT INTO list(id, name) VALUES(" & i.getAttribute("id") & ", '" & i.getAttribute("name") & "')"
m = "UPDATE list SET "
For Each j In i.SelectNodes(".//*[@val]")
If Not IsNull(j.getAttribute("name")) Then
If InStr(1, t, "|" & j.getAttribute("name") & "|", vbTextCompare) = 0 Then
oConnection.Execute "ALTER TABLE list ADD COLUMN [" & j.getAttribute("name") & "] VARCHAR"
t = t & j.getAttribute("name") & "|"
End If
If InStr(1, m, "[" & j.getAttribute("name") & "]", vbTextCompare) = 0 Then '处理异常文件 id = 20994
m = m & "[" & j.getAttribute("name") & "] = """ & j.getAttribute("val") & """, "
End If
End If
If Not IsNull(j.getAttribute("stat")) Then
If InStr(1, t, "|" & j.getAttribute("stat") & "|", vbTextCompare) = 0 Then
oConnection.Execute "ALTER TABLE list ADD COLUMN [" & j.getAttribute("stat") & "] VARCHAR"
t = t & j.getAttribute("stat") & "|"
End If
If InStr(1, m, "[" & j.getAttribute("stat") & "]", vbTextCompare) = 0 Then
m = m & "[" & j.getAttribute("stat") & "] = """ & j.getAttribute("val") & """, "
End If
End If
Next
oConnection.Execute Left(m, Len(m) - 2) & " WHERE id = " & i.getAttribute("id")
Next
End Sub

复制代码

@echo off
rem 批处理保存为utf-8编码格式
chcp 65001 >nul
cd /d "%~dp0"
for %%i in (*.xml) do (
for /f usebacktokens^=1-6delims^=^" %%a in ("%%i") do (
if "%%a" equ " <set name=" (
set #"%%b"=,
) else if "%%c" equ " stat=" (
set #"%%d"=,
) else if "%%e" equ " stat=" (
set #"%%f"=,
)
)
)
(
set /p=id,type,name<nul
for /f "tokens=1 delims=#=" %%a in ('set #') do set /p=,%%~a<nul
echo=
)>out.csv
for %%i in (*.xml) do (
set /a n+=1
call echo 正在处理第 [%%n%%] 个
(for /f usebacktokens^=1-6delims^=^" %%a in ("%%i") do (
if "%%a" equ " <item id=" (
setlocal enabledelayedexpansion
set str=%%b,%%d,%%f
) else if "%%a" equ " <set name=" (
set #"%%b"=%%d
) else if "%%c" equ " stat=" (
set #"%%d"=%%f
) else if "%%e" equ " stat=" (
set #"%%f"=%%b
) else if "%%a" equ " </item>" (
for /f "tokens=2 delims=#=" %%x in ('set #') do (
if "%%x" equ "," (
set str=!str!,
) else (
set str=!str!,"%%x"
)
)
echo=!str!
endlocal
)
))>>out.csv
)
pause

复制代码

@echo off &setlocal enabledelayedexpansion
if "%~1"=="" exit/b
chcp 65001>nul
set "tLine=id type name"
(for /f tokens^=1-6^ delims^=^"^= %%1 in (' findstr "=" "%~1" ') do for /f "tokens=1-2 delims= < " %%a in ("%%~1") do (
if /i "%%~b"=="id" (
if defined vLine (echo,!vLine:~1!&set "vLine=")
set "vLine=!vLine! %%2 %%4 %%6"
) else if /i "%%~b"=="name" (
if not defined _%%2 (set "tLine=!tLine! %%2" &set "_%%2=1")
set "vLine=!vLine! %%4"
) else if /i "%%~b"=="order" (
if not defined _%%4 (set "tLine=!tLine! %%4" &set "_%%4=1")
set "vLine=!vLine! %%6"
) else if /i "%%~b"=="val" (
if not defined _%%6 (set "tLine=!tLine! %%6" &set "_%%6=1")
set "vLine=!vLine! %%2"
)
))>"%~1.v"
if defined vLine (echo,!vLine:~1!)>>"%~1.v"
echo,!tLine!>"%~1.new" & type "%~1.v">>"%~1.new" & del "%~1.v"
endlocal&exit/b

复制代码