Vraag : wijzig vbs code om veelvoudige ononderbroken ruimten tot één ruimte te verminderen

De volgende code formatteert een tekstdossier aan een CSV. Kan het zodat om het even welke groepen ononderbroken ruimten ingebed op de gebieden tot één ruimte worden gewijzigd worden verminderd?
(d.w.z. „hoe u“ aan „bent hoe u“) bent

Set objFSO = CreateObject („Scripting.FileSystemObject“)
myFile = „objFile c:\macros\aces\claim13.tx t“
Set = objFSO.OpenTextFile (myFile, 1)
Do tot objFile.AtEndOfStream
Medio line=objFile.ReadLine
WScript.Echo Versiering ((lijn, 1.2)) &“, „& Medio Versiering ((lijn, 3.2)) &“, „& Medio Versiering ((lijn, 5.200))
Loop
Function Trim0
terwijl Verlaten (s, 1) = „0“ EN s <> ""
s = Juiste (s, len-1)
Wend
Trim0 = s
End Function

Antwoord : wijzig vbs code om veelvoudige ononderbroken ruimten tot één ruimte te verminderen

Ik zou iets als doen:

    Doe terwijl InStr (streptokok, „„) > 0
        de streptokok = vervangt (streptokok, „„,“ „)
    Lijn

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

Reeks objFSO = CreateObject („Scripting.FileSystemObject“) 
myFile = „c:\macros\aces\claim13.txt“ 
Vastgestelde objFile = myFile objFSO.OpenTextFile (, 1) 
Doe tot objFile.AtEndOfStream 
  line=objFile.ReadLine 
  WScript.Echo trimspace (lijn)
Lijn 
Functie trimspace (streptokok als Koord) als Koord
    Doe terwijl InStr (streptokok, „  „) > 0
        de streptokok = vervangt (streptokok, „  „,“ „)
    Lijn
    trimspace = streptokok
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us