/ Forside / Teknologi / Udvikling / Java Scripts / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Java Scripts
#NavnPoint
molokyle 5410
Klaudi 2799
smorch 2439
kim 1360
Harlekin 1134
bentjuul 984
gibson 800
severino 695
Random 675
10  konsulent.. 626
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>
> ><!--
&gt; >Function OpretTekstDokument()
&gt; >TekstVaerdi = testform.tekstfelt.value
&gt; >Set FSO = CreateObject("Scripting.FileSystemObject")
&gt; >Set TSO = FSO.CreateTextFile("c:\testfil.txt",True,False)
&gt; >TSO.WriteLine TekstVaerdi
&gt; >TSO.Close
&gt; >End function
&gt; >-->
> ></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>
> <!--
&gt; Function func_filnavn()
&gt; Dim maaneder
&gt; Dim ugedage
&gt; Dim dato
&gt; Dim filnavn
&gt; Dim nytfilnavn
&gt; filnavn = "c:\testfil.txt" 'Skal du selv sætte
&gt; dato = Now 'Skal du selv sætte
&gt; maaneder = Array("januar", "februar", "marts", "april", "maj",
&gt; "juni","juli", "august", "september", "oktober", "november", "december")
&gt; ugedage = Array("søndag", "mandag", "tirsdag", "onsdag",
"torsdag","fredag",
&gt; "lørdag")
&gt;
&gt; nytfilnavn = Mid(filnavn, 1, Len(filnavn) - 4) & "_" &
&gt; ugedage(Weekday(Now) - 1) & "_" & Day(dato) & "_" & maaneder(Month(dato)
-
&gt; 1) & Mid(filnavn, Len(filnavn) - 3)
&gt; func_filnavn = nytfilnavn
&gt; End function
&gt;
&gt; Function OpretTekstDokument()
&gt; TekstVaerdi = testform.tekstfelt.value
&gt; Set FSO = CreateObject("Scripting.FileSystemObject")
&gt; Set TSO = FSO.CreateTextFile(func_filnavn(),True,False)
&gt; TSO.WriteLine TekstVaerdi
&gt; TSO.Close
&gt; End function
&gt; -->
> </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

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste