RepeatStrN

Повторяет указанную строку заданное число раз.

RepeatStrN(str$, n)

Параметры

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

См. также

Пример

EnableExplicit

Procedure.s RepeatStrN(str$, n)
    Protected *mem, *pos, i, Text$, Length
    Length = StringByteLength(str$, #PB_Unicode)
    If Length = 0 Or n = 0
        ProcedureReturn ""
    EndIf
    *mem = AllocateMemory(n * Length + 2, #PB_Memory_NoClear)
    If *mem
        *pos = *mem
        For i = 1 To n
            PokeS(*pos, str$, Length, #PB_String_NoZero + #PB_Unicode)
            *pos + Length
        Next
        PokeC(*pos , 0)
        Text$ = PeekS(*mem, -1, #PB_Unicode)
        FreeMemory(*mem)
    EndIf
    ProcedureReturn Text$
EndProcedure

Debug RepeatStrN( "_1_2", 5)