[文本处理] 【已解决】求助BAT代码中提取单个文本中几个关键词写到csv

		<skill skillName="Lucky" skillId="194" skillLvl="1" getLevel="1" autoGet="true" />
		<skill skillName="Wisdom" skillId="328" skillLvl="1" getLevel="76" levelUpSp="8300000" learnedByNpc="true" />
		<skill skillName="Divine Inspiration" skillId="1405" skillLvl="1" getLevel="52" learnedByNpc="true">
复制代码

find "skill skillName=" *.xml >1.txt
复制代码

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

@echo off&setlocal enabledelayedexpansion
for /f tokens^=1-12^delims^=^=^" %%0 in ('findstr "=" "res.txt"') do (
    if "%%2" == " classId" (set v1=%%3
    ) else (
        if "%%8" == " autoGet"  (echo.!v1!, %%1, %%3, %%5, %%7
        ) else (
            if "%%8" == " learnedByNpc"  (set v2=!v1!, %%1, %%3, %%5, %%7
            ) else (
                if "%%2" == " count" (echo !v2!, %%1, %%3
                ) else (
                    echo.!v1!, %%1, %%3, %%5, %%7, %%9
                        )
                    )
                )   
            )
)>>sour.csv
复制代码

楼主的几轮帖子把纯P的for/f切割器开出刃来了...

@echo off &setlocal enabledelayedexpansion
(for /f tokens^=1-10^ delims^=^	^=^<^" %%a in (' findstr "=" "1.xml" ') do (
	if /i "%%a"=="skillTree type" (set "v1=%%d")
	if /i "%%a"=="skill skillName" (
		if defined v (echo,)
		set "v=!v1!	%%b	%%d	%%f	%%h"
		if /i "%%j" neq "true" (set "v=!v!	%%j")
		set/p="!v!"<nul)
	if /i "%%a"=="item id" (echo,	%%b	%%d&set "v=")
))>"sour.csv"
endlocal&exit/b
复制代码

@echo off
set /a #ClassId=#skillname=#skillId=#skillLvl=#getLevel=#levelUpSp=#ID=#count=0
setlocal enabledelayedexpansion
for /f "delims=<>	" %%x in (1.log) do (
    for /f "tokens=1*" %%i in ("%%x") do (
        for %%a in (%%j) do (
            if defined x (
                set !x!=%%~a
                set x=
            ) else if defined #%%a (
                set x=%%a
            )
            if /i "%%a"=="/" (
                echo,!ClassId!	!skillname!	!skillId!	!skillLvl!	!getLevel!	!levelUpSp!	!ID!	!count!
                for %%y in (skillname skillId skillLvl getLevel levelUpSp ID count) do set %%y=
            )
        )
    )
)
pause
复制代码