Frage : vbs Code ändern, um mehrfache ununterbrochene Räume auf einem Raum zu verringern

Der folgende Code formatiert eine Textdatei zu einem CSV. Kann er geändert werden, damit alle mögliche Gruppen der ununterbrochenen Räume, die auf den Gebieten eingebettet, auf einem Raum verringert?
(d.h. „, wie Sie“ „sind, wie Sie“ sind),

Set objFSO = CreateObject („Scripting.FileSystemObject“)
myFile = „c:\macros\aces\claim13.tx t“ zum
Set objFile = objFSO.OpenTextFile (myFile, 1)
Do bis objFile.AtEndOfStream
line=objFile.ReadLine
WScript.Echo die Ordnung (mittler (Linie, 1.2)) u.“, „u. Ordnung (mittler (Linie, 3.2)) u.“, „u. Ordnung (mittler (Linie, 5.200))
Loop
Function Trim0
, während Sie verlassen (s, 1) = „0“ UND s <> ""
s = rechtes (s, Len-1)
Wend
Trim0 = s
End Function

Antwort : vbs Code ändern, um mehrfache ununterbrochene Räume auf einem Raum zu verringern

Ich tun etwas wie:

    Tun während InStr (str, „") > 0
        str = ersetzen (str, „„,“ ")
    Schleife

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

objFSO = CreateObject („Scripting.FileSystemObject“) einstellen 
myFile = „c:\macros\aces\claim13.txt“ 
Gesetztes objFile = objFSO.OpenTextFile (myFile, 1) 
Bis objFile.AtEndOfStream tun 
  line=objFile.ReadLine 
  WScript.Echo trimspace (Linie)
Schleife 
Funktion trimspace (str als Schnur) als Schnur
    Tun während InStr (str, „  ") > 0
        str = ersetzen (str, „  „,“ ")
    Schleife
    trimspace = str
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us