Newsgroup: it.comp.appl.access
Titolo: importare un file txt

Ho un file in formato txt fatto in questo modo
pippo
via dei platatani
tel 06 xxxxx
e-mail 
pi...@microsoft.it
Laurea in
Abitazione
topolino
via
ecc....
di questi record ne ho circa un migliaio.
dovrei importare questo file dentro un db, ma devo eliminare il campo laurea
e abitazione. Dopo la riga che inizia con abitazione c'č un altro nome.
Naturalemente il record deve essere risistemato per essere contenuto in una
tb definita cosě
Tb_anagrafica
nome | indirizzo | Tel | ecc.
Potreste darmi una mano?
Non so niente di visual basic (ve ne sarete accorti ormai!!) quindi cercate
di spiegarmi in dettaglio le operazioni grazie

di spiegarmi in dettaglio le operazioni grazie
Impossibile farlo senza una conoscenza minima di VB....
Devi leggere il file con lineinput, ciclare sul numero delle righe
(sempreche' sia fisso per tutti i record, altrimenti devi inventarti qualche
altra cosa per capire che e' camniato) ed aprire un recordset sulla tabella
per accordare.
Saluti.
Luciano


wrote:

non fai prima ad importare io dati da menu spuntando non importare
dove non ti interessa?
po lo devi fare per forza da codice?
Saluti.
Emanuele.

 po lo devi fare per forza da codice?
Direi proprio di si.
Saluti.
Luciano


Saluti.
Emanuele.

 wrote:

sistema questa allora...
On Error GoTo Err_importacame_Click
Dim fs, f, f1, fc, s, agg, lis, posizione, nomefile
Set fs = CreateObject("Scripting.FileSystemObject")
posizione = dicidirectory("came")
lis = False
If posizione <> "" Then
    Set f = fs.GetFolder(posizione)
    Set fc = f.Files
    nomefile = dicinome("came")
    For Each f1 In fc
        If f1.Name = nomefile Then lis = True
    Next
End If
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Dim ultimocodart As Double
Set rs = db.OpenRecordset("SELECT Val(Right([codart],Len([codart])-3))
AS Cod FROM metelcame ORDER BY Val(Right([codart],Len([codart])-3))
DESC")
If rs.EOF Then
    ultimocodart = 0
Else
    ultimocodart = rs![cod]
End If
rs.Close
Set rs = db.OpenRecordset("SELECT * FROM metelcame")
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim Riga, cerca, vecchio, nuovo As Variant
If lis Then
 Set f = fs.OpenTextFile(posizione & nomefile, ForReading)
 Riga = (f.readline)
 Do While f.atendofstream = False
    Riga = (f.readline)
    cerca = UCase("" & Trim(Left(Riga, 19)))
    cerca = "CCA" & cerca
    rs.FindFirst ("desc=""" & cerca & """")
    If rs.NoMatch = True Then
        rs.AddNew
        rs![CodArt] = "CCA" & ultimocodart + 1
        ultimocodart = ultimocodart + 1
        rs![PRODUTTORE] = "CCA"
        rs![misura] = "Pz."
        rs![Desc] = cerca
        rs![Desc2] = Mid(Riga, 33, 43)
        rs![pzoprodut] = Val(Mid(Riga, 100, 9)) / 100
        rs![barre] = Mid(Riga, 20, 13)
        rs![data] = Date
        rs.Update
    Else
        rs.Edit
        rs![Desc2] = Mid(Riga, 33, 43)
        rs![pzoprodut] = Val(Mid(Riga, 100, 9)) / 100
        rs![barre] = Mid(Riga, 20, 13)
        rs![data] = Date
        rs.Update
    End If
 Loop
 f.Close
 MsgBox "Importazione completata"
Else
    MsgBox ("File " & dicidirectory("came") & dicinome("came") & " non
trovato")
End If
rs.Close
Set db = Nothing
Exit Sub
Saluti.
Emanuele.