[文本处理] 求助批处理提取代码中的对应文本内容到新的文件

eulb

各位大佬，我想要将文本中的灯光参数复制出来，求教各位。
文本内容：
        <Light name="6" type="AreaLight" enabled="1" label="VRayLight001" layer="0">
                <Transform tx="-9.940223" ty="-2.93766" tz="0.0" sx="1.0" sy="1.0" sz="1.0" qx="-0.5" qy="0.5" qz="0.5" qw="0.5" qhex64="000000000000E0BF000000000000E03F000000000000E03F010000000000E03F"/>
                <Color usetemp="0" temperature="6500.0" R="1.0" G="1.0" B="1.0"/>
                <Intensity value="461.481518"/>
                <IntensityUnits value="Lumens"/>
                <InnerConeAngle value="22.0"/>
                <OuterConeAngle value="22.5"/>
                <Shape type="Sphere" width="5.713418" length="5.713418" LightType="Point"/>
                <tag value="Max.superclassof: light" />
                <tag value="Max.classof: VRayLight" />
                <tag value="Max.handle: 6" />
                <tag value="Max.isGroupHead: false" />
                <tag value="Max.isGroupMember: false" />
                <tag value="Max.parent.handle: 0" />
        </Light>
        <Light name="7" type="AreaLight" enabled="1" label="VRayLight002" layer="0">
                <Transform tx="-1.332195" ty="-1.77626" tz="0.0" sx="1.0" sy="1.0" sz="1.0" qx="-0.5" qy="0.5" qz="0.5" qw="0.5" qhex64="000000000000E0BF000000000000E03F000000000000E03F010000000000E03F"/>
                <Color usetemp="0" temperature="6500.0" R="1.0" G="1.0" B="1.0"/>
                <Intensity value="1103.490878"/>
                <IntensityUnits value="Lumens"/>
                <InnerConeAngle value="22.0"/>
                <OuterConeAngle value="22.5"/>
                <Shape type="Sphere" width="8.834931" length="8.834931" LightType="Point"/>
                <tag value="Max.superclassof: light" />
                <tag value="Max.classof: VRayLight" />
                <tag value="Max.handle: 7" />
                <tag value="Max.isGroupHead: false" />
                <tag value="Max.isGroupMember: false" />
                <tag value="Max.parent.handle: 0" />
        </Light>

文本中包含多段<Light name开头</Light>结束的参数，我想要每一段中的参数
tx -9.940223
ty -2.93766
tz 0.0
qx -0.5
qy 0.5
qz 0.5
R 1.0
G 1.0
B 1.0
Intensity 461.481518
width 5.713418
length 5.713418
LightType Point

eulb

非常感谢各位的帮忙。
我主要是用于UE4的外部文件导入，但是只能导入模型不能导入灯光，所以只能手动获取灯光参数再生成灯光。
UE4里面的文本分割只能分割一次，所以一开始觉得需要提取出来做成表格再导进去生成。
不过昨晚睡觉的时候想到了解决办法，刚刚实践了一下，算是成功了。
分割文本的时候，它只会把分割结果分成前后2个部分，我把每一次<Light name分割的后部分再分割，每一次结果都保存起来。
又因为每次只分割第一个关键词，所以前面分割的部分后面跟着的长串内容不会用到，除了占用空间外，倒是不影响我获取对应位置的参数。
总之还是很感谢各位的热心帮助。

hfxiang

回复 1# eulb

假设灯光文本为1.txt，并已保存为ANSI编码格式，下载gawk（http://bcn.bathome.net/tool/4.1.0/gawk.exe）后执行：

gawk "BEGIN{split(\"tx,ty,tz,qx,qy,qz,R,G,B,Intensity,width,length,LightType\",dat, \",\");for (i=1; i<=length(dat); i++)tA[dat[i]]}/\<Light name=/{print;while((getline)>0){if($0~/<\/Light>/){next};split($0,dat,\"[= \042]+\");for (i=1; i<=length(dat); i++)if(dat[i] in tA)print dat[i],dat[i+1]}}" 1.txt>2.txt
复制代码

2.txt即为你所需要的文档

newswan

输入文件a.txt 输出文件 b.txt  UTF8编码
powershell 比较简单

