Public Function Replicate01(ByVal Number&, Pattern$) As String
' by Donald, donald@xbeat.net, 20001205
  Dim lenPattern As Long
  Dim posTarget As Long
  
  If Number > 0 Then
    lenPattern = Len(Pattern)
    If lenPattern Then
      Replicate01 = Space$(Number * lenPattern)
      For posTarget = 1 To Number * lenPattern Step lenPattern
        Mid$(Replicate01, posTarget) = Pattern
      Next
    End If
  End If

End Function

Public Function Replicate02(ByVal Number&, Pattern$) As String
' by Larry Serflaten, serflaten@usinternet.com, 20001205, rev 002
  
  If Number > 0 Then
    If Len(Pattern) = 1 Then
      Replicate02 = String$(Number, Pattern)
    Else
      Replicate02 = Pattern & Space$((Number - 1) * Len(Pattern))
      If Len(Replicate02) > Len(Pattern) Then
        Mid$(Replicate02, Len(Pattern) + 1) = Replicate02
      End If
    End If
  End If
  
End Function

Public Function Replicate03(ByVal Number&, Pattern$) As String
' by Larry Serflaten, serflaten@usinternet.com, 20001206, rev 002

  ' Trying a variable for Len(Parameter) because it is used at least
  ' twice, possibly 3 times.
  Dim LP As Long
  
  If Number > 0 Then
    LP = Len(Pattern)
    If LP = 1 Then
      Replicate03 = String$(Number, Pattern)
    Else
      Replicate03 = Pattern & Space$((Number - 1) * LP)
      If Len(Replicate03) > LP Then
        Mid$(Replicate03, LP + 1) = Replicate03
      End If
    End If
  End If
  
End Function

Public Function Replicate04(ByVal Number&, Pattern$) As String
' by G.Beckmann, G.Beckmann@NikoCity.de, 20001206

    Dim c&, cChars&
    If Number > 0 Then
        c = Len(Pattern)
        If c Then
            cChars = c * Number
            Replicate04 = BStrAPI.SysAllocStringLen(vbNullString, cChars)
            Mid$(Replicate04, 1, c) = Pattern

            Do Until c >= cChars
                Mid$(Replicate04, c + 1, c) = Replicate04
                c = c + c
            Loop
        End If
    End If
End Function

Public Function Replicate05(ByVal Number&, Pattern$) As String
' by Donald, donald@xbeat.net, 20001206, rev 002
' based on Replicate03 by Larry Serflaten, serflaten@usinternet.com, 20001206

  Dim LP As Long
  
  If Number > 0 Then
    LP = Len(Pattern)
    Select Case LP
    Case Is > 1
      Replicate05 = Space$(Number * LP)
      Mid$(Replicate05, 1, LP) = Pattern
      If Number > 1 Then
        Mid$(Replicate05, LP + 1) = Replicate05
      End If
    Case 1
      Replicate05 = String$(Number, Pattern)
    End Select
  End If
  
End Function

Public Function Replicate06(ByVal Number&, Pattern$) As String
' by Donald, donald@xbeat.net, 20001206
' based on Replicate03 by Larry Serflaten, serflaten@usinternet.com, 20001206
'          Replicate04 by G.Beckmann, G.Beckmann@NikoCity.de, 20001206

  Dim LP As Long
  
  If Number > 0 Then
    LP = Len(Pattern)
    If LP Then
      Replicate06 = BStrAPI.SysAllocStringLen(vbNullString, Number * LP)
      Mid$(Replicate06, 1, LP) = Pattern
      If Number > 1 Then
        Mid$(Replicate06, LP + 1) = Replicate06
      End If
    End If
  End If
  
End Function

Public Function Replicate07(ByVal Number&, Pattern$) As String
' by Peter Weighill, pweighill@btinternet.com, 20001206
' based on Replicate03 by Larry Serflaten, serflaten@usinternet.com, 20001206
'      and Replicate05 by Donald, donald@xbeat.net, 20001206

  Dim LP As Long

  If Number > 0 Then
    LP = Len(Pattern)
    If LP Then
      Replicate07 = String$(Number * LP, Pattern$)
      If LP > 1 Then
        Mid$(Replicate07, 1, LP) = Pattern
        If Number > 1 Then
          Mid$(Replicate07, LP + 1) = Replicate07
        End If
      End If
    End If
  End If

End Function

Private Declare Sub CopyMemLng Lib "kernel32.dll" Alias "RtlMoveMemory" ( _
        ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)

