VBScript vraag (FileSystemObject)

[Lunoah]

Hoi,

Bij onderstaande script leest hij een tekst bestand uit en kijkt wanneer er een ; staat voor de volgende waarden. Vervolgens ga ik deze aanpassen en wil ik ze weer wegschrijven. Dit werkt ook.
alleen schrijft hij alleen de laatste regel weg en niet allemaal. Ik heb geprobeerd het onderste deel te verplaatsen boven de loop maar dit werkt niet. Zal vast knullig zijn maar ik zie het niet ;-)

code:

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\test\" _
& "test.log", ForReading)
Do While objTextFile.AtEndOfStream <> True
strLine = objtextFile.Readline
If inStr(strLine, ";") Then
VAL= split(strLine, ";")

strDatum = "D" & Mid(CStr(VAL(2)),9,2)& Mid(CStr(VAL(2)),6,2) & Mid(CStr(VAL(2)),1,4)
strTijd = "T" & Mid(CStr(VAL(2)),12,2) & Mid(CStr(VAL(2)),15,2) & Mid(CStr(VAL(2)),18,2)

MsgBox strDatum
MsgBox strTijd


End If
i = i + 1
Loop

'============================='

Const ForAppending = 8

Set objFS = CreateObject("Scripting.FileSystemObject")
strFileName = "C:\test\test.DAT"

            If Not objFS.FileExists(strFileName) Then
                objFS.CreateTextFile(strFileName)
            End If

strContent  = VAL(0) & VAL(1) & VAL(2) & VBNewLine

Set objTS = objFS.OpenTextFile(strFileName,ForAppending)
objTS.Write strContent

Set objTS = Nothing
Set objFS = Nothing
Set objFSO = Nothing
Set objTextFile = Nothing

[Jeldert]

Je overschrijft op regel 32 de bestaande inhoud van strContent. Verander deze regel naar:

Visual Basic:

strContent  = strContent & VAL(0) & VAL(1) & VAL(2) & VBNewLine

en verplaats hem dan onder in de loop.

[ Voor 10% gewijzigd door Jeldert op 25-10-2012 14:47 ]

[Lunoah]

Wooow... Top!
super bedankt!

[ Voor 167% gewijzigd door Lunoah op 25-10-2012 14:53 ]

[Lunoah]

-- opgelost --

[ Voor 80% gewijzigd door Lunoah op 25-10-2012 15:00 ]

[Jeldert]

Om dit soort "problemen" sneller zelf te zien help het enorm om een goede "indenting" te gebruiken (inspringen).
Dan zie je meteen dat je de waarde in de loop slechts 1 maal buiten de loop verwerkt, ipv tijdens elke loop.