Questione : modificare il codice dei vbs per ridurre gli spazi continui multipli ad uno spazio

Il seguente codice formatta una lima di testo ad un CSV. Può essere modificato in moda da ridurre tutti i gruppi di spazi continui inclusi nei campi ad uno spazio? objFSO del

Set del
(cioè “come siete„ “come siete„) =
leSystemObject„)/>myFile = “c:\macros\aces\claim13.tx al
Set del t„ objFile = objFSO.OpenTextFile (myFile, 1)
Do fino alla disposizione del
WScript.Echo del
line=objFile.ReadLine di objFile.AtEndOfStream (metà di (linea, 1.2)) &„, “& disposizione (metà di (linea, 3.2)) &„, “& disposizione (metà di (linea, 5.200))
del
Function Trim0 del
Loop mentre andato (s, 1) = “0„ E
del "" del <> di s s = giusto (s, Len-1)
Wend il
Trim0 =
End Function di s class= del

Risposta : modificare il codice dei vbs per ridurre gli spazi continui multipli ad uno spazio

Farei qualcosa come:

    Fare mentre InStr (streptococco, “") > 0
        lo streptococco = sostituisce (streptococco, ““,„ ")
    Ciclo

Chris
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„) 
myFile = “c:\macros\aces\claim13.txt„ 
objFile stabilito = objFSO.OpenTextFile (myFile, 1) 
Fare fino a objFile.AtEndOfStream 
  line=objFile.ReadLine 
  Trimspace di WScript.Echo (linea)
Ciclo 
Trimspace di funzione (streptococco come stringa) come stringa
    Fare mentre InStr (streptococco, “  ") > 0
        lo streptococco = sostituisce (streptococco, “  “,„ ")
    Ciclo
    trimspace = streptococco
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us