Discussion :

[Valarauko]

Bonjour,
voilà le souci, ça fait un ptit moment que je ne me suis plus mis au VB et je suis un peu perdu

j'aimerais séparer un fichier texte en plusieurs parties (le séparateur est le même pour chaque partie) et créer un nouveau fichier txt par partie.

je sais pas si je suis trés clair ...

Merci d'avance

[LeForestier]

bonjour,
Si ton séparateur est toujours le même comme tu le précise, voir la fonction 'SPLIT' dans l'aide en ligne
A+

[zazaraignée]

bonjour,
Si ton séparateur est toujours le même comme tu le précise, voir la fonction 'SPLIT' dans l'aide en ligne
A+

C'est aussi ce que je ferais. Une petite précision cependant, juste au cas, tu dois lire le fichier texte dans une variable et faire le Split en passant cette variable en paramètre.

L'exemple qui suit contient trois boutons de commande, une zone de texte multiligne et un Label.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private TableauSectionFichier() As String
Private giI As Integer
 
Private Sub Command1_Click()  
' lit le fichier et sépare son contenu sur le caractère '*'
    Dim FichierTexte As String
    Dim ligneFichier As String
    Dim numFichier As Integer  ' numéro de fichier
    numFichier = FreeFile   ' Affecte un numéro de fichier pas encore utilisé
    ' Le fichier est dans le même répertoire que l'application
    Open App.Path & "\Fichier.txt" For Input As #numFichier
    Do Until EOF(numFichier)
        Line Input #numFichier, ligneFichier
        FichierTexte = IIf(ligneFichier = "", FichierTexte & vbCrLf, _
                            FichierTexte & ligneFichier & vbCrLf)
    Loop
    Close #numFichier
    TableauSectionFichier = Split(FichierTexte, "*")
    Debug.Print UBound(TableauSectionFichier)
    giI = 0
    Text1.Text = TableauSectionFichier(giI)
    Label1.Caption = giI + 1
End Sub
 
Private Sub Command2_Click() 
' affiche la section courante du fichier et son numéro
    giI = IIf(giI < UBound(TableauSectionFichier), giI + 1, 0)
    Text1.Text = TableauSectionFichier(giI)
    Label1.Caption = giI + 1
End Sub
 
Private Sub Command3_Click()
    End
End Sub

[ucfoutu]

Bonsoir,

Question (non posée apparemment) : structure de ce fichier texte ?
(ou sinon : écrit à l'aide de quoi ?)