• 處理 xml api 顯然比正則可靠
  
• xml character data 裡面的內容依照協議是不由解析器解析的，也就是說我們可以在裡面寫其他 xml，那些代碼完全忽視了這一點
  
• 對於違反 xml 協議的操作，那些代碼沒有提供任何的檢查。xml 庫會拒絕一些不當的操作，這是犧牲速度換穩定，而不是庫代碼寫的爛，或者正則多麼萬能。
  
• xml 庫只對 xml 文件負責，正則對所有可能的文本負責，以常識來判斷，提速 xml 庫更容易實現。
  
• 修改標題："對論壇的建議，還有關於濫用正則" -> "關於濫用正則解析 xml 文件"
  
• 我從來沒說要什麼完美的代碼，那些帖子裡面使用正則的代碼確實錯誤的操作到了表示結構的部分。那些代碼連操作結構的能力都沒有，我不認為出現 bug 的原因是因為對方需求不斷的變化。
  
• 我喜歡不斷的修改文章，為了避免有人覺得我逃避質疑，重述我說過的話，加上一些補充。
  錯誤的需求：代碼沒人想看，何必混倄，而且為什麼不用現成的工具。
  錯誤的技術/沒有生產力的代碼：交付代碼，把底層邏輯和上層的操作混倄，對方看不懂，看懂了也不好改。交付產品出 bug，這樣不是用了錯誤的技術嗎？
  邪道：相對正道就是邪道
  

Set objXmlDom = CreateObject("Microsoft.XMLDOM")
复制代码

# 金额信息合计, 此处 freight 为平台运费     $info->{price}    = $dom->at("td.product-price")->text =~ /([\d\.]+)/ ? $1 : 0;     $info->{freight} = $dom->at("td.shipping-price")->text =~ /([\d\.]+)/ ? $1 : 0;     $info->{adjust}   = $dom->at("td.change-price")->text =~ /([\d\.]+)/ ? $1 : 0;     $info->{discount} = $dom->at("td.discount-price")->text =~ /([\d\.]+)/ ? $1 : 0;     $info->{amount} = $dom->at("td.order-price")->text =~ /([\d\.]+)/ ? $1 : 0;     # 待定     $info->{escrowCom} = $dom->at("td.fee")->text =~ /([\d\.]+)/ ? $1 : 0;     $info->{unionCom} = "-";     $info->{estimate} = $dom->at(".fund-bd td.amount")->text =~ /([\d\.]+)/ ? $1 : 0;

var patt_ZDJY = /任务编号[\:：]?\s*(ZD20\d{14}|ZD20\d{12}|LS\d{11}|)\s*[\|]?[\s\S]*请求服务[\:：]?\s*((?!车架号)\S*|(?!车架号)\S[\s\S]*\S|)\s*车架号[\:：]?\s*([\da-z]{17}|\**[\da-z]{6}|)\s*\S*[\s\S]*车牌号[\:：]?\s*(\S*)\s*车主姓名[\:：]?\s*(\S*)\s*车主电话[\:：]?\s*(1\d{10}|)\s*(?:车辆品牌)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*车型[\:：]?\s*((?!备注)\S*|(?!备注)\S[\s\S]*\S|)\s*(?:备注)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*请求地址[\:：]?\s*([^\s\,，]+(?![,，，])|[^\s\,，][\s\S]*[^\s\,，]|)[,，\s]*位于[\:：]?\s*\S*\s*地址补充[\:：]?\s*(\S*|\S[\s\S]*\S)\s*目的地地址[\:：]?\s*(\S*|\S[\s\S]*\S)\s*目的地补充[\:：]?\s*(\S*|\S[\s\S]*\S)\s*服务商名称[\:：]?\s*(\S*|\S[\s\S]*\S)\s*服务车辆[\:：]?\s*(\S*)\s*服务人员工号[\:：]?\s*(\S*)\s*服务人员电话[\:：]?\s*(1\d{10}|)\s*[\s\S]*服务人员到达事发地[\:：]?\s*(\S*|\S[\s\S]*\S)\s*实拖目的地[\:：]?\s*((?!(?:故障类型|指定子机构))\S*|(?!(?:故障类型|指定子机构))\S[\s\S]*\S|)\s*(?:故障类型)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*(?:故障类型确认)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*(?:指定子机构)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*结算类型[\:：]?\s*(\S*|\S[\s\S]*\S)\s*(?:服务状态)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*(?:服务是否成功)?[\:：]?\s*(\S*)\s*(?:服务评价)?/i;
复制代码

