「已解决」替换问题

Roachin

数据.txt

A1B123C-01;2
B2B321C-03;3
＝＝＝＝＝＝＝＝＝＝
请问各位前辈，我想替换如上的数据，但;和后面的数字不替换，底下我应该如何改，感谢帮忙

Local $sExclude = FileRead('数据.txt')
Local $a2[9][2] = [['A', '东'],['B', '南'],['C', '西'],['D', '北'],['E', '胡'],['1',中],['2','发'],['3','白'],['-','杠']]
Local $str = $sExclude, $sTest = $str
For $i = 0 To UBound($a2) - 1 Step 1
        $sTest = StringReplace($sTest, $a2[$i][0], $a2[$i][1])
Next
MsgBox(0, $str, $sTest)

afan

试试

;Local $sExclude = FileRead('数据.txt')
Local $sExclude = _
                'A1B123C-01;2' & @CRLF & _
                'B2B321C-03;3'
Local $a2[9][2] = [['A', '东'],['B', '南'],['C', '西'],['D', '北'],['E', '胡'],['1', '中'],['2', '发'],['3', '白'],['-', '杠']]
Local $str = $sExclude, $sTest = $str
For $i = 0 To UBound($a2) - 1 Step 1
        $sTest = StringRegExpReplace($sTest, '(?<!;)' & $a2[$i][0], $a2[$i][1])
Next
MsgBox(0, '', $str & @LF & '============' & @LF & $sTest)

Roachin

感谢 afan 大大 帮忙，已经可以了

学习当中有好多都是看afan的回文，，，，，非常感谢

Roachin

因为 ; 后面不做替换，到百位数字，所以又写信请教afan大

已得到解答，在这边分享给各位

这行改为
$sTest = StringRegExpReplace($sTest, '(?=.*?;\d+)' & $a2[$i][0], $a2[$i][1])

确认已经没问题。。。。。再次感谢afan大