Функция LTrimChar

LTrimChar

Удаляет указанные символы слева.

LTrimChar(String$ [, TrimChar$ = #CRLF$ + #TAB$ + #FF$ + #VT$ + " "] )

Параметры

String$	Строка для обработки
TrimChar$	Строка содержащая символы, которые будут удалены. Если не указано будут удалены пробельные символы (пробел, табуляция, переносы строк и т.д.)

Возвращаемое значение

Возвращает изменённую строку или исходную если ничего не найдено.

См. также

RTrimChar, TrimCharsToString

Пример

EnableExplicit

; https://www.purebasic.fr/english/viewtopic.php?t=79183
Procedure.s LTrimChar(String$, TrimChar$ = #CRLF$ + #TAB$ + #FF$ + #VT$ + " ")
    Protected *memChar, *c.Character, *jc.Character

    If Not Asc(String$)
        ProcedureReturn ""
    EndIf

    *c.Character = @String$
    *memChar = @TrimChar$

    While *c\c
        *jc.Character = *memChar

        While *jc\c
            If *c\c = *jc\c
                *c\c = 0
                Break
            EndIf
            *jc + SizeOf(Character)
        Wend

        If *c\c
            String$ = PeekS(*c)
            Break
        EndIf
        *c + SizeOf(Character)
    Wend

    ProcedureReturn String$
EndProcedure

Define String$
String$ = #CRLF$ + #CRLF$ + #CRLF$ + #TAB$ + #FF$ + #VT$ + " " + "test"
Debug "|" + LTrimChar(String$) + "|"
String$ = "\/\/\/\/" + "C:\folder"
Debug "|" + LTrimChar(String$, "\/") + "|"
String$ = #CRLF$ + #CRLF$ + #CRLF$ + #TAB$ + #FF$ + #VT$ + " "
Debug "|" + LTrimChar(String$) + "|"