• 20 樓 26樓代碼更新。29樓 bug
  
• 31 樓代碼更新，32樓 bug
  
• 40 樓代碼更新，41 樓 bug，導致手機無法開機。（他不會在虛擬機上面測試嗎？）
  
• 47 樓的回覆......他以為變量換名就是混倄器了......100元的代碼 vs Google 開源 project
  
• 52 樓 56 樓代碼更新，59 樓 看起來匹配不能處理所有的更名
  
• 60 樓代碼更新，63 樓 他還在想什麼 改名称为A~ZZZZ之间，本來就不應該這樣處理的，所以我說其他人也是誤導他居多
  

@echo off
PowerShell "$h=@{};$s=[regex]::Replace([IO.File]::ReadAllText('a.txt',[Text.Encoding]::Default),'(?<=\bname=\")[^^\"]+(?=\")',{param($m);$a=$m.Value;if(!$h.ContainsKey($a)){$x=[Math]::floor($global:n/26);if(!$x){$c=''}else{$c=[char](64+[int]$x)};$h[$a]=$c+[char](65+$global:n++%%26)};$h[$a]});$s=[regex]::Replace($s, '(?^<=\")[^\"@#]*[@#][^^\"]+(?=\")',{param($m);$a=$m.Value;forEach($k In $h.Keys){$a=$a.Replace('@'+$k,'@'+$h[$k]).Replace('#'+$k,'#'+$h[$k])};$a});sc b.txt -Value $s -Enc utf8"
pause
复制代码

$xmlfile = 'C:\Users\username\Documents\sample.xml'
[XML]$xmlcontent = Get-Content $xmlfile

function hash($string) {
    new-object System.Security.Cryptography.SHA256Managed | ForEach-Object { $_.ComputeHash([System.Text.Encoding]::UTF8.GetBytes($string)) } | ForEach-Object { $all += $_.ToString("x2") }
    "varhead" + $all
}

$xmlcontent.SelectNodes("//*") | ForEach-Object {
    if (-not ($_.Type -eq $null)){
        $_.Type = hash($_.Type)
    } else {
        Write-Output "pass"
    }
}

$xmlcontent.Save(".\sample2.xml")
复制代码

<?xml version="1.0"?>
<PurchaseOrder PurchaseOrderNumber="99503" OrderDate="1999-10-20">
  <Address Type="Shipping">
    <Name>Ellen Adams</Name>
    <Street>123 Maple Street</Street>
    <City>Mill Valley</City>
    <State>CA</State>
    <Zip>10999</Zip>
    <Country>USA</Country>
  </Address>
  <Address Type="Billing">
    <Name>Tai Yee</Name>
    <Street>8 Oak Avenue</Street>
    <City>Old Town</City>
    <State>PA</State>
    <Zip>95819</Zip>
    <Country>USA</Country>
  </Address>
  <DeliveryNotes>Please leave packages in shed by driveway.</DeliveryNotes>
  <Items>
    <Item PartNumber="872-AA">
      <ProductName>Lawnmower</ProductName>
      <Quantity>1</Quantity>
      <USPrice>148.95</USPrice>
      <Comment>Confirm this is electric</Comment>
    </Item>
    <Item PartNumber="926-AA">
      <ProductName>Baby Monitor</ProductName>
      <Quantity>2</Quantity>
      <USPrice>39.98</USPrice>
      <ShipDate>1999-05-21</ShipDate>
    </Item>
  </Items>
