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
|