Ver Mensaje Individual
  #8 (permalink)  
Antiguo 17/11/2003, 12:44
Avatar de affv
affv
 
Fecha de Ingreso: diciembre-2002
Ubicación: Ahora aqui
Mensajes: 485
Antigüedad: 22 años, 5 meses
Puntos: 0
ok hasta el momento he logrado extraer el pais y la ipfinal pero no logro extraer ni el isp ni la ip comienzo, esto lo he logrado con el siguiente codigo.
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(Lineavbcrlf vbcrlfvbcrlf)
    
Linea Split(Lineavbcrlf)
    For 
0 to UBound(Linea)
    
'##############################################
    '
Si quisiera mostrar todas las lineas
        
'Response.Write(Linea(l))
        '
Response.Write("<br>")
    
    
'Para mostrar solo el pais
        '
Pais Trim(Left(Linea(l), 2))
        
'Response.Write(Pais&"<br>")
    
    '
Para mostrar el isp
    
    
'Para mostrar el ipComienzo
    
    '
Para mostrar el ipFin
        
'IpFinal = Replace(Linea(l), "-", "&nbsp;                      ")
        '
IpFinal Trim(Right(IpFinal15))
    
##############################################
    
Next
End 
If

Fichero.Close 
Set Fichero 
Nothing 
Set Fso 
Nothing 
%> 

Espero alguien me logre ayudar.

Gracias
__________________
Todo tiene un comienzo y un fin!!
Postea tus proyectos