LoremText.psm1

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
<#
.SYNOPSIS
LoremText is a text generator that can be used to create random text strings
formatted as paragraphs.
 
.DESCRIPTION
LoremText is a text generator that can be used to create random text strings
formatted as paragraphs.
 
.PARAMETER Paragraphs
Use this parameter to specify the overall nubmer of paragraphs created. If no
parameter is specified, a random number between 2 and 9 will be selected.
 
.PARAMETER Sentences
Use this parameter to specify the overall number of sentences per paragraph. If
no paramter is specified, a random number between 1 and 9 will be selected.
 
.PARAMETER Words
Use this parameter to specify the overall number of words per sentence. If no
parameter is specified, a random number between 5 and 17 will be selected.
#>


function LoremText
{
    param (
        [int]$Paragraphs,
        [int]$Sentences,
        [int]$Words)
        
    $TextInfo = (Get-Culture).TextInfo
    # Seed text words
    $LoremSeedText = ('a', 'ac', 'accumsan', 'ad', 'adipiscing', 'aenean', 'aliquam', 'aliquet', 'amet', 'ante', 'aptent', 'arcu', 'at', 'auctor', 'augue',
        'bibendum', 'blandit', 'Class', 'commodo', 'condimentum', 'congue', 'consectetur', 'consequat', 'convallis', 'cras', 'cubilia', 'cum', 'curabitur',
        'curae', 'cursus', 'dapibus', 'diam', 'dictum', 'dictumst', 'dignissim', 'dis', 'dolor', 'donec', 'dui', 'duis', 'egestas', 'eget', 'egetongue',
        'eleifend', 'elementum', 'elit', 'enim', 'erat', 'eros', 'est', 'et', 'etiam', 'eu', 'euismod', 'facilisi', 'facilisis', 'fames', 'faucibus',
        'felis', 'fermentum', 'feugiat', 'fringilla', 'fusce', 'gravida', 'habitant', 'habitasse', 'hac', 'hendrerit', 'himenaeos', 'iaculis', 'id',
        'Imperdiet', 'in', 'inceptos', 'integer', 'interdum', 'ipsum', 'justo', 'lacinia', 'lacus', 'laoreet', 'lectus', 'leo', 'libero', 'ligula',
        'litora', 'lobortis', 'Lorem', 'luctus', 'maecenas', 'magna', 'magnis', 'malesuada', 'Massa', 'mattis', 'mauris', 'metus', 'mi', 'molestie',
        'mollis', 'Montes', 'morbi', 'mus', 'nam', 'Nascetur', 'natoque', 'nec', 'neque', 'netus', 'nibh', 'nisi', 'nisl', 'non', 'nostra', 'nulla',
        'nullam', 'nunc', 'odio', 'orci', 'ornare', 'parturient', 'pellentesque', 'penatibus', 'penultimate', 'per', 'pharetra', 'phasellus', 'placerat',
        'platea', 'porta', 'porttitor', 'posuere', 'potenti', 'praesent', 'pretium', 'primis', 'proin', 'pulvinar', 'purus', 'quam', 'quis', 'quisque',
        'rabincuis', 'rehbartum', 'rhoncus', 'ridiculus', 'risus', 'Rutrum', 'sagittis', 'sapien', 'scelerisque', 'sed', 'sem', 'semper', 'senectus', 'sit',
        'sociis', 'sociosqu', 'sodales', 'sollicitudin', 'suscipit', 'suspendisse', 'taciti', 'tellus', 'tempor', 'tempus', 'tincidunt', 'torquent',
        'torqulent', 'tortor', 'tristique', 'turpis', 'ullamcorper', 'ultrices', 'ultricies', 'urna', 'ut', 'varius', 'vehicula', 'vel', 'velit',
        'venenatis', 'vestibulum', 'vitae', 'vivamus', 'viverra', 'volutpat', 'vulputate')
    
    # Paragraphs per data set
    $ParagraphMinSeed = Get-Random -Minimum 2 -Maximum 4
    $ParagraphMaxSeed = Get-Random -Minimum 5 -Maximum 9
    
    # Minimum number of sentences per paragraph
    $SentencePerParaMinSeed = Get-Random -Minimum 1 -Maximum 4
    $SentencePerParaMaxSeed = Get-Random -Minimum 5 -Maximum 9
    
    # Mininum number of words per sentence
    $WordsPerSentenceMinSeed = Get-Random -Minimum 5 -Maximum 8
    $WordsPerSentenceMaxSeed = Get-Random -Minimum 9 -Maximum 17
    
    $MessageBody = New-Object System.Text.StringBuilder
    # Generate the number of paragraphs for this data set
    If (!$Paragraphs) { [int]$Paragraphs = Get-Random -Minimum $ParagraphMinSeed -Maximum $ParagraphMaxSeed }
    foreach ($p in (1 .. $Paragraphs))
    {
        # Generate the number of sentences per paragraph for this data set
        If (!$Sentences) { [int]$Sentences = Get-Random -Minimum $SentencePerParaMinSeed -Maximum $SentencePerParaMaxSeed }
        foreach ($s in (1 .. $Sentences))
        {
            # Generate the number of words per sentence for this data set
            If (!$Words) { [int]$Words = Get-Random -Minimum $WordsPerSentenceMinSeed -Maximum $WordsPerSentenceMaxSeed }
            
            # Create the sentence object
            $Sentence = New-Object System.Text.StringBuilder
            
            # Add words to the sentence
            Foreach ($w in (1 .. $Words))
            {
                $Sentence.Append(" ").Append((Get-Random -InputObject $LoremSeedText)) | Out-Null
            }
            # Add the trailing period, convert to a string, trim the empty space
            # at the beginning
            $Sentence.Append(". ") | Out-Null
            $Sentence = $Sentence.ToString()
            $Sentence = $Sentence.TrimStart()
            
            # Capitalize the first word of the sentence.
            $Sentence = $Sentence.Substring(0, 1).ToUpper() + $Sentence.SubString(1)
            
            # Add the sentence to the email message body text.
            $MessageBody.Append($Sentence) | Out-Null
        }
        # Append two CRLFs to Paragraph
        $MessageBody.Append("`r`n`r`n") | Out-Null
    }
    $MessageBody = $MessageBody.ToString()
    Return $MessageBody
}
Export-ModuleMember -Function LoremText