I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.