Scrittura File

[viviana75]

Dopo che prendo i dati dalla prima riga del file di testo, vorrei fare una prova e scriverli in nuovo file txt formattati come dico io.

Dim contenuto As String
Dim data As Date


Open "c:\......" For Input As #1
Line Input #1, contenuto
data = Mid(contenuto, 1, 10)
Time = Mid(contenuto, 12, 8)

Close #1

Adesso vorrei prendere il contenuto delle variabili contenuto, e data e scriverle in nuovo file txt.
Come?
grazie

[Johnny_Depp]

una volta formattato la stringa del file di testo
e quindi assegnata a 2 variabile var1 e var2

fai:

Open "C:\directory\new_file.txt" for Append Shared as #1
Print #1, var1 & " " & var2
Close #1

Ciao

[Johnny_Depp]

e volendo (ho letto l'altro tuo 3D) puoi anche inserirli
in un DATABASE.

Se ti interessa sapere come fammi sapere.