Newsgroup: it.comp.appl.access
Titolo: creare recordset 2

 Cinzia
Ciao Cinzia grazie per la tua risposta ti spiego qual'è
il mio problema :
Ho un file di testo così composto:
_______________________________________________________
#tabulati
*h:\telecom
*h:\omnitel\celle	
*h:\wind\libero\sms
_h:\wind\libero\sms\sms001.zip30/06/20022914963   %
_h:\omnitel\celle\nuss12.zip30/06/20022913042   %
_____________________________________________________________________
Dove 
# = Nome del volume (CD o Cartella)
* = Indica le cartelle solamente
_ = Indica il percorso completo Con il nome del file, la data e la
dimensione del file
_________________________________________________________________________ 
Vorrei importarlo in una tabella di access suddividendo i vari campi 
Volume - Percorso - Nome file - Data file - Dimensione file
però non ho la minima idea di come fare
mi hanno suggerito di usare i recordset ma io non sono riuscito a capirci
nulla
grazie 
cia calimero


Ciao Calimero,
mi sfugge ancora  qualcosa:
1. Sei in grado di leggere il file una riga alla volta e separare le
informazioni che devi inserire in Tabella?
2. Hai già definito la struttura della tabella?
3.Devi inserire in tabella anche le righe che contengono solo le cartelle
(*) o tutte?
4. C'è un separatore tra il nome del file, la data e la dimensione?
Fammi sapere!
Cinzia



Ciao Cinzia,
ho un file di testo che posso tranquillamente importare in una tabella a
campo unico e righe separate
i dati dovrebbre finire in una tabella così composta (circa)
campo 1 = Nome del volume (CD o Cartella)
campo 2 = percorso
campo 3 = nome file
campo 4 = data
campo 5 = dimensione file
le righe sono composte proprio come le vedi 
_h:\wind\libero\sms\sms001.zip30/06/20022914963   %
_h:\omnitel\celle\nuss12.zip30/06/20022913042   %
è tutto attaccato e l'unico riferimento utile è il punto dell'estenzione
del file
un pò complicato
ciao e grazie Calimero

 ha scritto nel messaggio
news:1vf5du72gkjpd.19u5d5g71un65$.dlg@40tude.net...

Ciao,
se la situazione è questa che descrivi puoi fare a meno dei recordset e
crearti delle funzioni che estraggono le varie parti del campo che ti
interessano e poi con una query di aggiornamento, assegni i valori ai campi.
Le funzioni che ti servono sono queste sono basate su questo presupposto:
l'estensione del file è sempre di 3 caratteri, la data è sempre 10
caratteri:
Attenzione le funzioni sono fatte un po' di corsa, manca la gestione degli
errori ...
Public Function GetVolume(buf As String) As String
    Dim posDuePunti As Integer
   posDuePunti = InStr(buf, ":")
   If Left(buf, 1) = "_" And posDuePunti > 0 Then
        GetVolume = Mid(buf, 2, posDuePunti - 2)
    Else
        GetVolume = ""
    End If
End Function
Public Function GetPercorso(buf As String) As String
    Dim posPunto As Integer
   posPunto = InStrRev(buf, "\")
   If Left(buf, 1) = "_" And posPunto > 0 Then
        GetPercorso = Mid(buf, 4, posPunto - 3)
    Else
        GetPercorso = ""
    End If
End Function
Public Function GetNomeFile(buf As String) As String
    Dim posPunto As Integer
    Dim PosSlash As Integer
   PosSlash = InStrRev(buf, "\")
   posPunto = InStrRev(buf, ".")
   If Left(buf, 1) = "_" And posPunto > PosSlash Then
        GetNomeFile = Mid(buf, PosSlash + 1, posPunto + 3 - PosSlash)
    Else
        GetNomeFile = ""
    End If
End Function
Public Function GetData(buf As String) As String
    Dim posPunto As Integer
    Dim PosSlash As Integer
   posPunto = InStrRev(buf, ".")
   If Left(buf, 1) = "_" And posPunto > 0 Then
    GetData = Mid(buf, posPunto + 4, 10)
   Else
    GetData = ""
    End If
End Function
Public Function GetDimensione(buf As String) As String
    Dim posPunto As Integer
    Dim PosSlash As Integer
   posPunto = InStrRev(buf, ".")
   If Left(buf, 1) = "_" And posPunto > 0 Then
    GetDimensione = Mid(buf, posPunto + 14)
   Else
    GetDimensione = ""
    End If
End Function
Supponendo che i tuoi dati siano in tabella1 nel campo Campo1 e che in
questa tabella tu abbia già creato i campi  Volume, percorso, Nomefile,
DataFile, Dimensione
con una query del tipo:
Update Tabella1
 Set Volume=GetVolume(Campo1), percorso=GetPercorso(Campo1),
 Nomefile=GetNomefile(Campo1), DataFIle=GetData(Campo1),
Dimensione=getData(Campo1))
Saluti
Cinzia