Discussion :

[cleanbox4960]

Bonjour ami programmeur,

Cela fait un bout de temps que je n'ai plus pratiquer sous VB6. J'aimerais savoir comment créer un fichier texte structuré. Je sais créer/lire/écrire un fichier, mais il n'est pas structuré. Déjà rechercher sur google, mais les réponses sont assez vague. Ce que je voudrais obtenir ==> exemple : Toto | 02/12/2015 11h50

Dans le code ci-dessous, je rentre du texte, que j'enregistre et que je transfert à une autre textbox d'une autre form.
Merci d'avance pour vos réponses.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
 
If Text1.Text = "" Then
MsgBox "attention", vbCritical, " Information"
Else
Form2.Text1.Text = Text1.Text
Form2.Show
 
Open "C:\NOTE.TXT" For Append As #1
Print #1, Text1.Text
Close #1
Text1.Text = ""
End If
 
End Sub

[lartiguef]

Salut,

Je te propose cette méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub EcritureFichierBibli()
Dim strFichier As String
Dim i As Integer
Dim Text As String
Dim strSep As String: strSep = ";"
 
strFichier = App.path & "\TonFichier.txt"
Open strFichier For Output As #1
 
    For i = 0 To UBound(AppareilBibliDebut)
        Text = ""
        Text = Text & "TEXTE": Text = Text & strSep
        Text = Text & "TEXTE": Text = Text & strSep
 
        Print #1, Text
    Next i
 
Close #1
End Sub

[cleanbox4960]

Merci de ta réponse, je prends note de ton expérience. Je te reviens plus tard pour confirmer que cela fonctionne bien