Newsgroup: it.comp.appl.access
Titolo: Leggere righe da file di testo...

Ciao a tutti!
dovrei prelevare dei dati da un file di testo e metterli in una tabella..
Il file di testo è composto:
Data_Inizio Data_Fine Appalto
10/10/03     12/10/04   200393fd22
seguono dati separati da un ";" ...
quindi dovrei leggere le prime due righe e inserirle in una tabella e poi
tutti i dati in un'altra tabella!
ricapitolando:
DataInizio, DataFine, Appalto in una tabella
e il resto dei dati nell'altra
Eliminando le prime 2 righe riesco ad importare facilmente tutti i dati, ma
il problema sono proprio le prime 2 righe:
come faccio a leggere ed importare solo le prime 2 righe?
Grazie e spero di essere stato chiaro :)

 ha scritto nel messaggio
news:5DNzb.163943$vO5.6...@twister1.libero.it...

Non ho capito bene il problema, perché se il file è unico e ci sono solo 2
righe che non interessano, puoi eliminarle prima del trasferimento e
caricarle a mano.
Comunque io di solito, quando si tratta di file testo, lavoro con il VBA: lo
apro come file di input e leggo riga per riga, seleziono i campi e li metto
dove li devo mettere in una o più tabelle con rs.Addnew.
Se la risposta non è sufficiente, dovresti chiarire le tue esigenze.
Saluti.
Sandro

 ha scritto nel messaggio
news:MfPzb.164217$vO5.6...@twister1.libero.it...

Ciao Sandro ,
hai detto bene, eliminando le prime 2 righe posso importare tutto il file
usando VBA;
mi servono anche le prime 2 righe che sono data inizio e fine dell'appalto a
cui fanni riferimento tutti i dati successivi..
io uso docmd.tranfertxt ecc ecc, quindi, eliminando le prime 2 righe importo
tutto il file in una tabella che poi trasferisco con rs.AddNew nella tabella
principale, OK?
Come posso fare per leggere le prime 2 righe, metterle in una variabile e
poi leggere i dati?
Hai parlato di file di input?
Qual'è il metodo che usi?
Dammi una mano Sandro :)
Grazie

WinJB ha scritto:


Apri il file con 'Open' e leggi le prime due righe con due 'Line Input'.
Poi visto che hai già il file aperto puoi finire l'importazione da vba.
Inserisci i dati nelle tabelle con vba o con SQL.
Ricordati di chiudere il file alla fine con 'Close'.
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:bqpfob$8uu$1...@news.newsland.it...

Si, grazie Sandro, ma le prime 2 righe sono abbastanza semplice...
è un file delimitato con un ";"
come faccio ad importare ogni campo nella tabella?
Insomma il file è strutturato esattamente così:
Inizia, come ti dicevo con 2 linee...
Data_Inizio Data_Fine   Appalto
10/10/03;12/10/04;200393fd22
.. e continua con i dati delimitati da un ";"
;;10/10/03;Pinco Pallino;Milano;;;;;;;;Ancona
;;20/10/03;Altro nome di lunghezza variabile;Lecce;;;;;;Napoli
...
ecc ecc
Quindi inizio ad importare la seconda riga ...
poi per passare ai dati è un problema perchè come faccio a importare i
valori nelle giuste variabile per metterle poi nelle tabelle?
Potresti essere più chiaro per favore?
scusami ma, come avrai capito, non sono molto esperto..
Grazie e scusami ancora!

 valori nelle giuste variabile per metterle poi nelle tabelle?
Al volo penso a una cosa del genere:
-----------------------
Open "NOMEFILE.TXT" For Input As #1
While eof(1)=0
 line input #1,Riga
 for i=1 to ncampi-1
  myPos=instr(riga,";")
  campo(i)=mid(Riga,1,mypos-1)
  riga=mid(riga,mypos+1)
 next
   campo(ncampi)=Riga 'ultimo campo senza ";"
 rs.AddNew
 rs("..")=campo1
 ...
 rs.Update
wend
-------------------
da aggiungere tutte le Dim, apertura database e recorset e relative
chiusure.
Il tutto č chiaramente migliorabile e adattabile alle esigenze.
Spero di esserti stato di aiuto.
Saluti.
Sandro