索引和substr函数

Question

如何使用SAS中使用的索引和子函数在R中执行此操作。请参阅以下SAS中给出的代码

if index(number,'%75') then do;
    i=0;
    do while(index(number,'%75') > 0);
      i+1;
      pos=index(number,'%75');
      val=input(substr(number,_pos+3,2), $hex2.);
      substr(number, _pos,3)='^^^';
      substr(number, _pos+3,2)='^'||_val;
    end;

    number=transtrn(number,'^^^^',trimn(''));
    number=transtrn(number,'^^^',trimn('%75'));
end;