vbs opslaan in txt

[Tigretto Skimpy]

wat is dit ook een bagger taal kan er leuke dingen mee maar werkt nooit
hij schrijft nu steeds een nieuw bestand zodat het vorige ingevoerde weg is
bedoeling is dat dit allen onder elkaar kan

zodat 1ne keer bijvoorbeeld naam piet berichtje 2 melk 3 jam aarbei en jus
zeg maar wat hoor
en de volgende keer daaronder
klaas 1 brood 2 paprika chips 3 appels
met een enter of streep tussen beiden

 

[ErikBooy007]

Gebruik ipv:

set testfile = filesys.CreateTextFile("D:\output.txt")

eens:

set testfile = filesys.OpenTextFile("D:\output.txt", 8, True, -2)

Dan kun je er gewoon achteraan schrijven.

Als je wilt dat er streep tussen staat doe je gewoon:

dim strinput, strinput2
strinput = inputbox("Voer je naam in:", "Naam")
strinput2 = inputbox("Bericht:", "Bericht")
If not len(strinput) = 0 then 
	datum = now
	dim filesys, testfile	
	set filesys = CreateObject("Scripting.FileSystemObject")
	set testfile = filesys.OpenTextFile("D:\output.txt", 8, True, -2) 
	testfile.writeline ("-----------------------------------------")
	testfile.writeline (datum)
	testfile.writeline ("Naam: " & strinput)
	testfile.writeline (strinput2)
	testfile.close
	mb = MsgBox("Tekst opgeslagen in C:\output.txt", 64, "Tekst opgeslagen")
Else 
	msgbox"error no input!" 
End if

 

[Tigretto Skimpy]

SUPER bedankt:thumb::thumb:
hij doet het nu:thumb:

alleen je moet

set testfile = filesys.OpenTextFile("D:\output.txt", 8, True, -2)

veranderen in

set testfile = filesys.OpenTextFile("C:\output.txt", 8, True, -2)

teminste voor de meeste mensen dan

 

[ErikBooy007]

Ja het ligt er uiteraard aan, waar je je bestand wilt opslaan. Maar ik wil zo weinig mogelijk troep op m'n C: dus heb ik 'm op de D: opgeslagen, maar je kunt het natuurlijk opslaan waar je wilt.