Trans(Str,Sub1,Sub2)  ; В строке Str заменить Sub1 на Sub2
 Q:$g(Str)="" "" ;негде менять
 Q:$g(Sub1)="" Str ;нечего менять
 Q:'$F(Str,Sub1) Str ;нечего менять 
 s Sub2=$G(Sub2)
 while $F(Str,Sub1) {
	s Str=$P(Str,Sub1)_Sub2_$P(Str,Sub1, 2 )
 }
 Q Str

Trans(Str,Sub1,Sub2)  ; В строке Str заменить Sub1 на Sub2
 Q:$g(Str)="" "" ;негде менять
 Q:$g(Sub1)="" Str ;нечего менять
 Q:'$F(Str,Sub1) Str ;нечего менять 
 s Sub2=$G(Sub2)
 Q:Sub1=Sub2 Str ;незачем менять 
 while $F(Str,Sub1) {
	s Str=$P(Str,Sub1)_Sub2_$P(Str,Sub1, 2 )
 }
 Q Str

Trans(Str,Sub1,Sub2)  ; В строке Str заменить Sub1 на Sub2
 Q:$g(Str)="" "" ;негде менять
 Q:$g(Sub1)="" Str ;нечего менять
 Q:'$F(Str,Sub1) Str ;нечего менять 
 s Sub2=$G(Sub2)
 Q:Sub1=Sub2 Str ;незачем менять 
 while $F(Str,Sub1) {
	s Str=$P(Str,Sub1)_Sub2_$P(Str,Sub1, 2 ,$L(Str,Sub1))
 }
 Q Str

