Newsgroup: it.comp.appl.access
Titolo: Aiuto per lettura da file di testo

Amici del newgroup avrei bisogno di una dritta per risolvere il mio
problema. Ho un file di testo (A) che contiene un elenco di file di testo
(B_i) contenuti in una cartella. La mia necessistà e' quella di leggere il
contenuto dei file(B_i) elencati nel file (A) . Mi spiego meglio con un
esempio:
il file Testata.txt (A) e' cosi':
pippo1.txt
pippo2.txt
pippo3.txt
.....
....
io devo leggere e prelevare dei dati prima dal file pippo1.txt, poi da
pippo2.txt e cosi' via per tutti i file elencati in (A). Come posso fare?.
In attesa di una buona vi saluto.
salv...@excite.it



puoi importare il primo con transfertext e poi lo usi per aprire gli
altri sempre con transfertext
oppure tutto via codice aprendo due accessi ai file  (ci sono vari
modi)
Saluti.
Emanuele.

 ha scritto nel messaggio
news:8pslguo6126lj6ig6...@4ax.com...


puoi darmi qualche consiglio + approfondito. grazie
dipende da cosa sai fare io farei direttamente tutto via codice VBA
aprendo accessi a file id I/O
Saluti.
Emanuele.

 ha scritto nel messaggio
news:hu6mgu0j84i0drehj...@4ax.com...


file txt e lettura di parte del suo contenuto te ne sarei grato.
Private Sub importacame_Click()
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
Err_importacame_Click:
    MsgBox "Errore durante l'importazione dei dati"
    Exit Sub
End Sub
scrivi dopo il quoting
Saluti.
Emanuele.

 ha scritto nel messaggio
news:u9oogug0fdu6oa7lu...@4ax.com...


 grazie ,per l'aiuto ti faro sapere
Per la scrittura DOPO il quoting, ripassa pių tardi!!!
Antonio