Vb Importa Testo

[michelepi]

Ho un file di testo con nome e cognome di alcuni clienti.
Il nome inizia sulla colonna 1 e finisce a 15.
Il cognome inizia a 15 e finisce a 30.

Qualcuno mi sa dire come posso importarlo in un db tramite visual basic. Mi potete fare un'esempio, grazie.

[munshun]

Ciao,

non so se ti può andar bene, ma potresti fare + o - così ( non metto il codice perché mi ci vuole troppo ):

1 - Apri il file e leggi la prima riga. Il contenuto finisce dentro una variabile stringa;
2 - tramite le funzioni di trattamento delle stringhe ( che sono molto semplici da usare ), spezzi la riga come ti serve in altrettante variabili);
3 - a questo punto hai gli elementi che ti servono ( per intenderci nelle variabili hai il contenuto delle sottostringhe che provengono dalla stringa letta all'inizio ) e ti basta fare una semplice connessione al DB con conseguente inserimento dei dati;

Scusa se non ti fornisco un esempio, ma oggi ho poco tempo. Cmq con questi passi non dovresti avere problemi ( anche perché la traduzione in codice VB si riesce a fare in poco tempo ), e se hai bisogno di ulteriore aiuto rispondi al Thread.

C'ya

:metallica

[michelepi]

Ok grazie, vedo un pò che riesco a combinare perchè vb non lo utilizzo quasi mai.
Ciao

[Gigi84]

Alternativa:
se il file è molto lungo, potresti metterci un po' a scorrerlo tutto, quindi puoi usare ADO, e creare una connessione al file di testo usando il driver per i file di testo..!! è molto più veloce ed inoltre ti ritrovi i dati in un recorsdet!!
se invece il file è relativamente corto puoi usare anche il metodo che ti ha descritto munshun che va benissimo, eviti di introdurre una complessità forse inutile!

ciao!!

[yyzyyz]

Originariamente inviato da michelepi
Ho un file di testo con nome e cognome di alcuni clienti.
Il nome inizia sulla colonna 1 e finisce a 15.
Il cognome inizia a 15 e finisce a 30.

Qualcuno mi sa dire come posso importarlo in un db tramite visual basic. Mi potete fare un'esempio, grazie.

:di56:

Dim nom As String
Dim cog As String
Private Sub Command1_Click()
Open App.Path & "\dati.txt" For Input As #1
While Not EOF(1)
    Line Input #1, lineoftext$
    
    With Data1.Recordset
    .MoveFirst
    .AddNew
    nom = Mid(lineoftext$, 1, 14)
    cog = Mid(lineoftext$, 15, 30)
    .Fields("nome") = nom
    .Fields("cognome") = cog
    .Update
    .MoveNext
    End With
Wend
    
Close #1

End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & ("\db.mdb")
Data1.RecordSource = "Tabella1"
End Sub

se hai bisogno del sorgente (progetto vb con db) te lo mando via mail cosi te lo provi di persona, ovvio ke il mio è solo un esempio.