moduli!

[izzusan]

io ho un problema con access,
devo creare un modulo in vb che che mi prenda un file di testo composto da righe es:

000011societa pippo 11 seconda descrizione
000012societa pippo 12 seconda descrizione
000013societa pippo 13 seconda descrizione
000014societa pippo 14 seconda descrizione

mi deve tagliare ogni riga tirandomi fuori le seguenti stringhe :
000011
societa pippo 11
seconda descrizione

e cosi via...

x poi mettere le seguenti stringhe in un data base!

aiuto vi prego nn ho la piu' pallida idea !!!!!!!!!!!!!!!1

grazie!

[izzusan]

Aiuto vi prego nessan anima gentile?

[izzusan]

Almeno ditemi come importare o aprire un file di testo! vi prego se no sono morto!

[Genius7115]

Uno) hai sbagliato forum
Due) se le lunghezze sono fisse puoi utilizzar ela funzione di VB MID non ti spiego come funziona, apri la guida e studia.
tre) Per aprire il file puoi utilizzare Openfile (stesso discorso di prima, studia) ma una dritta te la do invece di assegnare un numero fisso al file utilizza una variabile e poi la valorizzi con la funzione freefile che ti da il primo numero di file libero (serve per evitare errori di apertura e di utilizzo di file aperti).

[izzusan]

lo so che devo usare il mid
il mio problema e che nn so come importare il mio file di testo ed una volta tagliato mandarlo su DB

[Genius7115]

Ripeto, il filtro di importazione lo devi creare tu!! come? così:

Aprire file (OpenFile)

Leggere il rigo
parserizzarlo nelle stringhe di lunghezza fissa che mi servono
castarlo nelle variabili che utilizzo per salvarlo nel db
aggiungere un nuovo record al db
aggiornare i campi
ritornare a leggere il rigo


Ti ho fatto l'analisi di quello che ti serve!!!!

[Genius7115]

puoi utilizzare un for puntato sul numero di righe ma est mui difficile

oppure su un while che punta alla fine del file.

Fai tu

[izzusan]

non c'e' un comando che mi prende tutta la riga?

[izzusan]

una xcosa di questo tipo va bene?



Dim mstrPathSetup As String

mstrPathSetup = "C:\Documents and Settings\roberto.brogi\Documenti\annacaffe_ordini\ anagra.txt"



Set fSetup = fsSetup.OpenTextFile(mstrPathSetup, ForReading,False)



Do While fSetup.AtEndOfStream <> True

riga = fSetup.ReadLine

riga = Mid(riga, 1, 7)
mstrCnDb = fSetup.ReadLine


Loop

[Genius7115]

fsetup che tipo é? non è descritto