String without Spaces

public function Stringtrim(in str)

Dim len,ret,start,end; len=length (str)

for(start=1;start<=len;start++) if(substr(str,start,1)!=" ")

break

for(end=len;end>1;end--)

if(substr(str,end,1)!=" ")

break

return substr(str,start,len-start-(len-end)+1)

End Function