estoy trabajando con Vb 6, tengo un archivo TXT que tiene filas y columnas como una planilla de Excel, solo que las columnas están delimitadas por "," y no tengo identificada los números de las filas.
Los que necesito es recuperar un valor de la ultima linea de este TXT en la posición 2 el formato de la ultima linea es:
ZZ,Actualización realizada el: 28/10/2016 a las:,0.00,0.00,,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0,-1.00,0,-1,0.00,0.00,0.00,0.00,0.00,0.00,0.00,,,,
El datos que necesito es "actualizacion realizada..." es para reemplazar por un numero y ahi validar la fecha de creacion de dicho archivo
Comparto parte del codigo donde se realiza la carga del archivo ya que es en ese momento que se necesita hacer la validacion de la fecha de creacion:
> Public Sub getXLS_ADO(path As String)
>
>
>
> Dim i, y, x As Integer Dim linea, aux As String Dim cmdIns As String
> Dim lineatext As String Dim totalFila As Integer
>
> If Dir(path) <> "" Then
>
> Open path For Input As #1
>
> x = FilaInicial y = ColumnaInicial i = 0
>
>
> ' Inicializo la tabla previa 'cn.Execute "delete from TablaPrevia "
> Line Input #1, lineatext ' linea cabecera Do While Not EOF(1)
>
>
> Line Input #1, lineatext
>
> linea = formatear(esNulo(ObtenerCampo(lineatext, 1), " "), " ", CodLengh)
> aux = formatear(esNulo(ObtenerCampo(lineatext, 1), " "), " ", CodLengh)
> linea = linea + " - " + Mid(esNulo(ObtenerCampo(lineatext, 2), " "), 1, DescLengh) ' linea = linea + " - " +
> formatear(esNulo(ObtenerCampo(lineatext, 2), " "), " ", DescLengh) '
> linea = linea + " - " + formatear(esNulo(ObtenerCampo(lineatext, 3),
> 0), " ", ImpLengh)
> frmReporte.lstListos.AddItem linea
>
> ' Agrego al Vector Orgigen
> Origen(i).cod = esNulo(ObtenerCampo(lineatext, 1), " ")
> Origen(i).Desc = esNulo(eliminar_caracteres(ObtenerCampo(lineatext, 2)), " ")
> Origen(i).Precio = esNulo(ObtenerCampo(lineatext, 3), 0)
> Origen(i).PrecioCont = esNulo(ObtenerCampo(lineatext, 4), 0)
> Origen(i).Pais = esNulo(eliminar_caracteres(ObtenerCampo(lineatext, 5)), " ")
> Origen(i).GL1 = esNulo(ObtenerCampo(lineatext, 6), 0)
> Origen(i).GL2 = esNulo(ObtenerCampo(lineatext, 7), 0)
> Origen(i).GL3 = esNulo(ObtenerCampo(lineatext, 8), 0)
> Origen(i).GL4 = esNulo(ObtenerCampo(lineatext, 9), 0)
> Origen(i).GLR = esNulo(ObtenerCampo(lineatext, 10), 0)
> Origen(i).GC1 = esNulo(ObtenerCampo(lineatext, 11), 0)
> Origen(i).GC2 = esNulo(ObtenerCampo(lineatext, 12), 0)
> Origen(i).GC3 = esNulo(ObtenerCampo(lineatext, 13), 0)
> Origen(i).GC4 = esNulo(ObtenerCampo(lineatext, 14), 0)
> Origen(i).GCR = esNulo(ObtenerCampo(lineatext, 15), 0)
> Origen(i).PuntosTCL = esNulo(ObtenerCampo(lineatext, 16), 0)
> Origen(i).PuntosTCC = esNulo(ObtenerCampo(lineatext, 17), 0)
> Origen(i).Cuotas = esNulo(ObtenerCampo(lineatext, 18), 0)
> Origen(i).Tasa = esNulo(ObtenerCampo(lineatext, 19), 0)
> Origen(i).Oferta = esNulo(ObtenerCampo(lineatext, 20), 0)
> Origen(i).Entrega = esNulo(ObtenerCampo(lineatext, 21), 0)
> Origen(i).PrecioTar = esNulo(ObtenerCampo(lineatext, 22), 0)
> Origen(i).GT1 = esNulo(ObtenerCampo(lineatext, 23), 0)
> Origen(i).GT2 = esNulo(ObtenerCampo(lineatext, 24), 0)
> Origen(i).GT3 = esNulo(ObtenerCampo(lineatext, 25), 0)
> Origen(i).GT4 = esNulo(ObtenerCampo(lineatext, 26), 0)
> Origen(i).GTR = esNulo(ObtenerCampo(lineatext, 27), 0)
> Origen(i).PuntosTCT = esNulo(ObtenerCampo(lineatext, 28), 0)
> Origen(i).CuotasClasif = esNulo(ObtenerCampo(lineatext, 29), 0)
> Origen(i).TasaClasif = esNulo(ObtenerCampo(lineatext, 30), 0)
> Origen(i).OfertaClasif = esNulo(ObtenerCampo(lineatext, 31), 0)
> Origen(i).EntregaClasif = esNulo(ObtenerCampo(lineatext, 32), 0)
>
> 'agregarLineaBD cmdIns
> i = i + 1 Loop