[eus_deus]

надеюсь, вопрос снят окончательно. методом проб и ошибок заработало так ( участок, который правился):

Код:

For $j = 0 To 3
             If $j = 1 And StringInStr($aItem[$j], $sInStrCond) Then
                 $aItem[$j] = StringRegExpReplace($aItem[$j], '.*?(-?\d+)', '\1')
                 ElseIf $j = 1 and NOT StringInStr($aItem[$j], $sInStrCond)then
                  $aItem[$j]  =$aItem[$j]&',0'
            EndIf