Pergunta : modificar o código dos vbs para reduzir espaços contínuos múltiplos a um espaço

O seguinte código formata uma lima de texto a um CSV. Pode ser modificado de modo que todos os grupos de espaços contínuos encaixados nos campos sejam reduzidos a um espaço? objFSO do

Set do
(isto é “como é você” “como é você”) =
leSystemObject”)/>myFile = “c:\macros\aces\claim13.tx a
Set do t” objFile =
Do de objFSO.OpenTextFile (myFile, 1) até a guarnição do
WScript.Echo do
line=objFile.ReadLine de objFile.AtEndOfStream (meados de (linha, 1.2)) &”, “& guarnição (meados de (linha, 3.2)) &”, “& guarnição (meados de (linha, 5.200))
do
Function Trim0 do
Loop quando saido (s, 1) = “0” E o
do "" do <> de s s = (s, Len-1) o
Wend o
Trim0 =
End Function de s class= do

Resposta : modificar o código dos vbs para reduzir espaços contínuos múltiplos a um espaço

Eu faria algo como:

    Fazer quando InStr (estreptococo, “") > 0
        o estreptococo = substitui (estreptococo, ““,” ")
    Laço

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

Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”) 
myFile = “c:\macros\aces\claim13.txt” 
objFile ajustado = objFSO.OpenTextFile (myFile, 1) 
Fazer até objFile.AtEndOfStream 
  line=objFile.ReadLine 
  Trimspace de WScript.Echo (linha)
Laço 
Trimspace da função (estreptococo como a corda) como a corda
    Fazer quando InStr (estreptococo, “  ") > 0
        o estreptococo = substitui (estreptococo, “  “,” ")
    Laço
    trimspace = estreptococo
Função do fim
Outras soluções  
 
programming4us programming4us