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
