Cuestión : modificar el código de los vbs para reducir espacios continuos múltiples a un espacio

El código siguiente da formato a un archivo de texto a un CSV. ¿Puede ser modificado para reducir cualquier grupo de espacios continuos encajados en los campos a un espacio? objFSO del

Set del
(es decir “cómo está usted” “cómo está usted”) =
leSystemObject”)/>myFile = “c:\macros\aces\claim13.tx a
Set del t” objFile = objFSO.OpenTextFile (myFile, 1)
Do hasta el ajuste del
WScript.Echo del
line=objFile.ReadLine de objFile.AtEndOfStream (mediados de (línea, 1.2)) y”, “y ajuste (mediados de (línea, 3.2)) y”, “y ajuste (mediados de (línea, 5.200))
del
Function Trim0 del
Loop mientras que está ido (s, 1) = “0” Y el
del "" del <> de s s = (s, Len-1) el
Wend el
Trim0 = el
End Function de s class= del

Respuesta : modificar el código de los vbs para reducir espacios continuos múltiples a un espacio

Haría algo como:

    Hacer mientras que InStr (str, “") > 0
        el str = substituye (str, ““,” ")
    Lazo

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

Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”) 
myFile = “c:\macros\aces\claim13.txt” 
objFile determinado = objFSO.OpenTextFile (myFile, 1) 
Hacer hasta objFile.AtEndOfStream 
  line=objFile.ReadLine 
  Trimspace de WScript.Echo (línea)
Lazo 
Trimspace de la función (str como secuencia) como secuencia
    Hacer mientras que InStr (str, “  ") > 0
        el str = substituye (str, “  “,” ")
    Lazo
    trimspace = str
Función del final
Otras soluciones  
 
programming4us programming4us