y el codigo que estoy usando lo modificque un poco porke me salian muchos datos innecsarios o numeros raros... y tambien el ultimo end if lo quite porque me salio un error de se esperaba un final de instruccion al parecer sobraba..
Código PHP:
on error resume next
filename=server.mappath("documentos/excel_productos.xls")' aqui va la ruta del archivo que quieres cargar
Set fs = CreateObject("Scripting.FileSystemObject")
Set readfile=fs.OpenTextFile(filename,1,False)
if err <> 0 then
Response.Write("<hr>"&err.description&"<hr>")
Response.End()
end if
linea = 0
contar = 1
ver = 0
guardafila = ""
filas = 0
Do while not readfile.atendofstream
on error resume next
if err <> 0 then
Response.Write("ERROR : "&err.description)
exit do
else
' Text=readfile.skipline 'salta una linea
' Text=readfile.skip(74)' salta "n" numero de caracteres
Text = readfile.readline 'lee la linea en donde quedo el cursor
'solo tomara los datos de la tabla y omite todo el resto que no sirve
if CLng(InStr(Text, "name=encabezado>")) > 0 then'---->limpia codigo para iniciar
ver = 1
Response.Write("<table border=1>")
end if
if CLng(InStr(Text, "if supportMisalignedColumns]>")) > 0 then'---->limpia codigo para finalizar, aqui revisa codigos agrega excel para quitarlos
ver = 0
Response.Write("</table>")
end if
if ver = 1 then'-->IMPRIMIR EL CODIGO PARA VERLO COMO TABLA
if CLng(instr(Text,"<tr")) <> 0 then'-------> encuentra el ID del trabajador
inicio_ = CLng(instr(Text,"name="))+5
final_ = CLng(instr(Text,">"))
variable = MID(Text, inicio_, final_)
trabajador = replace(variable,">","")
'Response.Write("<hr>"&linea&".-"&filas&">"&trabajador)&"<br>"&vbCrLf
if filas > 0 then
sql2 = sql2 & " " & trabajador & ", "
if isnumeric(trabajador) then
' Response.Write(sql2)&"<hr>"
end if
end if
filas = filas + 1
else
'----- recuperacion nombre variable ---------------------------------------
if CLng(instr(Text,"</td>")) <> 0 then'-------> no hay fin en la fila
if guardafila = "" then'-------> si no hay filas inconclusas continuo sin problemas
inicio_ = CLng(instr(Text,"name="))+5
final_ = CLng(instr(Text,"</td>"))
variable = MID(Text, inicio_, final_)
variable = replace(variable,"</td>","")
guardafila = ""
else'-------> hay filas inconclusas pero hay fin asi que busco mi dato
guardafila = guardafila&" "&Text
inicio_ = CLng(instr(guardafila,"name="))+5
final_ = CLng(instr(guardafila,"</td>"))-8
variable = MID(guardafila, inicio_, final_)
variable = replace(variable,"</td>","")
'Response.Write(linea&"."&filas&".-"&variable)&"<br>"&vbCrLf
guardafila = ""
end if
else'-------> como no hay fin en la fila guardo la fila para buscar en la fila siguiente su fin
guardafila = guardafila&" "&Text
'Response.Write(guardafila)&"<BR>"
end if
'----- recuperacion nombre variable ---------------------------------------
end if
end if
if ver = 1 then'---> visualiza codigo
Response.Write Text& chr(13)
end if
linea = linea + 1
end if
loop
readfile.close
set readfile=nothing
set fs=nothing
la verdad no necesito mostrar en pantalla la tabla simplemente manipular los datos para poder insertarlos uno a uno a una base de datos. sabes como hacerlo?