Fråga : ändra vbs kodifierar för att förminska fortlöpande utrymmen för multipel till ett utrymme

Kodifiera formaterar efter en text sparar till en CSV. Kan den ändras, så att några grupper av fortlöpande utrymmen inbäddade i sätter in förminskas till ett utrymme? objFSO för

Set för
(dvs. ”hur är du” till ”hur är du”), = CreateObject (”Scripting.FileSystemObject”)
myFile = ”c:\macros\aces\claim13.tx objFile
Set för t” =
Do för objFSO.OpenTextFile (myFile, 1), tills mitt-, klippning för
WScript.Echo för objFile.AtEndOfStream-
line=objFile.ReadLine ((fodra, 1.2)), &”, ”& mitt-, klippning ((fodra, 3.2)), &”, ”& mitt-, klippning ((fodra, 5.200)),lämnade stunder för
för
Function Trim0 för
Loop (s, 1) = ”0” OCH
för s-<>"" s = (s, Len-1)
Wend rätt
Trim0 = s-
End Function " klar "

Svar : ändra vbs kodifierar för att förminska fortlöpande utrymmen för multipel till ett utrymme

Jag skulle gör något som var lik:

    Gör stunder InStr (str, ””) > 0
        stren = byter ut (stren, ””,” ”)
    Kretsa

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

Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”) 
myFile = ”c:\macros\aces\claim13.txt”, 
Fastställdt objFile = myFile objFSO.OpenTextFile (, 1) 
Gör till objFile.AtEndOfStream 
  line=objFile.ReadLine 
  WScript.Echo-trimspace (fodra),
Kretsa 
Fungera trimspace (str som stränger) som stränger
    Gör stunder InStr (str, ”  ”) > 0
        stren = byter ut (stren, ”  ”,” ”)
    Kretsa
    trimspace = str
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us