АНАТОМИЯ И ФИЗИОЛОГИЯ СЕРДЦА / project / _show

Function ReplaceX(IniStr, FindStr, TegStart, TegEnd) TmpStr = IniStr k = InStr(UCase(TmpStr), UCase(FindStr)) j=0 Do While k > 0 if j=1 then TegStart=replace(TegStart,"ID=XX","") t1=InStr(k,TmpStr,">") t2=InStr(k,TmpStr,"