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

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

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

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