Функция, которая убирает перевод каретки в строке.

[Владимир Максимов]

Вот, сваял за 10 минут

PHP код:

    str DelLR(str s)
{
    int k;
    // Ведущие переводы строки
    s = strLTrim(s);
    k = strScan(s,'\n',1,strLen(s));
    while (k == 1)
    {
        s = strDel(s,k,1);
        s = strLTrim(s);
        k = strScan(s,'\n',1,strLen(s));
    }
    // Концевые переводы строки
    s = strRTrim(s);
    k = strScan(s,'\n',strLen(s),-strLen(s));
    while (k == strLen(s))
    {
        s = strDel(s,k,1);
        s = strRTrim(s);
        k = strScan(s,'\n',strLen(s),-strLen(s));
    }
    return s;
} 


Или так, через перебор строк. Правда, в этом случае удаляются вообще все пустые строки. Не только ведущие и концевые

PHP код:

    str DelLR2(str s)
{
    int k,z;
    str s1,s2;

    // Количество строк
    k = strScan(s,'\n',1,strLen(s));
    while (k)
    {
        z++;
        k = strScan(s,'\n',k+1,strLen(s));
    }
    
    // Удаление пустых строк
    for(k=1;k<=z;k++)
    {
        s1 = strLTrim(strRTrim(strLine(s,k)));
        if (s1 != '')
        {
            s2 += '\n'+s1;
        }
    }

    // Проверка на отсутсвие перевода строк
    if (z)
    {
        s2 = subStr(s2,2,strLen(s2)-1);
    }
    else
    {
        s2 = strLTrim(strRTrim(s));
    }

    return s2;
}