$reg = '^(name|tx|ty|tz|qx|qy|qz|R|G|B|Intensity|width|length|LightType)="(.*)"'
$f1 = Get-Content -Encoding UTF8 -Raw "a.txt"
$f2 = $f1 -replace '([^\s=]*="[^"]*")',"`n`$1`n" -split "`n" -match "="
$f2 -match $reg -replace '"' -replace "="," " | Out-File -Encoding UTF8 "b.txt"
复制代码

多提取了一个，name

qixiaobin0715

像这种情况，楼主应当把要处理的文本发上来一个到网盘：
1.复制文本片段，有时会与源文本产生差异。比如水平制表符会变成4个空格。
2.文本格式可能会有差异，一般来说cmd默认处理ANSI编码的文本，如果是其它格式还需要特殊手段。

77七

@echo off
setlocal enabledelayedexpansion
(for /f "delims=" %%a in ('type "1.txt"') do (
	for %%b in (%%a) do (
		if not defined str (
			set "str=%%b"
		) else (
			set "#!str!=%%b"
			if "%%b" equ "value" (
				set "str=!str:~1! %%b"
			) else (
				set "str=%%b"
			)
		)
	)
	if defined #LightType (
		for %%c in (tx ty tz qx qy qz R G B Intensity width length LightType) do (
			for /f tokens^=1^-2delims^=^"^=^# %%d in ('set #%%c ^|findstr /v "type IntensityUnits"') do (
				echo %%d %%e
			)
		)
		set #LightType=
	)
))>2.txt
endlocal
pause
复制代码

效率过低，仅供参考。

czjt1234

rem 另存为 ANSI 编码
' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & pause & exit

Dim oWshShell, oFSO, s, oStream, oRegExp

Const file    = "1.txt"    '原文件。支持文件拖放，支持文件名作为命令行参数
Const charset = "GBK"      '文件编码。支持Unicode和UTF-8

Set oWshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
s = oFSO.GetParentFolderName(WScript.ScriptFullname)
oWshShell.CurrentDirectory = s

Set oStream = CreateObject("ADODB.Stream")
oStream.Type    = 2    'adTypeText
oStream.Mode    = 3    'adModeReadWrite
oStream.Charset = charset

Set oRegExp = New RegExp
oRegExp.Global     = True
oRegExp.MultiLine  = True
oRegExp.IgnoreCase = True
oRegExp.Pattern    = "<Light\b[\s\S]+?"                       & _
                     "\b(tx)=""(.+?)""[\s\S]+?"               & _
                     "\b(ty)=""(.+?)""[\s\S]+?"               & _
                     "\b(tz)=""(.+?)""[\s\S]+?"               & _
                     "\b(qx)=""(.+?)""[\s\S]+?"               & _
                     "\b(qy)=""(.+?)""[\s\S]+?"               & _
                     "\b(qz)=""(.+?)""[\s\S]+?"               & _
                     "\b(R)=""(.+?)""[\s\S]+?"                & _
                     "\b(G)=""(.+?)""[\s\S]+?"                & _
                     "\b(B)=""(.+?)""[\s\S]+?"                & _
                     "\b(Intensity value)=""(.+?)""[\s\S]+?"  & _
                     "\b(width)=""(.+?)""[\s\S]+?"            & _
                     "\b(length)=""(.+?)""[\s\S]+?"           & _
                     "\b(LightType)=""(.+?)""[\s\S]+?</Light>"

If WScript.Arguments.Count > 0 Then
    For Each s In WScript.Arguments
        Call run(s)
    Next
Else
    Call run(file)
End If

Sub run(ByVal file)
    Dim s, i, oMatch, oSubMatches
    If Not oFSO.FileExists(file) Then MsgBox "找不到文件 " & file : WScript.Quit()
    oStream.Open()
    oStream.LoadFromFile file
    s = ""
    For Each oMatch In oRegExp.Execute(oStream.ReadText())
        Set oSubMatches = oMatch.SubMatches
        For i = 0 To 24 Step 2
            s = s & oSubMatches(i) & " " & oSubMatches(i + 1) & vbCrLf
        Next
        s = s & vbCrLf
    Next
    oStream.Close()
    oStream.Open()
    oStream.WriteText s
    oStream.SaveToFile oFSO.GetBaseName(file) & ".out.txt", 2    'adSaveCreateOverWrite
    oStream.Close()
    WScript.Echo file & vbTab & oFSO.GetBaseName(file) & ".out.txt"
End Sub
复制代码

jyswjjgdwtdtj

用vbs的msxml2.domdocument(不确定是不是这么拼)
要是电脑在身边就帮你解决了