Hola
Tengo el siguiente codigo donde me lee un archivo TXT y ya lo pude colocar en una sola columna a través de un split.
Pero ahora no se como darle esos valores a un arreglo para después introducir cada una de las posiciones del arreglo en el INSERT de mi Query.
este es mi codigo :
DIM curDTAdmonServicio, curDTOpMateriales, curDTOpServicios, curDTOpViaticos, curDTOpReparacion
DIM curDTOpGastos, curDTVtasServicios, curDTVtasViaticos
dim i, j
dim ArrDatos, Linea, Archivo
Dim objFSO
Set objFSO =
Server.CreateObject (
"Scripting.FileSystemObject" )
Dim objTextStream
Const strFileName =
"c:\Inetpub\wwwroot\erdinamo\detalle2.txt" Const fsoForReading = 1
If objFSO.FileExists(strFileName)
Then Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading)
texto=
replace (objTextStream.ReadAll,
chr (13), " ")
objTextStream.
Close Set objTextStream =
Nothing
Archivo =
Split (texto,
";" )
For i =
LBound (archivo) To
UBound (archivo)
ReDim Linea(0,0)
ArrDatos =
Split (archivo(i),
";" ) '// llena arreglo de datos
ReDim Preserve Linea(0,
UBound (Linea) +
UBound (ArrDatos)) '//redimensiona concentrado
j = 0
For j = 0 To
UBound (ArrDatos)
Linea(j) = ArrDatos(j) 'Agrega al Concentrado
Next
curDTAdmonServicio = Linea
(0)
curDTOpMateriales = Linea
(1)
curDTOpServicios = Linea
(2)
curDTOpViaticos = Linea
(3)
curDTOpReparacion = Linea
(4)
curDTOpGastos = Linea
(5)
curDTVtasServicios = Linea
(6)
curDTVtasViaticos = Linea
(7) response.write curDTAdmonServicio &
"<br>" response.write curDTOpMateriales &
"<br>" response.write curDTOpServicios &
"<br>" response.write curDTOpViaticos &
"<br>" response.write curDTOpReparacion &
"<br>" response.write curDTOpGastos &
"<br>" response.write curDTVtasServicios &
"<br>" response.write curDTVtasViaticos &
"<br>" 
Donde como paso final en lugar de colocar estas variables en un
response.write , deberian estar en el insert que quiero colocar, para grabar en mi BD de Access.
Alguien me puede decir que estoy haciendo mal ???
Es que me manda el siguiente error :
Error de Microsoft VBScript en tiempo de ejecución error '800a0009'
El subíndice está fuera del intervalo
/erdinamo/fso4.asp, line 39
Como siempre gracias por leerme...
