|
| Jeg skal havde følgende VB script til at d~ Fra : Nicolej |
Dato : 01-08-03 17:20 |
|
jeg fik det her script af en her fra nyhedsgruppen. og jeg har
også godt nok fået det til at virke. men kan ikke rigtig lige
finde ud af hvordan man får det til at datere dokumentet.
eks.:
testfile_fredag_1_august_2003.txt
hvis jeg kunne få den til at gemme dokumentet sådan, så ville jeg
bare være i den syvne himmel c",)
håber nogen gider og hjælpe mig.
på forhånd tsk.
m.v.h
Nicolej Rasmussen
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
</head>
<body>
<SCRIPT LANGUAGE=vbscript>
<!--
Function OpretTekstDokument()
TekstVaerdi = testform.tekstfelt.value
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TSO = FSO.CreateTextFile("c:\testfil.txt",True,False)
TSO.WriteLine TekstVaerdi
TSO.Close
End function
-->
</SCRIPT>
<form name="testform">
<textarea name="tekstfelt" id="tekstfelt"></textarea>
<input type="button" name="Button" value="Button"
onClick="OpretTekstDokument()">
</form>
</body>
</html>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials
| |
Dcasso (02-08-2003)
| Kommentar Fra : Dcasso |
Dato : 02-08-03 08:56 |
|
Kan dette bruges har lige lavet det i vb, og ikke testet det i
vbscript
Dim maaneder
Dim ugedage
Dim dato
Dim filnavn
Dim nytfilnavn
filnavn = "testfil.txt" 'Skal du selv sætte
dato = Now 'Skal du selv sætte
maaneder = Array("januar", "februar", "marts", "april", "maj", "juni",
"juli", "august", "september", "oktober", "november", "december")
ugedage = Array("søndag", "mandag", "tirsdag", "onsdag", "torsdag",
"fredag", "lørdag")
nytfilnavn = Mid(filnavn, 1, Len(filnavn) - 4) & "_" &
ugedage(Weekday(Now) - 1) & "_" & Day(dato) & "_" &
maaneder(Month(dato) - 1) & Mid(filnavn, Len(filnavn) - 3)
MsgBox nytfilnavn
mvh
Dennis
On Fri, 1 Aug 2003 16:19:58 +0000 (UTC), Nicolej
<nicolej_rasmussen@msn.com> wrote:
>jeg fik det her script af en her fra nyhedsgruppen. og jeg har
>også godt nok fået det til at virke. men kan ikke rigtig lige
>finde ud af hvordan man får det til at datere dokumentet.
>
>eks.:
> testfile_fredag_1_august_2003.txt
>
>hvis jeg kunne få den til at gemme dokumentet sådan, så ville jeg
>bare være i den syvne himmel c",)
>
>håber nogen gider og hjælpe mig.
>på forhånd tsk.
>m.v.h
>Nicolej Rasmussen
>
>
><html>
><head>
><title>Untitled Document</title>
><meta http-equiv="Content-Type" content="text/html;
>charset=iso-8859-1">
></head>
><body>
><SCRIPT LANGUAGE=vbscript>
><!--
>Function OpretTekstDokument()
>TekstVaerdi = testform.tekstfelt.value
>Set FSO = CreateObject("Scripting.FileSystemObject")
>Set TSO = FSO.CreateTextFile("c:\testfil.txt",True,False)
>TSO.WriteLine TekstVaerdi
>TSO.Close
>End function
>-->
></SCRIPT>
><form name="testform">
><textarea name="tekstfelt" id="tekstfelt"></textarea>
><input type="button" name="Button" value="Button"
>onClick="OpretTekstDokument()">
></form>
></body>
></html>
| |
Nicolej (03-08-2003)
| Kommentar Fra : Nicolej |
Dato : 03-08-03 20:47 |
|
tak men jeg ved desværre ikke nok om VB til at jeg slev kan finde ud af,
hvordan man parre det nye stykke VB med det gamle stykke.
håber du kan hjælpe.
M.V.H.
Nicolej Rasmussen
> Kan dette bruges har lige lavet det i vb, og ikke testet det i
> vbscript
>
> Dim maaneder
> Dim ugedage
> Dim dato
> Dim filnavn
> Dim nytfilnavn
> filnavn = "testfil.txt" 'Skal du selv sætte
> dato = Now 'Skal du selv sætte
> maaneder = Array("januar", "februar", "marts", "april", "maj", "juni",
> "juli", "august", "september", "oktober", "november", "december")
> ugedage = Array("søndag", "mandag", "tirsdag", "onsdag", "torsdag",
> "fredag", "lørdag")
>
> nytfilnavn = Mid(filnavn, 1, Len(filnavn) - 4) & "_" &
> ugedage(Weekday(Now) - 1) & "_" & Day(dato) & "_" &
> maaneder(Month(dato) - 1) & Mid(filnavn, Len(filnavn) - 3)
>
> MsgBox nytfilnavn
>
> mvh
> Dennis
>
> On Fri, 1 Aug 2003 16:19:58 +0000 (UTC), Nicolej
> <nicolej_rasmussen@msn.com> wrote:
>
> >jeg fik det her script af en her fra nyhedsgruppen. og jeg har
> >også godt nok fået det til at virke. men kan ikke rigtig lige
> >finde ud af hvordan man får det til at datere dokumentet.
> >
> >eks.:
> > testfile_fredag_1_august_2003.txt
> >
> >hvis jeg kunne få den til at gemme dokumentet sådan, så ville jeg
> >bare være i den syvne himmel c",)
> >
> >håber nogen gider og hjælpe mig.
> >på forhånd tsk.
> >m.v.h
> >Nicolej Rasmussen
> >
> >
> ><html>
> ><head>
> ><title>Untitled Document</title>
> ><meta http-equiv="Content-Type" content="text/html;
> >charset=iso-8859-1">
> ></head>
> ><body>
> ><SCRIPT LANGUAGE=vbscript>
> ><!--
> >Function OpretTekstDokument()
> >TekstVaerdi = testform.tekstfelt.value
> >Set FSO = CreateObject("Scripting.FileSystemObject")
> >Set TSO = FSO.CreateTextFile("c:\testfil.txt",True,False)
> >TSO.WriteLine TekstVaerdi
> >TSO.Close
> >End function
> >-->
> ></SCRIPT>
> ><form name="testform">
> ><textarea name="tekstfelt" id="tekstfelt"></ textarea>
> ><input type="button" name="Button" value="Button"
> >onClick="OpretTekstDokument()">
> ></form>
> ></body>
> ></html>
>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials
| |
Mikkel Egelund (03-08-2003)
| Kommentar Fra : Mikkel Egelund |
Dato : 03-08-03 21:01 |
|
"Nicolej" <nicolej_rasmussen@msn.com> wrote in message
news:bgjor6$2qc$1@sunsite.dk...
> tak men jeg ved desværre ikke nok om VB til at jeg slev kan finde ud af,
> hvordan man parre det nye stykke VB med det gamle stykke.
> håber du kan hjælpe.
Nedenstående skulle virke:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
</head>
<body>
<SCRIPT LANGUAGE=vbscript>
<!--
Function func_filnavn()
Dim maaneder
Dim ugedage
Dim dato
Dim filnavn
Dim nytfilnavn
filnavn = "c:\testfil.txt" 'Skal du selv sætte
dato = Now 'Skal du selv sætte
maaneder = Array("januar", "februar", "marts", "april", "maj",
"juni","juli", "august", "september", "oktober", "november", "december")
ugedage = Array("søndag", "mandag", "tirsdag", "onsdag", "torsdag","fredag",
"lørdag")
nytfilnavn = Mid(filnavn, 1, Len(filnavn) - 4) & "_" &
ugedage(Weekday(Now) - 1) & "_" & Day(dato) & "_" & maaneder(Month(dato) -
1) & Mid(filnavn, Len(filnavn) - 3)
func_filnavn = nytfilnavn
End function
Function OpretTekstDokument()
TekstVaerdi = testform.tekstfelt.value
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TSO = FSO.CreateTextFile(func_filnavn(),True,False)
TSO.WriteLine TekstVaerdi
TSO.Close
End function
-->
</SCRIPT>
<form name="testform">
<textarea name="tekstfelt" id="tekstfelt"></textarea>
<input type="button" name="Button" value="Button"
onClick="OpretTekstDokument()">
</form>
</body>
</html>
/mikkel
http://spacerent.dk - Webhosting fra 49,-/md.
| |
Nicolej (03-08-2003)
| Kommentar Fra : Nicolej |
Dato : 03-08-03 22:23 |
|
1000 Tak !!! i er sgu jeres vægt værd i guld c",)
> "Nicolej" <nicolej_rasmussen@msn.com> wrote in message
> news:bgjor6$2qc$1@sunsite.dk...
> > tak men jeg ved desværre ikke nok om VB til at jeg slev kan finde ud af,
> > hvordan man parre det nye stykke VB med det gamle stykke.
> > håber du kan hjælpe.
>
> Nedenstående skulle virke:
>
>
> <html>
> <head>
> <title>Untitled Document</title>
> <meta http-equiv="Content-Type" content="text/html;
> charset=iso-8859-1">
> </head>
> <body>
> <SCRIPT LANGUAGE=vbscript>
> <!--
> Function func_filnavn()
> Dim maaneder
> Dim ugedage
> Dim dato
> Dim filnavn
> Dim nytfilnavn
> filnavn = "c:\testfil.txt" 'Skal du selv sætte
> dato = Now 'Skal du selv sætte
> maaneder = Array("januar", "februar", "marts", "april", "maj",
> "juni","juli", "august", "september", "oktober", "november", "december")
> ugedage = Array("søndag", "mandag", "tirsdag", "onsdag",
"torsdag","fredag",
> "lørdag")
>
> nytfilnavn = Mid(filnavn, 1, Len(filnavn) - 4) & "_" &
> ugedage(Weekday(Now) - 1) & "_" & Day(dato) & "_" & maaneder(Month(dato)
-
> 1) & Mid(filnavn, Len(filnavn) - 3)
> func_filnavn = nytfilnavn
> End function
>
> Function OpretTekstDokument()
> TekstVaerdi = testform.tekstfelt.value
> Set FSO = CreateObject("Scripting.FileSystemObject")
> Set TSO = FSO.CreateTextFile(func_filnavn(),True,False)
> TSO.WriteLine TekstVaerdi
> TSO.Close
> End function
> -->
> </SCRIPT>
> <form name="testform">
> <textarea name="tekstfelt" id="tekstfelt"></ textarea>
> <input type="button" name="Button" value="Button"
> onClick="OpretTekstDokument()">
> </form>
> </body>
> </html>
>
>
>
> /mikkel
>
> http://spacerent.dk - Webhosting fra 49,-/md.
>
>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials
| |
|
|