Just nu i M3-nätverket
Jump to content

Filhantering


Haros

Recommended Posts

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

Link to comment
Share on other sites

-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]

Link to comment
Share on other sites

-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

 

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...