Trans(Str,Sub1,Sub2)  ; В строке Str заменить Sub1 на Sub2
 s Str=$g(Str),Sub1=$g(Sub1),Sub2=$g(Sub2) 
 Q:(Str="")||(Sub1="")||(Str'[Sub1)||(Sub1=Sub2) Str
 F  q:Str'[Sub1  s Str=$P(Str,Sub1)_Sub2_$P(Str,Sub1, 2 ,$L(Str,Sub1))
 Q Str

%ztest(TD)
 s TD=$G(TD, 9 ) s:(TD< 1 )||(TD> 9 ) TD= 9 
 s str( 1 )="111222222222222222222222222",replace( 1 )="11122",with( 1 )="111"
 s str( 2 )="",replace( 2 )="11122",with( 2 )="111"
 s str( 3 )="111222222222222222222222222"
 	,replace( 3 )="11122"
 	,with( 3 )="999999999999999999999999999999999999"
 s str( 4 )="111222222222222222222222222"
 	,replace( 4 )="111222222222222222222222222"
 	,with( 4 )="111222222222222222222222222"
 ;необратимые изменения
 s str( 5 )="11122"
 	,replace( 5 )="111222222222222222222222222"
 	,with( 5 )="111"
 s str( 6 )="111222222222222222222222222"
 	,replace( 6 )="999999999999999999999999999999999999"
 	,with( 6 )="111"
 s str( 7 )="111222222222222222222222222",replace( 7 )="11122",with( 7 )=""
 s str( 8 )="111222222222222222222222222",replace( 8 )="",with( 8 )="111"
 s str( 9 )="",replace( 9 )="",with( 9 )="111"
 s N= 10000 , $zt="funerr",test= 1 
 
 ;s file="с:\test.log" o file:"WNU" u file
 f fun="$replace","$$TransShu","$$TransDF","$$strrep" {
  f td= 1 : 1 :TD {
   s Str=str(td),Sub1=replace(td),Sub2=with(td)   
   s forward=fun_"("""_Str_""","""_Sub1_""","""_Sub2_""")"
   s backward=fun_"("_forward_","""_Sub2_""","""_Sub1_""")"
   s cmd(td)="test=test&("""_Str_"""="_backward_")"
   ;w !,"test=test&("""_Str_"""="_backward_")"
  }
  
  s cmd="test=1" s @cmd
  s t0=$zh
  f td= 1 : 1 :TD {
	  f ni= 1 : 1 :N {
		  s @cmd(td)
	  }
	  ;w !,test,": ",cmd(td) 
  } 
  s t1=$zh
  w !,fun,? 20 ,$fn((t1-t0)/N,"", 8 ),? 40 ,$s(test:"correct", 1 :"wrong")
 }
 ;c file  
 Q
 
funerr
 s $zt="" w $ze,!
 q
 
TransShu(Str,Sub1,Sub2) ; (krvsa, ser_shu) В строке Str заменить Sub1 на Sub2
 N str,i,lSub1
 s Str=$G(Str)
 s Sub1=$G(Sub1)
 s Sub2=$G(Sub2)
 Q:Str'[Sub1 Str
 S lSub1=$L(Str,Sub1)
 S str=$P(Str,Sub1)
 F i=2:1:lSub1 S str=str_Sub2_$P(Str,Sub1,i)
 Q str 
TransDF(Str,Sub1,Sub2)  ; В строке Str заменить Sub1 на Sub2
 s Str=$g(Str),Sub1=$g(Sub1),Sub2=$g(Sub2) 
 Q:(Str="")||(Sub1="")||(Str'[Sub1)||(Sub1=Sub2) Str
 n str,i s str="",i=$L(Str,Sub1)
 F  s $P(str,Sub2,i)=$P(Str,Sub1,i),i=i- 1  q:i= 1 
 Q str
strrep(str,replace,with) public { ; (ISC, AM)
 q:$g(str)=""||($g(replace)="") str
 s with=$g(with),pos= 0 
loop Set pos=$find(str,replace,pos) QUIT:'pos str GOTO loop Set str=$extract(str, 1 ,pos-$length(replace)- 1 )_with_$extract(str,pos,*),pos=pos+($length(with)-$length(replace)) Goto loop
}

USER>d %ztest^Trans( 4 )
 
$replace             0 . 00000708           correct
$$TransShu           0 . 00002370           correct
$$TransDF            0 . 00001669           correct
$$strrep             0 . 00001355           correct

USER>d %ztest^Trans( 9 )
 
$replace             0 . 00001307           wrong
$$TransShu           0 . 00004166           wrong
$$TransDF            0 . 00003468           wrong
$$strrep             0 . 00003084           correct

TransDF(Str,Sub1,Sub2)  ; В строке Str заменить Sub1 на Sub2
 s Str=$g(Str),Sub1=$g(Sub1),Sub2=$g(Sub2) Q:(Str="")||(Sub1="")||(Str'[Sub1)||(Sub1=Sub2) Str
 n str,l,i s str="",l=$L(Str,Sub1),i= 1  F  s $P(str,Sub2,i)=$P(Str,Sub1,i),i=$i(i) q:i=l
 Q str

>d %ztest^Trans
 
$replace             0 . 00001321           wrong
$$TransShu           0 . 00004178           wrong
$$TransDF            0 . 00003191           wrong
$$strrep             0 . 00003197           correct

TransDF(Str,Sub1,Sub2)  ; В строке Str заменить Sub1 на Sub2
 s Str=$g(Str),Sub1=$g(Sub1),Sub2=$g(Sub2) 
 Q:(Str="")||(Sub1="")||(Str'[Sub1)||(Sub1=Sub2) Str 
 n str,l,i s str="",l=$L(Str,Sub1)
 F i= 1 : 1 :l s $P(str,Sub2,i)=$P(Str,Sub1,i)
 Q str

USER>d %ztest^Trans( 4 )
 
$replace             0 . 00000725           correct
$$TransShu           0 . 00002605           correct
$$TransDF            0 . 00001871           correct
$$strrep             0 . 00001448           correct

USER>d %ztest^Trans
 
$replace             0 . 00001338           wrong
$$TransShu           0 . 00004385           wrong
$$TransDF            0 . 00003941           wrong
$$strrep             0 . 00003201           correct