Convertir varios ficheros RTF en TXT con PowerShell, seleccionar todas las líneas que contengan un carácter, partir por espacio para obtener todas las palabras, después agrupar el resultado partido ordenando por nombre y realizar operaciones sobre las cadenas del resultado | Operating systems, scripting, PowerShell and security

PowerShell, Strings

cd E:\aleman\barceladaantonescu\dplus

rm *.txt

$total = ""
$total = foreach($fichero in ls E:\aleman\barceladaantonescu\dplus)
{
    $rtf = New-Object System.Windows.Forms.RichTextBox
    $rtf.Rtf = [System.IO.File]::ReadAllText($fichero.FullName)
    $rtf.Text | Out-File $fichero.FullName.replace(".rtf",".txt")

    foreach($linea in gc $fichero.FullName.replace(".rtf",".txt"))
    {
        if($linea | Select-String ":")
        {
            # Me quedo con la parte interesante
            $partir = $linea.split(":")
            # De la parte interesante saco las palabras separando por espacio
            $partir[1..$partir.Length].split(" ")
        }
    }
}

# Resultado en bruto
$total | Group-Object | Sort-Object Name -Descending -CaseSensitive

# - Quitar signos de putuación y similar
$patron = '[^a-zA-Zá-úÁ-Úäöü`]'
$total -replace $patron, '' | Group-Object | Sort-Object Name -Descending -CaseSensitive

# Con todas la palabras en una variables, se realizan las siguientes operaciones:
# - Mostrar las palabras que tengan como primera letra una mayúscula quitando signos de puntuación
foreach ($palabra in ($total -replace $patron, '' | Group-Object | Sort-Object Name -Descending -CaseSensitive).name)
{
    if($palabra[0] -cmatch '^([A-Z])')
    {
        $palabra
    }
}

cd E:\aleman\barceladaantonescu\dplus

rm *.txt

$total = ""

$total = foreach($fichero in ls E:\aleman\barceladaantonescu\dplus)

{

$rtf = New-Object System.Windows.Forms.RichTextBox

$rtf.Rtf = [System.IO.File]::ReadAllText($fichero.FullName)

$rtf.Text | Out-File $fichero.FullName.replace(".rtf",".txt")

foreach($linea in gc $fichero.FullName.replace(".rtf",".txt"))

{

if($linea | Select-String ":")

{

# Me quedo con la parte interesante

$partir = $linea.split(":")

# De la parte interesante saco las palabras separando por espacio

$partir[1..$partir.Length].split(" ")

}

# Resultado en bruto

$total | Group-Object | Sort-Object Name -Descending -CaseSensitive

# - Quitar signos de putuación y similar

$patron = '[^a-zA-Zá-úÁ-Úäöü`]'

$total -replace $patron, '' | Group-Object | Sort-Object Name -Descending -CaseSensitive

# Con todas la palabras en una variables, se realizan las siguientes operaciones:

# - Mostrar las palabras que tengan como primera letra una mayúscula quitando signos de puntuación

foreach ($palabra in ($total -replace $patron, '' | Group-Object | Sort-Object Name -Descending -CaseSensitive).name)

{

if($palabra[0] -cmatch '^([A-Z])')

{

$palabra

}

Convertir varios ficheros RTF en TXT con PowerShell, seleccionar todas las líneas que contengan un carácter, partir por espacio para obtener todas las palabras, después agrupar el resultado partido ordenando por nombre y realizar operaciones sobre las cadenas del resultado (Strings, PowerShell)

LIBRO DE POWERSHELL

LO ÚLTIMO

VÍDEOS