hola dazuaga, muchisimas gracias, la verdad me funciono de maravillas tu codigo...
le he hecho unos cambios para que me funcione como quiero y me salio un error. espero me puedas colaborar con esto..
me agrega los todos los datos a la base de datos pero al final me muestra este error:
Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos: 'sDate'
/hyperterminal/leyendo.asp, line 69
el codigo que uso es este:
(los cambios que le hice estan en negrita)
Código:
rs.open "hyperterminal", con, 3, 3
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set oFichero = FSO.OpenTextFile(Server.MapPath("REPORTES.txt"))
Archivo = oFichero.ReadAll
'quito la linea vacía:
Archivo = Replace(Archivo, vbcrlf & vbcrlf, vbcrlf)
' quito los encabezados:
Archivo = Replace(Archivo," Date Time Ext CO Dial Number Duration Acc code CD " & vbcrlf, "")
' quito los "-"
Archivo = Replace(Archivo,"--------------------------------------------------------------------------------" & vbcrlf, "")
' convierto el string en una matriz por el salto de linea
Archivo = Split(Archivo, vbcrlf)
' por cada elemento del array, detecto "campos" y los guardo en variables "volátiles"
For i = 0 to UBound(Archivo)
sDate = Trim(Left(Archivo(i), 8))
sTime = Trim(Mid(Archivo(i), 10, 7))
sExt = Trim(Mid(Archivo(i), 20, 3))
sCO = Trim(Mid(Archivo(i), 24, 2))
sDialNumber = Trim(Mid(Archivo(i), 27, 31))
sDuration = Trim(Mid(Archivo(i), 58, 8))
'convierto la fecha d/m/a al formato separado
'-----------------------------------
dia = day(sDate)
mes = month(sDate)
ano = year(sDate)
'---------------------------------
'cambio el formato de tiempo de duracion
sDuration = Replace(sDuration, "'", ":")
'---------------------------------
'agrego cada linea a la base de datos
rs.AddNew
rs("dia") = dia
rs("mes") = mes
rs("ano") = ano
rs("hora") = sTime
rs("ext") = sExt
rs("co") = sCO
rs("llamada_saliente") = sDialNumber
rs("duracion") = sDuration
rs.Update
Next
otra cosa, sabes como puedo agregar solo una vez cada dato?, lo que pasa es que esta pagina se ejecuta automaticamente cada 10 segundos para verificar si hay datos nuevos y si los hay los ingresa a la base de datos, pero si son los mismo no los agrega.. como seria en este caso?
el error me lo da cuando separo la fecha en dia mes año