Word wrap code example

Code
str wordWrap(str _sint _w)
{
    
str ret;
    
int i;
    
str ts;

    while(
strlen(_s))
    {
        if(
ret)
            
ret += '\n';

        if(
strLen(_s) <= _w)
        {
            
// the rest of the text can be on one line
            
ret += _s;
            break;
        }

        if(
subStr(_s,_w+1,1) == ' ')
        {
            
// last char in line is space - just break there
            
ret += subStr(_s,1,_w);
            
_s   subStr(_s,_w+2,maxint());
        }
        else
        {
            
strScan(_s,' ',_w,-maxint());

            if(
i)
            {
                
// break at last space on current line
                
ret += subStr(_s,1,i-1);
                
_s   subStr(_s,i+1,maxint());
            }
            else
            {
                
// no spaces found - break anyway
                
ret  += subStr(_s,1,_w);
                
_s   subStr(_s,_w+1,maxint());
            }
        }
    }

    return 
ret;
}
AX versionMicrosoft Dynamics AX
PropertiesCreated by Alex 2014-09-15 06:16:59 (Public)