字符串插入分割字符

Function tag_string(var,num,tag)   'var 传入的字符串; num 每隔多少自然数个字符加标识; tag 标识;
 Dim tmplen,tmpi,tmpnum,tmptag
  tmplen=len(var)
 if not(isnumeric(num)) then tag_string=var:exit function
 if tmplen<num then tag_string=var:exit function
 if num<1 or tmplen<1 then tag_string=var:exit function
  tmpnum=abs(tmplen/num)
 if (tmplen mod num)<>0 then tmpnum=tmpnum+1
  For tmpi=1 to tmpnum
     tmptag=tmptag&mid(var,(1+(tmpi-1)*num),num)&tag
  Next
  tag_string=tmptag
End Function 

 

作用：字符串定位插入分割字符

 

 

 

www.pass0.com