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

[NJD]

У меня формируется строка.
out = "

qudhqweud
wedfwed

";
Есть функция, которая отрубит пустые строки справа и слева? Спасибо.

[Dron AKA andy]

strRem(out, '\n');

[Alks]

попробуй strrtrim( strltrim( ... ) )

[simply]

ведущие пробелы уберет str StrLTrim (str text)

ведомые пробелы уберет str StrRTrim (str text)

последний символ \n убирается при присвоении ... а символы ACII(10) перевод каретки что у тебя в середине строки... я убирал перебром символов строки... функции замены я не нашел... может плохо искал...

[simply]

Цитата:

Изначально опубликовано Dron AKA andy
strRem(out, '\n');

тогда получится строка типа out = "qudhqweudwedfwed";

потому что убив перевод строки ты ни чего не подставляешь... пользователи не оставляют пробелов преждне чем клацнуть на ентер...

[simply]

Если не найдешь ни чего более красивого... попробуй вот так:

str RemEx (str strStringIn)
{
str strStringOut='';
int iLoopString;

;

for(iLoopString = 1;iLoopString <= StrLen(strStringIn);iLoopString++)
{

if ( Char2Num (strStringIn,iLoopString) == 10 ) strStringOut += '';
else strStringOut += substr( strStringIn,iLoopString,1);
}
return strStringOut;
}

[NJD]

StrLTrim и StrRTrim - они пробелы откидывают.

[Wamr]

PHP код:

    while(i<100)
    {
        if(strLine(out, i) != '')
            s = s + (s ? '\n' : '') + strLine(out, i);
        i++;
    }
    info(s); 


Порубает все пустые строки, если всего строк < 100

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

Вот, сваял за 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;
} 


[Ruff]

Было, делал нечто похожее.
Вот еще один вариант:

PHP код:

    static void emptyLinesTrim(Args _args)
    {
        str tst = "\n\nстрока с пробелом\nвторая строка\n\nчетвертая строка\n\n\n";
        ;
        BOX::info('<' + tst + '>');
    
        tst = strReplace(tst, "\n", "  "); // два пробела (или больше)
        tst = strLRTrim(tst);
        tst = strReplace(tst, "  ", "\n"); // восстановим неконцевые переводы строк
    
        BOX::info('<' + tst + '>');
    } 


[Wamr]

Ruff, у меня была такая же идея, но потом я заметил, что strReplace - X++ функция в Global. В результате вариант показался не "простым"

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

Ruff
У этого способа тот недостаток, что в тексте символьной строки вполне может оказаться то количество пробелов на которое происходит замена символа перевода строки.

Например, вставили меджу текстовыми строками пустую строку из 20 символов. И что получится после Вашего кода?

Кроме того, сам код функции strReplace относительно сложен. Так что вопрос "зачем так сложно" автоматически переадресуется к коду strReplace. Ну, разве что, он уже написан.

[mazzy]

посмотрите хелп разработчика по функции match
попробуйте использовать эту функцию

Character Description
\
A backslash causes a specific character to be matched. For example, "\$" matches a dollar sign.
< or ^
A 'less than' (<) sign or a circumflex (^) at the start of an expression is used to match the start of a line.
> or & A 'greater than' (>) sign or an ampersand (&) at the end of the expression is used to match the end of a line.
? or . A question mark (?) or a full stop (.) will match any character (except Enter, new line).
:x A colon specifies a group of characters to be matched, indicated by the character which follows immediately after.
:a sets the match to letters
:d sets the match to numeric characters
:n sets the match to alphanumeric characters
:SPACE sets the match to blanks, tabulations, and control characters such as Enter (new line).
* An expression followed by an asterisk requires a match for none or several occurrences of the expression.
For example, "fo*" will locate "f", "fo", "foo" etc.
+
An expression followed by a plus (+) sign requires a match for one or several occurrences of the expression.
For example, "fo+" matches "fo" etc.
-
An expression followed by a minus (-) sign requires a match for no or one occurrence of the expression.
For example, "fo-" matches "f" and "fo".
[]
A string of characters enclosed within square brackets specifies that a match is required for every character in this text, and only for these characters.
For example, "[xyz]" matches "xx" and "zyx" etc.
A string of characters can be specified by two characters separated by '-' (minus).
For example, "[a-z]" matches all letters, whereas "[z-a]" never matches.
[^]
If the first character in a text within square brackets is a circumflex (^) then the expression matches all characters except Enter (new line) and the characters in the string.
For example, "[^xyz]" matches "abc" but not "axb".

[NJD]

Тут я почитал всё это...
Вспомнилось СокрЛП("стр");
Кто знает - тот поймет

[Ruff]

Цитата:

Изначально опубликовано Владимир Максимов
Ruff
У этого способа тот недостаток, что в тексте символьной строки вполне может оказаться то количество пробелов на которое происходит замена символа перевода строки.
Например, вставили меджу текстовыми строками пустую строку из 20 символов.

Согласен. Но я лишь предложил конкретное решение для конкретной задачи. Более того, где в реальной жизни может встретиться текст с большим кол-вом идущих подряд пробелов? Разве что в старых ДОС-овских программах (хотя, если не ошибаюсь, даже старый добрый Лексикон умел схлопывать лишние пробелы, заменяя их табуляцией и переводом каретки).

Давайте зададим 100, 200 пробелов для пущей надежности . Все зависит от критичности данной функции с т.з. быстродействия. Может она будет вызываться раз в день, так что в этом плохого?

Цитата:

Изначально опубликовано Wamr
...но потом я заметил, что strReplace - X++ функция в Global. В результате вариант показался не "простым"

Цитата:

Изначально опубликовано Владимир Максимов
Кроме того, сам код функции strReplace относительно сложен. Так что вопрос "зачем так сложно" автоматически переадресуется к коду strReplace. Ну, разве что, он уже написан.

Вот в том-то и дело, что уже написан. Под словом "сложно" я не имел ввиду скорость обработки, скорее речь шла о "читабельности" кода. Абсолютно согласен, что в большинстве случаев код, написанный "с нуля" будет наиболее оптимальным. Но это не должно заставять отказываться от использования готовых наработок.

Mazzy,
функция match, конечно привлекательна. Но, к сожалению, только для поиска. Чтобы сделать в тексте "умную" замену, все-равно приходится в той или иной мере прибегать к обсуждавшимся здесь "выкрутасам" .
Может, я недостаточно с этим разобрался...

[Maxim Gorbunov]

Цитата:

Изначально опубликовано Ruff
функция match, конечно привлекательна. Но, к сожалению, только для поиска.

А для замены есть TextBuffer.

PHP код:

TextBuffer textBuffer = new TextBuffer();
;
textBuffer.setText("\n\nText line 1\n\nTextLine3\n\n\n");
textBuffer.regularExpressions(true);
textBuffer.replace("<: +", "");
textBuffer.replace(": +>", "");
info(textBuffer.getText()); 


[Ruff]

Красиво! Спасибо!

Век живи - век учись...

[Alks]

Цитата:

NJD Тут я почитал всё это...
Вспомнилось СокрЛП("стр");
Кто знает - тот поймет

Понимаю. Вот что тебе нужно (работает именно как СокрЛП())

PHP код:

public static str removeLRSpaces( str s )
{
    str c;
    int l = 0, r = strlen( s ) + 1;
    do {
        l++;
        c = substr( s, l, 1 );
    } while ( c != "" && (c == " " || c == "\n" || c == "\r" || c == "\t") );
    do {
        r--;
        c = substr( s, r, 1 );
    } while ( r > 0 && (c == " " || c == "\n" || c == "\r" || c == "\t") );
    return l <= r ? substr( s, l, r - l + 1 ) : "";
} 


В отличие от axapta-вских strr/ltrim оно понимает под пробельными символами как пробелы, так и переводы строк с возвратами каретки и табуляцией иже с ними. И работает именно так как тебе надо без побочных эффектов, коими обладает половина здесь приведенных решений.

[Alks]

Да, действительно решение с TextBuffer в пять строк решает проблему, хотя и использует объект для своей реализации.
Кстати - а в стандартных доках есть помощь по регулярным выражениям в TextBuffer???

[Maxim Gorbunov]

Они совпадают с регулярными выражениями в функции match. См. справку по этой функции.