</PurchaseOrder>
复制代码

goto :ansi
rem UTF-8 编码支持
chcp 65001
cls

:ansi
@echo off
set /p "strFile=请拖入处理文本:"


setlocal enabledelayedexpansion

if not exist !strFile! (
	echo;"!strFile!" 文件不找不到！！
	exit /b
)


endlocal

rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0

rem 定义可用于命名的字符表
set tab="." [ + - ^"

rem 例外情况定义
set exception=Extra Button
set z=
set o=

setlocal enabledelayedexpansion

for /f "tokens=1* delims==" %%a in (!strFile!) do (


 	for /f "tokens=1,2 delims= " %%K in ("1 !z!") do (
endlocal
	set z=%%L
	set s1=%%a
	set s2=%%b
setlocal enabledelayedexpansion

 	)


	if defined z for %%k in (%exception%) do (
		if "#!s1:</%%k>=!" neq "#!s1!" (
			set z=!z:~1!
		)
	)

 	for %%k in (%exception%) do (
		if "!s1:<%%k=!" neq "!s1!" (
			if "#!s2:/>=!" equ "#!s2!" (
				set z=!z!y
			) else (
				set o=o
			)
		)
	)



	if "!o!!z!!s1:~-5!" equ " name" (
	
		set s3=!s2:^"= !
		
		for /f "tokens=1 delims= " %%c in ("!s3!") do (
		
			if not defined #%%~c (

				call	:getn !n! ss
				set sa=%%~c
			
				rem 保留"."后面的尾巴
				if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!


				for /f "tokens=1,2,3 delims= " %%x in ("!n! !ss! !z!") do (
					endlocal
					set $%%x=%%y囧%%~c
					set #%%~c=%%y
					set /a n+=1
					set z=%%z
					setlocal enabledelayedexpansion
			
				)
			)
		)
	
	)



)

set/a n-=1

(
for /f "tokens=1,*" %%a in (!strFile!) do (

endlocal
	set stra=%%a
	set str=%%b
setlocal enabledelayedexpansion

	if defined str (
		set "str=!stra! !str: =!"
		for /l %%1 in (0,1,%n%) do (
			for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
				if "!str:%%c=!" neq "!str!" (
				if "!str:%%c=%%c!" equ "!str!" (
					set str=!str:"%%c"="%%b"!
					set str=!str:"@%%c"="@%%b"!
					set str=!str:"#%%c"="#%%b"!
					if "!str:*%%c=!" neq "!str!" (
						call	:parti %%c %%b
					)
				))
			)
		)

	) else (

		set str=%%a

	)	

	echo;!str!

)

) >结果.txt

start 结果.txt

rem 查看有多少个更改

set $

pause

exit /b

rem 计算临名字，可加上前缀，多个，A 到 ZZZZ 多个
:getn

(set L=%1
set M=%1
set %2=)

:loop
set /a M=L %% 26
set %2=!%2!!ASC:~%M%,1!
if !M! neq !L! set /a L=L/26&goto :loop
goto :eof

rem 非双引号位置处理 如：#xxxx+  #xxxx[  ]  #xxxx.dir  
:parti
for %%a in (!tab!) do (
	if "!str:%1%%~a=!" neq "!str!" (
		if "!str:%1%%~a=%1%%~a!" equ "!str!" (
			set str=!str:@%1%%~a=@%2%%~a!
			set str=!str:#%1%%~a=#%2%%~a!
			if "!str:*%1=!" equ "!str!" (
				goto :partiE
			)
		)
	)
)
:partiE

goto :eof
复制代码

$global:n = 0; $Hash=@{};
$str = [IO.File]::ReadAllText('manifest.xml',[Text.Encoding]::Default);

