Question : modifier le code de vbs pour ramener les espaces continus multiples à l'un espace

Le code suivant compose un dossier des textes à un CSV. Peut-il être modifié de sorte que tous les groupes des espaces continus inclus dans les domaines soient réduits à l'un espace ? objFSO du

Set du
(c.-à-d. « comment allez vous » « comment allez vous ») =
leSystemObject »)/>myFile = « c:\macros\aces\claim13.tx au
Set de t » objFile = objFSO.OpenTextFile (myFile, 1)
Do jusqu'à l'équilibre de
WScript.Echo de
line=objFile.ReadLine d'objFile.AtEndOfStream (mi (ligne, 1.2)) et », « et équilibre (mi (ligne, 3.2)) et », « et équilibre (mi (ligne, 5.200))
du
Function Trim0 du
Loop tandis que parti (s, 1) = « 0 » ET
de "" de <> de s s = le bon (s, Len-1)
Wend le
Trim0 =
End Function de s class= de

Réponse : modifier le code de vbs pour ramener les espaces continus multiples à l'un espace

Je ferais quelque chose comme :

    Faire tandis qu'InStr (streptocoque, « ") > 0
        le streptocoque = remplacent (streptocoque, « « , » ")
    Boucle

Chris

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

Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject ») myFile = « c:\macros\aces\claim13.txt » objFile réglé = objFSO.OpenTextFile (myFile, 1) Faire jusqu'à objFile.AtEndOfStream line=objFile.ReadLine Trimspace de WScript.Echo (ligne) Boucle Trimspace de fonction (streptocoque comme corde) comme corde Faire tandis qu'InStr (streptocoque, «  ") > 0 le streptocoque = remplacent (streptocoque, «  « , » ") Boucle trimspace = streptocoque Fonction de fin