[madmasles]

ArPi,
Попробуйте так. Наверное, с помощью регулярных выражений это можно сделать изящнее.

Код:

;$sString = ClipGet() ;вернуть строку из буфера
$sString = '"^A0^B№ 4452/3^C20100430^Dуч. аб.^H6645000420829^X"'
$sNewString = StringLeft(StringReplace($sString, StringMid($sString, StringInStr($sString, '/') + 1, 1), _
        StringMid($sString, StringInStr($sString, '/') + 1, 1) + 1, 1), _
        StringInStr($sString, '.', 0, -1) + 2) & '^X"'
;ClipPut($sNewString) ;записать новую строку в буфер
MsgBox(0, "", $sNewString)