数字串计算单个计算

a781805288

比如123…789我想让1*A+2*B+3*C+……+7*X+8*Y+9*Z 这样怎么算有什么算法可以解决

大绯狼

不懂.......................................

3mile

Local $val = "123456789"
Local $add="987654321"
Local $re=0
$valsp=StringRegExp($val,'\d',3)
$addsp=StringRegExp($add,'\d',3)
For $i=0 To UBound($valsp)-1
        $Result=$valsp[$i]*$addsp[$i]
        $re+=$result
Next
MsgBox(0,"运算结果","运算结果＝"&$re)