用一句正则替换将数字后面加一个0[已解决]

superflq

我有ini格式的文件
里面有
a = 1
b = 2
c = 3
a = 44
"b = 55
c = 66
a = 777
b = 888
c = 999
我想把其中的“a =”后面的数字乘以10,但是考虑到乘以10比较难实现,就像了个办法在这个数字后面加一个0，变成
a = 10
b = 2
c = 3
a = 440
"b = 55
c = 66
a = 7770
b = 888
c = 999
不知道有没高手有办法

$a = "a = 1" & @CRLF & _
        "b = 2" & @CRLF & _
        "c = 3" & @CRLF & _
        "a = 44" & @CRLF & _
        "b = 55" & @CRLF & _
        "c = 66" & @CRLF & _
        "a = 777" & @CRLF & _
        "b = 888" & @CRLF & _
        "c = 999"
        
$b = StringRegExpReplace($a,
MsgBox(0,0,$b)
;用一句正则替换
;让结果        
#CS 
$b = "a = 10" & @CRLF & _
           "b = 2" & @CRLF & _
           "c = 3" & @CRLF & _
           "a = 440" & @CRLF & _
           "b = 55" & @CRLF & _
           "c = 66" & @CRLF & _
           "a = 7770" & @CRLF & _
           "b = 888" & @CRLF & _
           "c = 999"
#CE

;就是说要把“a = ”后面的数字后面加一个0


;这个问题纠结了我好久了,有没高手可以帮忙解决下

afan

Local $Str = _
                'a = 1' & @CRLF & _
                'b = 2' & @CRLF & _
                'c = 3' & @CRLF & _
                'a = 44' & @CRLF & _
                'b = 55' & @CRLF & _
                'c = 66' & @CRLF & _
                'a = 777' & @CRLF & _
                'b = 888' & @CRLF & _
                'c = 999'
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExpReplace($str, '(?<=\n|^)(a\h*=.*\d+)', '${1}0', 0)
MsgBox(0, '替换结果', $Test)

superflq

afan 发表于 2010-11-12 14:30

    超版果然，无敌，好好研究研究

afan

"以解决"有错别字… _ _||

superflq

"以解决"有错别字… _ _||
afan 发表于 2010-11-12 14:36

    '${1}0'不明白为什么这里是这么用的，一般不是 $1的么，

afan

$1后面加0不成$10了？为了区别，必须加{}

superflq

(?<=\n|^)(a\h*=.*\d+)

这个里面的\h是什么东东，好像没见过这个么

afan

\h 水平空白符，这里就是匹配空格。

superflq

谢谢超版解答~