Installshield 为字符串截掉头尾空格

admin

1. function string myTrim(srcStr) //头尾都截字符串
   
2.    NUMBER i;
   
3.    string sRltStr1,sRltStr2,sTmpStr;
   
4. begin  
   
5.     //截取头部空字符
   
6.     sRltStr1="";  
   
7.     i=0;
   
8.     while (i<=StrLength(srcStr)-1)
   
9.        StrSub(sTmpStr,srcStr,i,1);
   
10.        if (sTmpStr!="\t"&&sTmpStr!="\r"&&sTmpStr!="\n"&&sTmpStr!=" ") then
    
11.            StrSub(sRltStr1,srcStr,i,StrLength(srcStr)-i);
    
12.            i=StrLength(srcStr); //Break;
    
13.        endif;
    
14.        i=i+1;
    
15.     endwhile;     
    
16.    
    
17.     //截取尾部空字符        
    
18.     sRltStr2="";
    
19.     i=StrLength(sRltStr1)-1;
    
20.     while (i>=0)
    
21.        StrSub(sTmpStr,sRltStr1,i,1);
    
22.        if (sTmpStr!="\t"&&sTmpStr!="\r"&&sTmpStr!="\n"&&sTmpStr!=" ") then
    
23.            StrSub(sRltStr2,sRltStr1,0,i);
    
24.            i=-1;
    
25.        endif;
    
26.        i=i-1;
    
27.     endwhile;   
    
28.    
    
29.     return sRltStr2;
    
30. end;

复制代码