newswan

网盘下载的 xml ，" 被转义，行字符数超过 cmd 的最大值

用 powershell 方便些

$ht = @{
	"CPCIssueOrg" = "车      ："
	"EnTime"      = "时间    ："
	"CPUVlp"      = "IC卡车牌："
	"EnVLP"       = "入口车牌："
	"OBUVlp"      = " OBU车牌："
	"VLP"         = "出口车牌："
}

$filename = ".\20240526080607480603.xml"
[xml]$xml = Get-Content -Path $filename -Encoding "UTF8"
$xml.datas.data.attribute | ForEach-Object {
	if ( $_.name -eq "msg" ) { $string = $_.value }
}
$string = $string.Substring(1,$string.length-2)
$string = $string -replace '(?<="),',"`n"
$string = $string -replace '"(\w+)":"(.*)"',"`$1`t`$2"
$as = $string -split "`n"

$as | ForEach-Object {
	$a = $_ -split "`t"
	if ( $ht[$a[0]] ) {
		Write-Host ( "{0}   {1}" -f $ht[$a[0]] , $a[1] )
	}
}
复制代码

aloha20200628

回复 7# licunwei

从回报信息看，楼主修改了源文件d:\xml\test.xml的路径为d:\test.xml，但要确保其修改路径的真实性，以及输出结果文件的路径...
我用楼主一楼提供的源文件示例已经完全测试通过，只要按照源文件和脚本文件的编码一致性正确操作即可...

licunwei

回复 6# aloha20200628

老师 帮忙再看看呢 匹配不上
C:\Users\Administrator\Desktop\新建文件夹>for %c in ("CPCIssueOrg:车站名称" "EnTime:时间" "CPUVlp:IC卡车牌" "EnVLP:入口车牌" "OBUVlp:OBU车牌" "VLP:出口车牌") do for /F "tokens=1-2 delims=:" %1 in ("%~c") do (set "%~1=%~2" )

C:\Users\Administrator\Desktop\新建文件夹>for /F "tokens=1-2 delims=:" %1 in ("CPCIssueOrg:车站名称") do (set "%~1=%~2" )

C:\Users\Administrator\Desktop\新建文件夹>(set "CPCIssueOrg=车站名称" )

C:\Users\Administrator\Desktop\新建文件夹>for /F "tokens=1-2 delims=:" %1 in ("EnTime:时间") do (set "%~1=%~2" )

C:\Users\Administrator\Desktop\新建文件夹>(set "EnTime=时间" )

C:\Users\Administrator\Desktop\新建文件夹>for /F "tokens=1-2 delims=:" %1 in ("CPUVlp:IC卡车牌") do (set "%~1=%~2" )

C:\Users\Administrator\Desktop\新建文件夹>(set "CPUVlp=IC卡车牌" )

C:\Users\Administrator\Desktop\新建文件夹>for /F "tokens=1-2 delims=:" %1 in ("EnVLP:入口车牌") do (set "%~1=%~2" )

C:\Users\Administrator\Desktop\新建文件夹>(set "EnVLP=入口车牌" )

C:\Users\Administrator\Desktop\新建文件夹>for /F "tokens=1-2 delims=:" %1 in ("OBUVlp:OBU车牌") do (set "%~1=%~2" )

C:\Users\Administrator\Desktop\新建文件夹>(set "OBUVlp=OBU车牌" )

C:\Users\Administrator\Desktop\新建文件夹>for /F "tokens=1-2 delims=:" %1 in ("VLP:出口车牌") do (set "%~1=%~2" )

C:\Users\Administrator\Desktop\新建文件夹>(set "VLP=出口车牌" )

C:\Users\Administrator\Desktop\新建文件夹>(for /F "usebackq skip=9 delims=" %a in ("d:\test.xml") do (set "s=%a"  & for %k in ("CPCIssueOrg" "EnTime" "CPUVlp" "EnVLP" "OBUVlp" "VLP") do (set "v=!s:*%k=!"  & for /F tokens=1delims=" %b in ("!v:~2,25!") do echo,!%~k!：%b )
chcp 936 1>nul  & endlocal & exit/b) )

C:\Users\Administrator\Desktop\新建文件夹>pause
Press any key to continue . . .

aloha20200628

回复 1# licunwei

假设一楼测试文件或源文件是utf-8编码，存于 d:\xml\test.xml，则以下代码须用utf-8编码存为test.bat运行，其输出结果文件是 d:\xml\test.txt

@echo off &setlocal enabledelayedexpansion &chcp 65001>nul
for %%c in ("CPCIssueOrg:车站名称", "EnTime:时间", "CPUVlp:IC卡车牌", "EnVLP:入口车牌", "OBUVlp:OBU车牌", "VLP:出口车牌") do for /f "tokens=1-2 delims=:" %%1 in ("%%~c") do (set "%%~1=%%~2")
(for /f "usebackq skip=9 delims=" %%a in ("d:\xml\test.xml") do (
	set "s=%%a"&for %%k in ("CPCIssueOrg", "EnTime", "CPUVlp", "EnVLP", "OBUVlp", "VLP") do (
		set "v=!s:*%%k=!"&for /f tokens^=^1^delims^=^" %%b in ("!v:~2,25!") do echo,!%%~k!：%%b
	)
	chcp 936>nul&endlocal&exit/b
))>"d:\xml\test.txt"
复制代码

假设一楼测试文件或源文件是ansi编码，存于 d:\xml\test.xml，则以下代码须用ansi编码存为test.bat运行，其输出结果文件是 d:\xml\test.txt

@echo off &setlocal enabledelayedexpansion
for %%c in ("CPCIssueOrg:车站名称", "EnTime:时间", "CPUVlp:IC卡车牌", "EnVLP:入口车牌", "OBUVlp:OBU车牌", "VLP:出口车牌") do for /f "tokens=1-2 delims=:" %%1 in ("%%~c") do (set "%%~1=%%~2")
(for /f "usebackq skip=9 delims=" %%a in ("d:\xml\test.xml") do (
	set "s=%%a"&for %%k in ("CPCIssueOrg", "EnTime", "CPUVlp", "EnVLP", "OBUVlp", "VLP") do (
		set "v=!s:*%%k=!"&for /f tokens^=^1^delims^=^" %%b in ("!v:~2,25!") do echo,!%%~k!：%%b
	)
	endlocal&exit/b
))>"d:\xml\test.txt"
复制代码

77七

4楼代码 -replace '"' 改成 -replace '&去掉quot;'
去掉&后的“去掉”二字

77七

借助ai写了一条powershell换行命令。

@echo off
rem "批处理保存为utf-8编码格式"
chcp 65001 >nul
cd /d "%~dp0"
set "file=D:\20240526080607480603.xml"
set "_"CPCIssueOrg"=    "
set "_"EnTime"=时间："
set "_"CPUVlp"=IC卡车牌："
set "_"EnVLP"=入口车牌："
set "_"OBUVlp"=OBU车牌："
set "_"VLP"=出口车牌："
(for /f "delims=" %%a in ('powershell -Command "(Get-Content '%file%' -Encoding UTF8) -replace '"', [Environment]::NewLine" ^|findstr /rvb "; , :"') do (
	if defined _"%%a" (
		call set str=%%_"%%a"%%
	) else if defined str (
		call echo=%%str%%%%a
		set str=
	)
))>"out.txt"
pause
复制代码

licunwei

回复 2# Batcher


以上传附件链接。

Batcher

回复 1# licunwei


    请把xml文件上传到网盘，以便测试代码。