Pasar datos de txt a base de datos

[affv]

Bueno creo que mi pregunta es para expertos diria yo, tengo un archivo de texto de tipo

es Abogados Asociados 212.0.107.88-212.0.107.95
ch Bulgari 212.249.0.240-212.249.0.255
us Telecom 207.148.192.0-207.148.223.255
us Bundy Cor 205.203.160.0-205.203.191.255
it VIAGGIO SPA 80.206.189.168-80.206.189.175
us Surgery 164.167.0.0-164.167.255.255

como puedo meter esos datos en una base de datos access que me quede en un tabla como
Pais, ISP, ipc, ipf

Muchas gracias y espero me puedan ayudar.

[lexus]

hola,
primero lee del archivo de texto linea por linea cuando tengas cada linea la separas buscando un "separador" en tu caso un espacio y un guion (-)
asi podras crear "campos" para luego exportarlos a una base de datos en access o lo que quieras.

lee este articulo y te explican paso a paso como leer de un archivo de texto..
http://www.asptutor.com/asp/vart.asp?id=24

espero te sirva de algo..

si quieres te envio algo parecido que me ayudaron hacer aqui en los foros (dazuaga) para recoger datos de un archivo de texto e importarlos a una base de datos en access.

me avisas...

[affv]

ok me interesaria me lo enviaras para tener una mejor idea de lo que tengo que hacer!!

[lexus]

dame un email y te lo envio.

[affv]

ok mi email es [email protected]

[lexus]

ya te lo envie a hotmail.
hay un archivo de texto y un asp en .zip
suerte

[affv]

ahora mismo lo reviso cualquier cosa te aviso

Gracias

[affv]

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(Linea, vbcrlf & vbcrlf, vbcrlf)
    Linea = Split(Linea, vbcrlf)
    For l = 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(IpFinal, 15))
    ##############################################
    Next
End If
 
Fichero.Close 
Set Fichero = Nothing 
Set Fso = Nothing 
%> 
   

Espero alguien me logre ayudar.

Gracias

[affv]

lo de meter en la base de datos ya lo tengo lo que me falta es extraer las variables ips y ipcomienzo.

[affv]

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), "-", "          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
                IpInicio = Trim(Left(IpInicio, 15))
                Response.Write(IpInicio&"<br>")
            End If
        Next
    
    'Para mostrar el ipFin
        'IpFinal = Replace(Linea(l), "-", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          ")
        'IpFinal = Trim(Right(IpFinal, 15))
        'Response.Write(IpFinal&"<br>")
    ##############################################
    Next
End If
 
Fichero.Close 
Set Fichero = Nothing 
Set Fso = Nothing 
%> 
   

[affv]

Nadie tiene alguna idea...???