He optenido un nuevo avance... he logrado ya sacar la ip de inicio pero aun no logro sacar el isp
Código PHP:
<%
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Fichero = Fso.OpenTextFile(Server.MapPath("isplist.txt"))
On Error resume next
Linea = Fichero.ReadAll
If Err.Number <> 0 Then
Response.Write("<b>El archivo no tiene datos nuevos.</b>")
Err.Clear
Else
Linea = Replace(Linea, vbcrlf & vbcrlf, vbcrlf)
Linea = Split(Linea, vbcrlf)
For l = 0 to UBound(Linea)
'##############################################
'Si quisiera mostrar todas las lineas
'Response.Write(Linea(l)&"<br>")
'Para mostrar solo el pais
'Pais = Trim(Left(Linea(l), 2))
'Response.Write(Pais&"<br>")
'Para mostrar el isp
'Para mostrar el ipInicio
IpIni = Trim(Right(Linea(l), 32))
IpIni = Split(IpIni, " ")
For Ipi = 0 to UBound(IpIni)
CIpi = Len(IpIni(Ipi))
If CIpi => 15 Then
IpInicio = Replace(IpIni(Ipi), "-", " ")
IpInicio = Trim(Left(IpInicio, 15))
Response.Write(IpInicio&"<br>")
End If
Next
'Para mostrar el ipFin
'IpFinal = Replace(Linea(l), "-", " ")
'IpFinal = Trim(Right(IpFinal, 15))
'Response.Write(IpFinal&"<br>")
##############################################
Next
End If
Fichero.Close
Set Fichero = Nothing
Set Fso = Nothing
%>