Set fso = CreateObject("Scripting.FileSystemObject") Set inf = fso.OpenTextFile("z1.txt") Set outf = fso.CreateTextFile("z2.txt") Do While Not inf.AtEndOfStream line = inf.ReadLine outf.WriteLine Replace(Replace(line, ",", "."), ";", ",") Loop outf.Close inf.Close Set outf = Nothing Set inf = Nothing Set fso = Nothing
Tak for hjælpen dengang, har brugt det tit siden. Nu har jeg et problem: Når jeg vil slette " i filen kan jeg ikke fordi det er en del af syntaxen, har du et forslag ?? Mvh
Hej Igen Jeg ville bruge nedenstående til at rette " til ingenting, men det går ikke, når jeg bruger " i dit program får jeg fejl. Mvh
Set fso = CreateObject("Scripting.FileSystemObject") Set inf = fso.OpenTextFile("z1.txt") Set outf = fso.CreateTextFile("z2.txt") Do While Not inf.AtEndOfStream line = inf.ReadLine outf.WriteLine Replace(Replace(line, ",", "."), ";", ",") Loop outf.Close inf.Close Set outf = Nothing Set inf = Nothing Set fso = Nothing
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.