#修改name属性的值，如果name属性值以music_prev或music_display或music_next等开头，或者节点名为Extra，则不修改
$reg1 = '(?<=<(?!Extra)[^<>]*\sname=")(?!notice)(?!music_(?:prev|display|next|play|pause|album_cover))(?!notification_(?:icon|title|content|time|info|subtext|key|list))[^"]+(?=")';

#如果command与target同时出现，command="play"，则修改target属性值，
$reg2 = '(?<=\starget=")[^"]+(?="[^<>]*\scommand="play)|(?<=\scommand="play[^<>]*\starget=") [^"]+(?=")';

$str = [regex]::Replace($str, $reg1 + '|' + $reg2, {
    param($m);
    $key = $m.Value;
    if( !$Hash.ContainsKey($key) ){
        $x = [Math]::floor( $global:n / 26 );
        if($x) { $chr1 = [char]( 64 + [int]$x ) } else { $chr1 = '' }
        $Hash[$key] = $chr1 + [char]( 65 + $global:n++ % 26 );
    }
    $Hash[$key];
})

$arrKey = $Hash.Keys | sort -Desc {$_.Length};

#如果属性值包含@#字符，或者属性值以 .animation或.visibility 结尾，则修改
$str = [regex]::Replace($str, '(?<=")([^"@#]*[@#][^"]+|[^"]+(?:\.animation|\.visibility))(?=")', {
    param($m);
    $s = $m.Groups[1].Value;
    forEach( $key In $arrKey ) {
        $s = $s.Replace( '@' + $Key, '@' + $Hash[$Key] );
        $s = $s.Replace( '#' + $Key, '#' + $Hash[$Key] );
        $s = $s.Replace( $Key + '.animation', $Hash[$Key] + '.animation' );
        $s = $s.Replace( $Key + '.visibility', $Hash[$Key] + '.visibility' );
    }
    $s;
})

[IO.File]::WriteAllText('manifest2.xml', $str, [Text.Encoding]::UTF8);

$str = [IO.File]::ReadAllText('config.xml', [Text.Encoding]::Default);
$str = [regex]::Replace($str, '(?<=\sid=")[^"]+(?=")', {param($m); if($Hash[$m.Value]){$Hash[$m.Value]}else{$m.Value}});
[IO.File]::WriteAllText('config2.xml', $str, [Text.Encoding]::UTF8);

echo 'Done';
[Console]::ReadKey()
复制代码

echo 範例
复制代码

• 我不知道
  
• 既然我認為正則不適合用在這裡（至少是上層的操作），當然直接用這裡現有的代碼來對比啊。
  
• 沒有什麼誰的代碼如何如何，現在是在說 api 和正則在操作 xml 誰比較有優勢。
  
• 你們的代碼我不想看是事實，如果我覺得有閱讀的價值，我發這個帖不是打自己的臉嗎？
  
• 沒看見，但是這和幾個 xml 文件有什麼關係？
  
• 明白了，但是系統的雜湊，同樣的輸入就會得到同樣的輸出，只要變量名沒有改變，多幾個 xml 文件是不會出問題的。
  
• 是的，你把我臉打腫了
  
• 疼
  
• 不用了，我不喜歡被打臉
  
• 不怎麼樣
  
• 不是
  

• 論壇上傳文件有點問題（補充：在 edge 上允許 flash 之後還是無法上傳，firefox 和 chrome 默認都是禁止 flash 的，當然都可以啟用但是我沒去試）
  
• 只需要一行 if else 就能解決的問題拿到論壇問越積越多會浪費其他人的時間 （這個是靠自覺的，寫了沒有用所以刪除）
  
• 帖子的標題應該寫清楚處理特殊格式的文件，沒興趣的人就不用點進去（這個是靠自覺的，寫了沒有用所以刪除）
  
• 沒註釋
  
• 不太能理解在沒必要的時候為什麼要混 batch + PowerShell + .net
  
• 有些帖子的代碼會把無關的文件給搞砸，而且並沒有完全解決標題要解決的問題，但是標題寫已解決