VBSCRIPT: Eliminare spazi bianchi ricorsivi in un file testo

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