webForumDet fria alternativet

Välja vilka rader man vill ta bort ur en textfil...

ASP

0 svar · 317 visningar · startad av oskars

Medlem sedan nov. 20051 317 inlägg
Frågan#1

Hej,

jag har följande script som helt enkelt loopar ur alla textrader ur en textfil:

<% 
	Option Explicit
	
	Const Filename = "/kolliexp/export.txt"
	Const ForReading = 1, ForWriting = 2, ForAppending = 3
	Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
	
	Dim FSO
	set FSO = server.createObject("Scripting.FileSystemObject")
	
	Dim Filepath
	Filepath = Server.MapPath(Filename)
	
	Dim Tal
	
	If FSO.FileExists(Filepath) Then
	
		Dim TextStream, arrRows, i, TextRow
		Dim Customer, Slutbetald, newCustomer
	    Set TextStream = FSO.OpenTextFile(Filepath, ForReading, False, TristateUseDefault)
	
	    arrRows = split(TextStream.ReadAll, vbCrLf)
	    Tal = 0
	    For i = lbound(arrRows) To ubound(arrRows)
	    Tal = Tal + 1

	    
	    	TextRow = arrRows(i)
	    	
    		TextRow = Left(TextRow,24)
    		
    		If NOT IsNumeric(Right(TextRow,8)) Then
	    			TextRow = TextRow & " FEL"
		    		Response.Write "<b style=""color:#FF0000;"">" & TextRow & VbCrLf & "</b><br />"
	    		Else
		    		Response.Write "<b>" & TextRow & VbCrLf & "</b><br />"
    		End If
	    	
	    
		Next
	    
	    TextStream.Close
	    Set TextStream = nothing
	    
	Else
	    Response.Write "<h3><i><font color=red> File " & Filename & " does not exist</font></i></h3>"
	End If
	
	Set FSO = nothing
%>

Hur gör jag för att lägga en knapp brevid varje rad som gör så att den önskade raden raderas från textfilen när man klickar på knappen för den raden?

Mvh
Oskar

254 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
125 ms — hämta tråd, inlägg och bilagor (db)
114 ms — ändringar (db)