Filhantering

[Haros]

Hej!

Nybörjare som jag är skulle jag vilja ha lite hjälp med ett script som gör följande:

Läser sista posten i en txt fil på en server.

adderar ett till den posten och lägger tillbaka

den som sista post och sparar filen på samma ställe med samma namn.

 

Tackar på förhand

[ns]

Det kan du inte göra med javascript. Har du möjlighet att köra någon serverscript-teknik som ASP eller PHP?

 

/Niklas

 

 

[-Patrik Johansson-]

Du kan tyvärr inte göra detta utan du är tvungen att använda dig av tex PHP eller ASP.

 

Testa att ställa din fråga i något forum till dessa två språk.

 

Jag var för sen igen ;-)

/Neox -(Patrik J)

"Gravitation can not be held responsible for people falling in love"

- citat av Albert Einstein

 

[inlägget ändrat 2002-09-20 12:48:41 av Patrik J Johansson]

[inlägget ändrat 2002-09-20 12:48:54 av Patrik J Johansson]

[Haros]

Hej!

 

Ja, ASP går bra.

Går det inte med VB-script heller?

 

[-Patrik Johansson-]

VB-script används i ASP.

 

/Neox -(Patrik J)

"Gravitation can not be held responsible for people falling in love"

- citat av Albert Einstein

 

[Kristianstad]

Jag flyttar denna tråd till ASP-forumet!

 

Vänliga Hälsningar

Kristoffer - moderator för Javascriptforumet

 

[JANspeed]

Om du använder dig av ASP så är en bra skola för detta är IDG:s egna webstudio:

http://www.idg.se/webstudio

 

/JANspeed

 

[Nollis]

Tjena!

 

Först och främst vill jag slå fast att det går utmärkt att köra JavaScript under ASP - det är nästan så jag skulle vilja rekommendera det - det enda som skiljer är att det kallas JScript och att man av naturliga skäl inte har tillgång till clientsideobjekt och DOM, etc...

 

Såhär ser lösningen ut i VBScript:

<% 
Dim text
Dim whole_file
Dim last_text
text = ""

filename = Server.MapPath("test.txt")
Set Obj = CreateObject("Scripting.FileSystemObject")
Set TS = Obj.OpenTextFile(filename) 

Do Until TS.AtEndOfLine 
whole_file = whole_file + text
text = TS.ReadLine
last_text = text
text = text &amp;amp; vbCrLf
Loop 
TS.Close

number = int(last_text)+1
whole_file = whole_file&amp;amp;number

Set TS = Obj.OpenTextFile(filename,2) 
TS.WriteLine whole_file

TS.Close
%>

 

..och så här ser det ut i JScript (en aningens ändrad approach, annars är det samma...) (den här är snyggare löst, tycker jag) (kalla mig besserweisser den som vill!

<%@language=JScript%>
<% 
var whole_file = new Array;
var x = 0;

var filename = Server.MapPath("test.txt");
var Obj = new ActiveXObject("Scripting.FileSystemObject");
var TS = Obj.OpenTextFile(filename) ;

while (!TS.AtEndOfLine){
whole_file[x] = TS.ReadLine();
x++;
}
TS.Close();

whole_file[x-1] = (whole_file[x-1]*1)+1;

var TS = Obj.OpenTextFile(filename,2);
for (y = 0; y <= x; y++){
TS.WriteLine (whole_file[y]);
}
TS.Close();
%>

 

/ Johan

 

[inlägget ändrat 2002-09-20 16:25:20 av Nollis]

[inlägget ändrat 2002-09-20 16:26:25 av Nollis]