This repository has been archived by the owner on Sep 30, 2022. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
_String.au3
34 lines (31 loc) · 1.65 KB
/
_String.au3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#include <Array.au3>
#cs Function List
_String_GenerateString - Generowanie ciągu znaków
_String_Trim - Czyszczenie ciągu
#ce Function List
; #INDEX# =======================================================================================================================
; Title .........: Generowanie ciągu znaków
; Description ...: Zwraca wygenerowany ciąg znaków
; Author(s) .....: Krzysztof Żyłka
; ===============================================================================================================================
Func _String_GenerateString($charcount = 10)
Local $string = Null, $chr = Null
Local $char[] = ['q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', 'a', 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'z', 'x', 'c', 'v', 'b', 'n', 'm']
For $i = 1 To $charcount
$chr = $char[Random(0, Round(UBound($char)))]
If Round(Random()) == 1 Then $chr = StringUpper($chr)
$string &= $chr
Next
Return $string
EndFunc ;==>_String_GenerateString
; #INDEX# =======================================================================================================================
; Title .........: Czyszczenie ciągu
; Description ...: Usuwa zbędne znaki ze zmiennej
; Author(s) .....: Krzysztof Żyłka
; ===============================================================================================================================
Func _String_Trim($string)
Local $chr[] = [" ", " ", @CRLF, @CR, @LF, @TAB]
If _ArraySearch($chr, StringLeft($string, 1)) > -1 Then $string = StringRight($string, StringLen($string) - 1)
If _ArraySearch($chr, StringRight($string, 1)) > -1 Then $string = StringLeft($string, StringLen($string) - 1)
Return $string
EndFunc