installshield STRING类型的trim函数实现

上次冲界面中获得的string 中原来是有空格的，但是用if(str="qwe")的时候又是相等的，结果把我搞的半死。

后来用到了女神的trim函数，在此感谢，并且将其转发。。。。。。

prototype STRING MyTrim(STRING);

function STRING MyTrim(srcStr) //头尾都截字符串
   NUMBER i; 
   STRING sRltStr1,sRltStr2,sTmpStr;
begin  
    //截取头部空字符 
    sRltStr1="";  
    i=0;
    while (i<=StrLength(srcStr)-1)
       StrSub(sTmpStr,srcStr,i,1);
       if (sTmpStr!="\t"&&sTmpStr!="\r"&&sTmpStr!="\n"&&sTmpStr!=" ") then
           StrSub(sRltStr1,srcStr,i,StrLength(srcStr)-i); 
           i=StrLength(srcStr); //Break;
       endif;
       i=i+1;
    endwhile;     
    
    //截取尾部空字符        
    sRltStr2=""; 
    i=StrLength(sRltStr1)-1;
    while (i>=0)
       StrSub(sTmpStr,sRltStr1,i,1);
       if (sTmpStr!="\t"&&sTmpStr!="\r"&&sTmpStr!="\n"&&sTmpStr!=" ") then
           StrSub(sRltStr2,sRltStr1,0,i+1);                // 这个女神写错了 哈哈
           i=-1;
       endif; 
       i=i-1;
    endwhile;    
    
    return sRltStr2;
end;