06. august 2010 - 14:35Der er
9 kommentarer og 1 løsning
kan ikke slippe uden om en ekstra tom linje ved oprettelse af txt fil!
Hej jeg har lavet et script der åbner txt filen C:\test.txt som indeholder et par linjer hvis en af linjerne indeholder "$Initialer=" så skal den erstattes med noget andet, nå men når den så har rettet filen så er der kommet en ekstra tom linje i bunden af filen. hvordan slipper man af med en den ekstra tomme linje den opretter?
ps: den fil jeg læser fra har en tom linje til sidst, men efter filen bliver rettet via scriptet så er der kommet 2 tomme linjer.. hjæælp!
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForWriting = 2
Set objTextFil = FSO.OpenTextFile ("C:\test.txt", ForReading)
Do Until objTextFil.AtEndOfStream
strNextLine = objTextFil.Readline
If InStr(strnextline,"$Initialer=")Then strnextline = "blabla" End If strtekst = strtekst & strNextLine & VbCrLf Loop
objTextFil.Close Set destobjTextFil = FSO.OpenTextFile "C:\test.txt", ForWriting,1) destobjtextfil.WriteLine(strtekst) destobjTextFil.Close
Nu har prøvet dit script af, og jeg får ingen ekstra linier. Jeg hr prøvet både med og uden ekstra linier i det oprindelige dokument. Scriptet erstatter ganske vist heller ikke "@intialer" med "blabla". /ptj_11
du har linien strtekst = strtekst & strNextLine & VbCrLf hvilket betyder at du efter den oprindelige tomme linie afslutter med at lave en mere via VbCrLf
Det kan laves mere eller mindre yndigt
Set fso = CreateObject("Scripting.FileSystemObject")
Kan det tænkes, at det skyldes, at den tilføjer den linie, som skulle indeholde teksten "BlaBla", men da den ikkeskriver det, så ser du kun en tom linie. Jeg er ingen ørn til dette, men du tilføjer en linie, og hvor ved scriptet fra, at den skal indsætte linien umiddelbart efter linien, der indeholder tekststrengen "$initialer=". Så kunne man jo forestille sig, at den bare smider linien i bunden af dokumentet. /ptj_11
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.
Det er blevet kaldt ”det største it-nedbrud i historien” og omkostningerne kan nemt løbe op i syv milliarder kroner: Men hvem skal betale for Crowdstrikes fejl?
