Categoria: Software&Code

VBSCRIPT: Eliminare spazi bianchi ricorsivi in un file testo

Daniele

Come eliminare spazi bianchi ricorsivi con VBSCRIPT in un file testo

In questo articolo, forniamo il codice VBScript che permetterà la sostituzione di  spazi bianchi ricorsivi tra parole con un solo spazio. Al termine della sostituzione, archivierà il contenuto modificato in un nuovo file.

Utilizzo di Regular expressions per la ricerca di blank

Nello script sotto utilizziamo La funzione RemoveMultipleSpacesche utilizza espressioni regolari per rimuovere “spazi bianchi” multipli.

VBScript Code


Option Explicit

Dim inputFile, outputFile
Dim objFSO, objInputFile, objOutputFile
Dim strContent

' Specifica il percorso del tuo file di input e output
inputFile = "C:\Users\cartella\nominativi.txt"
outputFile = "C:\Users\cartella\file_senza_spazi_multipli.txt"

' Crea un oggetto File System
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Verifica se il file di input esiste
If objFSO.FileExists(inputFile) Then
    ' Apre il file di input in modalità lettura
    Set objInputFile = objFSO.OpenTextFile(inputFile, 1)
    
    ' Legge il contenuto del file
    strContent = objInputFile.ReadAll
    
    ' Chiude il file di input
    objInputFile.Close
    
    ' Rimuove gli spazi multipli
    strContent = RemoveMultipleSpaces(strContent)
    
    ' Apre il file di output in modalità scrittura
    Set objOutputFile = objFSO.CreateTextFile(outputFile, True)
    
    ' Scrive il contenuto nel file di output
    objOutputFile.Write strContent
    
    ' Chiude il file di output
    objOutputFile.Close
    
    WScript.Echo "Spazi multipli rimossi con successo."
Else
    WScript.Echo "Il file di input non esiste."
End If

' Funzione per rimuovere gli spazi multipli
Function RemoveMultipleSpaces(inputText)
    Dim regex
    Set regex = New RegExp
    regex.Global = True
    regex.Pattern = "\s+"
    RemoveMultipleSpaces = regex.Replace(inputText, " ")
End Function

Vbscript: cerca ed estrai e-mail da un file testo

Daniele

Cercare con VBSCRIPT  e-mail in un file testo

VBScript (Visual Basic Scripting Edition) è un linguaggio di scripting basato su Visual Basic utilizzato per automazione e scripting in ambienti Windows.

In questo articolo, esamineremo un esempio di utilizzo di VBScript per estrarre indirizzi email da un file di testo e archiviarli in un nuovo file.

Utilizzo di Regular expressions per la ricerca di e-mail 

Nello script sotto utilizziamo La funzione FindEmailAddresses che utilizza espressioni regolari per individuare gli indirizzi email nel testo.

L’espressione regolare specificata cerca pattern di indirizzi email validi, includendo la parte locale, l’@ e il dominio.

VBScript Code

Option Explicit

Dim inputFile, outputFile
Dim objFSO, objInputFile, objOutputFile
Dim strContent, match, matches

' Specifica il percorso del tuo file di input e output
inputFile = "C:\Users\comodo\alemail.txt"
outputFile = "C:\Users\comodo\indirizzi_email.txt"

' Crea un oggetto File System
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Verifica se il file di input esiste
If objFSO.FileExists(inputFile) Then
    ' Apre il file di input in modalità lettura
    Set objInputFile = objFSO.OpenTextFile(inputFile, 1)
    
    ' Legge il contenuto del file
    strContent = objInputFile.ReadAll
    
    ' Chiude il file di input
    objInputFile.Close
    
    ' Chiama la funzione per cercare gli indirizzi email
    Set matches = FindEmailAddresses(strContent)
    
    ' Apre il file di output in modalità scrittura
    Set objOutputFile = objFSO.CreateTextFile(outputFile, True)
    
    ' Scrive gli indirizzi email nel file di output
    For Each match In matches
        objOutputFile.WriteLine match.Value
    Next
    
    ' Chiude il file di output
    objOutputFile.Close
    
    WScript.Echo "Indirizzi email trovati e salvati con successo."
Else
    WScript.Echo "Il file di input non esiste."
End If

' Funzione per cercare gli indirizzi email
Function FindEmailAddresses(inputText)
    Dim regex, matches
    Set regex = New RegExp
    regex.Global = True
    regex.IgnoreCase = True
    regex.Pattern = "\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Z|a-z]{2,}\b"
    
    Set matches = regex.Execute(inputText)
    Set FindEmailAddresses = matches
End Function