Как добавить n-ое количество одинаковых символов в конец строки?

$Dot = ""
$iRandom = Random(0,5)
For $i = 1 to $iRandom
 $Dot &= "." ;не помню chr код точки
Next
$String = $text & $Dot

#include <String.au3>

$sStr = "Scaning" & _StringRepeat(".", 3)
ConsoleWrite($sStr & @LF)

$Count = Number(Inputbox ("title","Enter the number!"))
$text = "some text here"
$n = Random (0,$Count)
For $i = 1 to $n
$text = $text&"."
Next
GUICtrlCreateLabel($text, $left, $top)

$sString = 'String'
$iCount = 3

For $i = 0 To $iCount - 1
	$sString = StringRegExpReplace($sString, '(\.$|[^.]$)', '\1.')
Next

ConsoleWrite("Result: " & $sString & @LF)

$Count = 3
ConsoleWrite(StringReplace('Scaning' & StringFormat('%' & $Count & 's', ''), ' ', '.') & @CR)

$sString = 'Scaning' &  _Dots(3)
ConsoleWrite($sString & @LF)

Func _Dots($iCount)
	Return StringReplace(StringFormat('%' & $iCount & 's', ''), ' ', '.')
EndFunc

HotKeySet('{Esc}', '_Exit')
While 1
	For $i = 1 To 5
		Sleep(200)
		ConsoleWrite(_Append('Подождите, пока Test закончится.', 'Test', '.', $i) & @LF)
	Next
	For $i = 4 To 0 Step -1
		Sleep(200)
		ConsoleWrite(_Append('Подождите, пока Test закончится.', 'Test', '.', $i) & @LF)
	Next
WEnd

Func _Append($s_Text, $s_String, $s_Add, $i_Number, $f_Start = False)
	Local $s_AddString
	If Not StringInStr($s_Text, $s_String) Then Return $s_Text
	$i_Number = Number($i_Number)
	If Not $i_Number Then Return $s_Text
	For $i = 1 To $i_Number
		$s_AddString &= $s_Add
	Next
	If $f_Start Then Return StringReplace($s_Text, $s_String, $s_AddString & $s_String)
	Return StringReplace($s_Text, $s_String, $s_String & $s_AddString)
EndFunc   ;==>_Append

Func _Exit()
	Exit
EndFunc   ;==>_Exit

$sText = "Scaning"
$n20="...................."
$iCount=5
$sPatern = "([^.]+\.{" & $iCount & "}).+"
$sResult = StringRegExpReplace( $sText & $n20, $sPatern, '\1' )
MsgBox(4096, ' Test Result', $sResult)