Public Function Replicate08(ByVal Number As Long, ByRef Pattern As String) As String
' by Nick Paldino, nicholas.paldino@exisconsulting.com, 20001206, rev 001 20011123

  ' Only Replicate if there is a desire to Replicate
  ' (the number of times is greater than zero).
  If (Number > 0) Then
    ' Get the length of the string (in bytes).
    Dim plngPatternLength As Long
    plngPatternLength = LenB(Pattern)
  
    ' Allocate the length of the string.
    Replicate08 = Space$(Number * Len(Pattern))
    ''was: Replicate08 = Space(Number * Len(Pattern))
    
    ' Store the bytes copied, as well as the bytes left.  The current number of bytes left
    ' is the length of the string in bytes.
    Dim plngBytesCopied As Long, plngBytesLeft As Long
    plngBytesLeft = LenB(Replicate08)
       
    ' The pointer to the beginning of the source string, and the destination string.
    ' Also store a pointer to the beginning of the replicated string.  This is where the
    ' already replicated string lies.
    Dim plngSourcePointer As Long, plngDestPointer As Long, plngOriginalDestPointer As Long
    plngSourcePointer = StrPtr(Pattern)
    plngOriginalDestPointer = StrPtr(Replicate08)
    plngDestPointer = plngOriginalDestPointer
       
    ' Copy the first section.
    CopyMemLng plngDestPointer, plngSourcePointer, plngPatternLength
    
    ' Increment and decrement for the first copy.
    plngBytesLeft = plngBytesLeft - plngPatternLength
    plngBytesCopied = plngPatternLength
    plngDestPointer = plngDestPointer + plngPatternLength
    
    ' Loop
    Do While (plngBytesCopied < plngBytesLeft)
      ' Copy the number of characters copied into the buffer at the next available space.
      CopyMemLng plngDestPointer, plngOriginalDestPointer, plngBytesCopied
      
      ' Reduce the characters left.
      plngBytesLeft = plngBytesLeft - plngBytesCopied
      
      ' Increment the destination pointer.
      plngDestPointer = plngDestPointer + plngBytesCopied
      
      ' Double the bytes copied.
      plngBytesCopied = plngBytesCopied * 2
    Loop
    
    ' Copy for the last time.
    CopyMemLng plngDestPointer, plngOriginalDestPointer, plngBytesLeft
  End If

  ' That's all folks.
End Function

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)


Public Function Replicate09(ByVal lNumber&, sPattern$) As String
' by Mike Peterson, mpeterson1200@yahoo.com, 20010910
'******************************************************************************
'Replication Function By: Mike Peterson
'Approach:  Use CopyMemory API in exponential increments, using recursion to handle (lNumber <> 2^n)
'Note: This function is fastest when lNumber is a power of 2.
'******************************************************************************
  If lNumber > 0 Then
      Dim i&, lPointer&, LP&

      'Allocate String Buffer
      LP = Len(sPattern)
      Replicate09 = Space$(LP * lNumber)
      
      'Do first CopyMem
      CopyMemory ByVal StrPtr(Replicate09), ByVal StrPtr(sPattern), LP * 2  '** Unicode=2 bytes
      lPointer = LP * 2: i = 1  'Count how many times we 've CopyMem'd

      'Here comes my new approach.........
      'CopyMem to buffer exponentially!!!
      While (2 ^ i) <= lNumber
          CopyMemory ByVal StrPtr(Replicate09) + lPointer, ByVal StrPtr(Replicate09), lPointer
          lPointer = lPointer + lPointer: i = i + 1
      Wend
      
      i = i - 1
      
      'If lNumber was not a power of 2, we'll have to recursively catch the rest.
      If (2 ^ i) <> lNumber Then
          Dim s$
          s = Replicate09(lNumber - (2 ^ i), sPattern) 'Recursion...
          'Last CopyMem
          CopyMemory ByVal StrPtr(Replicate09) + lPointer, ByVal StrPtr(s), LenB(s)
      End If
  End If
End Function

Public Function Replicate11(ByVal Number As Long, ByRef Pattern As String) As String
' by Donald, donald@xbeat.net, 20020527
' flexible strategy approach
' partly based on Replicate08 by Nick Paldino
  Dim lenPattern As Long
  Dim ptrSrc As Long
  Dim ptrDst As Long

  If Number > 0 Then
    lenPattern = Len(Pattern)
    Select Case lenPattern
    Case 0
    Case 1
      ' good call 4: Replicate(10000, "a")
      Replicate11 = String$(Number, Pattern)
    Case Is < 256 '256 is just an arbitrary limit
      ' good call 1: Replicate(10, "abc")
      ' bad  call 2: Replicate(10000, "abc")
      Replicate11 = FastString.SysAllocStringLen(ByVal 0&, Number * lenPattern)
      Mid$(Replicate11, 1, lenPattern) = Pattern
      If Number > 1 Then
        Mid$(Replicate11, lenPattern + 1) = Replicate11
      End If
    Case Else
      ' good call 3: Replicate(10, "abcdefhgijabcdefhgij...abcdefhgijabcdefhgij" (1000))
      Replicate11 = FastString.SysAllocStringLen(ByVal 0&, Number * lenPattern)
      ptrSrc = StrPtr(Pattern)
      ptrDst = StrPtr(Replicate11)
      lenPattern = lenPattern * 2
      For ptrDst = ptrDst To ptrDst + (Number - 1) * lenPattern Step lenPattern
        CopyMemLng ptrDst, ptrSrc, lenPattern
      Next
    End Select
  End If
End Function