Recorrer CSV y borrar a partir de cierto punto

[angel_dope]

Hola, quisiera hacer lo siguiente: tengo un archivo CSV en el que tengo un registro en cada fila. Lo que quiero es ir leyendo ese archivo y comprobar el valor de la tercera columna. Cuando se cumpla una condición (que la fecha de ese campo se encuentre en los últimos 30 días) quiero borrar todos los registros que vienen después.
¿Hay alguna forma de hacerlo?? Otra opción sería leer todos los registros anteriores y copiarlos a un archivo nuevo, el resultado sería el mismo.
Muchas gracias por adelantado, Salu2

[angel_dope]

Bueno, ya lo tengo resuelto, al final lo que hago es ir recorriendo el archivo y mientras que no se cumple la condición voy escribiendo las lineas en un archivo nuevo. Cuando ya se cumple dejo de escribir. A continuación solo falta borrar el archivo antiguo y renombrar el nuevo. Os dejo el código por si le sirve a alguien, falta la parte final de borrar y renombrar archivos.

Código ASP:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Const Filename = "./exportacion/prueba.csv"    ' file to read
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
 
nombre_archivo = "pruebas_nuevo.csv"
PathXLS        = Server.MapPath("./exportacion/"&nombre_archivo)
 
set fsob = CreateObject("Scripting.FileSystemObject")
set fs = fsob.CreateTextFile(PathXLS, true) 
' Create a filesystem object
Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")
 
' Map the logical path to the physical system path
Dim Filepath
Filepath = Server.MapPath(Filename)
 
if FSO.FileExists(Filepath) Then
 
    ' Get a handle to the file
    Dim file    
    set file = FSO.GetFile(Filepath)
 
    ' Get some info about the file
 
    ' Open the file
    Dim TextStream
    Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)
 
    ' Read the file line by line
    dim contador
    contador=1
    fecha_limite=date-30    
 
    Do While Not TextStream.AtEndOfStream
        Dim Line
        Line = TextStream.readline
        if contador>1 then      
                ' Do something with "Line"
            campos = split(line,";")
            fecha_limite=cdate(fecha_limite)
            fecha_actual=cdate(campos(1))
            if fecha_actual>fecha_limite then
                no_sale=1
            end if
    '       Line = Line & vbCRLF    
            if no_sale<>1 then
                fs.writeline(Line)
            end if
        end if
        contador=contador+1
    Loop
    Set TextStream = nothing
    
Else
 
    Response.Write "<h3><i><font color=red> File " & Filename &_
                       " does not exist</font></i></h3>"
 
End If
 
Set FSO = nothing
%>