vbs opslaan in txt

Status
Niet open voor verdere reacties.
T

Tigretto Skimpy

Gebruiker
Lid geworden
2 dec 2008
Berichten
32
hallo

weet iemand misschien hoe je vbs opslaat in txt
de bedoeling is dat als ik wat in een inputbox intik dat ik later een bevestiging krijg dat het opgeslagen is
de bedoeling is dan dat het netjes met datum erboven en een enter er tussen word opgeslagen in een txt bestand
ik heb het geweten maar dat bestandje waar ik dat heb gedaan is spoorloos en kan het ook niet meer vinden op het internet:o

alvast bedankt
MVG
Tigretto
 
Dit zou moeten werken:

Code: 
dim strinput
strinput = inputbox("Bericht:", "Titel")

if not len(strinput) = 0 then

dim filesys, testfile
set filesys = createobject("scripting.filesystemobject")
set testfile= filesys.createTextFile("c:\output.txt", true)
testfile.write (date & vbcrlf & vbcrlf & vbcrlf & strinput)
testfile.close

mb = MsgBox("Tekst opgeslagen in C:\output.txt", 64, "Tekst opgeslagen")

end if
 
Vaag, het werkt anders prima hier...
In dat geval zou ik niet weten hoe het dan wel moet.
 
Zoiets misschien?
Code: 
dim strinput
strinput = inputbox("Bericht:", "Titel")

if not len(strinput) = 0 then
Dim datum = now
dim filesys, testfile
set filesys = createobject("wscript.creatobject")
set testfile= filesys.createTextFile("c:\output.txt", true)
testfile.writeline (datum)
testfile.writeline (strinput)
testfile.close
mb = MsgBox("Tekst opgeslagen in C:\output.txt", 64, "Tekst opgeslagen")
Else msgbox"error no input!"
end if
 
ik werk gewoon in kladblok en de foutmelding is

regel 5
teken 11
fout einde van de instructie word verwacht
code 800a0401
bron complicatiefout Microsof VBScript
 
Het gaat fout bij de datum benoemen

Code: 
dim strinput 
strinput = inputbox("Bericht:", "Titel")
 if not len(strinput) = 0 then 
Dim datum as date = now 
dim filesys, testfile 
set filesys = createobject("wscript.creatobject")
set testfile= filesys.createTextFile("c:\output.txt", true) 
testfile.writeline (datum)
testfile.writeline (strinput)
testfile.close
mb = MsgBox("Tekst opgeslagen in C:\output.txt", 64, "Tekst opgeslagen")
Else 
msgbox"error no input!" 
end if
 
Laatst bewerkt:
Het spijt me maar ik denk dat ik dan wat verkeerd doe ik doe het in kladblok
en sla het op als .vbs als ik het dan open krijg ik een foutmelding ditmaal met regel 4 teken 11
eind van de ins****ie word verwacht:o

MVG
Tigretto
 
Als je er nu eens van maakt:

Code: 
Dim datum = Date()

EDIT of misschien:

Code: 
Dim datum = now()
 
Laatst bewerkt:
WAAROM HELPT NIETS :o:o:o
het doet het weer niet zelfde foutmelding ik weet echt niet wat er loos is en jullie zeggen dat het bij jullie het wel doet
ik doe het gewoon in kladblok en sla het op als .vbs:shocked:
 
Maak er eens van:

Code: 
datum = now

zonder "Dim", blijkbaar hoef je deze variabele niet te definiëren.

Ik krijg echter nog wel de error dat een ActiveXObject geen bestand kan creeëren of iets dergelijks, maar ik ben dan ook niet echt thuis in VBS, dus daar kan ik je niet echt mee helpen.
 
nou ja we komen teminste wat verder
ik heb ook hetzelfde krijg wel een inputbox maar krijg na ok klikken foutmelding :rolleyes:

MVG
Tigretto
Owner LAN-Urk
 
Wat is VBScript toch een pain in the ass om mee te werken...

Bij die werkt dit niet, bij hem geeft dat een error, bij een andere werkt dit weer niet.
Prachtig.
 
Als je van:

Code: 
set filesys = createobject("wscript.creatobject")

dit maakt:

Code: 
set filesys = createobject("Scripting.FileSystemObject")

Dan werkt het!
 
SUPER:thumb:
bedankt hij doet het maar nu heb ik 1 laatste vraag kan ik ook meerdere inputboxen toevoegen
bijvoorbeeld 1 met dat je je naam moet invullen en dat er in het bestandje dan komt te staan
Naam: "voorbeeld"
dan een ENTER
en dan de volgende inputbox

MVG
Tigretto
Owner LAN-Urk
 
Code: 
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.CreateTextFile("D:\output.txt")
	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

Zo bijvoorbeeld? Je kunt gewoon input boxen toevoegen middels het systeem dat hierboven gebruikt is.

Je moet dan achter Dim (eerste regel) de naam van een variabele toevoegen,

Vervolgens doe je dan onder de huidige inputboxen:

Code: 
variabelenaam = inputbox ( "Bericht dat je wilt laten zien", "Titel van de inputbox" )

dan moet je het nog schrijven:

Code: 
testfile.writeline(variabelenaam)

als je nog standaard tekst wilt toevoegen, kun je die gewoon tussen quotes tussen de haakjes zetten en koppelen met de variabele naam door middel van een &
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan