Discussion :

[excalybur]

Bonjour,

Je fusionne une vieille collection de fichiers séquentielles (type *.txt ou * a une valeur de 0 à 100 par exemple) en un seul fichier destination par exemple z.txt.

Pour cela j'utilise le petit programme suivant que je viens d'écrire sur console:

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
Imports System
 
Module Program
    Sub Main()
 
 
        Dim linesFromFile1() As String
        Dim combinedLines As New List(Of String)
 
        For n = 0 To 100
            linesFromFile1 = IO.File.ReadAllLines("F:\TEST\" + Mid(Str(n), 2) + ".ech")
 
            For linePos As Integer = 0 To System.Math.Max(linesFromFile1.Length, linesFromFile1.Length) - 1
                combinedLines.Add(linesFromFile1(linePos))
            Next
 
        Next
 
        IO.File.WriteAllLines("F:\TEST\Z.ech", combinedLines.ToArray())
 
    End Sub
 
End Module

Nota : L'inter-code + Mid(Str(n), 2) + est nécessaire sinon la recherche se fera sur " 0.txt" et non "0.txt" ! et échouera donc.

Pour faire simple, ces fichiers séquentielles sont tous composés de fiches sur 3 lignes chacune avec en première position le numéro d'ordre 1 ,2 , 3 etc. Donc toutes les trois lignes on a une nouvelle fiche. Exemple :

ligne 1 : 1
ligne 2 : Blabla
ligne 3 : etc

ligne 4 : 2
ligne 5 : Chat
ligne 6 : souris

ligne 7 : 3
etc.

Mais en pratique c'est un peu n'importe quoi au niveau de l'ordre de mes fichiers d'origines 0.txt, 1.txt .... Il me faut modifier chronologiquement ces lignes de numéro peu importe le numéro qu'ils avaient au début. C'est déjà bien de ne pas avoir à les réorganiser !

Il me faut donc renuméroter les lignes 1 (modulo 3 pour les matheux) 4 , 7 , 10 , 13 etc avec un numéro d'ordre 1, 2, 3, 4 ...

Je pensais en utilisant ReadAllLines y arriver facilement en même temps que je cré z.txt. Malheureusement je n'ai pas trouvé l'astuce.

Si vous avez une idée je suis preneur.

En vous remerciant par avance

[excalybur]

L'opérateur Mod est une bonne alternative. Il existe une différence entre le reste et le module en mathématiques, avec des résultats différents pour les nombres négatifs. Ceci n'est pas notre problème ici !

Voici une solution mais je pense qu'il y a mieux !

J'ai continué mes recherches et j'utilise le fichier Z.txt pour le convertir en X.txt avec la renumérotation.

Le résultat est bien obtenu dans X.txt

Bienvenu à vos commentaires :

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
        Dim linesFromFile2() As String
        Dim combinedLines As New List(Of String)
        Dim combinedLines2 As New List(Of String)
 
        For n = 0 To 100
            linesFromFile1 = IO.File.ReadAllLines("F:\TEST\" + Mid(Str(n), 2) + ".txt")
 
            For linePos As Integer = 0 To System.Math.Max(linesFromFile1.Length, linesFromFile1.Length) - 1
                If linePos Mod 3 = 0 Then linesFromFile1(linePos) = linePos / 3
                combinedLines.Add(linesFromFile1(linePos))
            Next
        Next
           'résultat provisoire dans Z.txt
        IO.File.WriteAllLines("F:\TEST\Z.txt", combinedLines.ToArray())
 
        'renumérotage en mode chrono
        linesFromFile2 = IO.File.ReadAllLines("F:\TEST\Z.txt")
 
        For linePos As Integer = 0 To System.Math.Max(linesFromFile2.Length, linesFromFile2.Length) - 1
            If linePos Mod 3 = 0 Then linesFromFile2(linePos) = linePos / 3
            combinedLines2.Add(linesFromFile2(linePos))
        Next
'résultat dans :
        IO.File.WriteAllLines("F:\TEST\X.ech", combinedLines2.ToArray())

[umfred]

Qu'est-ce que tu as besoin de renuméroter ? je ne suis pas sûr d'avoir bien compris
Par exemple dans 0.txt tu peux avoir:

Code :

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

1
2
3
100
blabla01
blabla02

dans 1.txt

Code :

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

1
2
3
50
blabla11
blabla12

et dans 2.txt

Code :

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

1
2
3
13
blabla21
blabla23

et au final dans ton fichier Z.txt, tu veux:

Code :

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

1
2
3
4
5
6
7
8
9
0
blabla01
blabla02
1
blabla11
blabla12
2
blabla21
blabla22

Si c'est ça pourquoi ne pas utiliser ton i pour nommer à la volée les blocs ? (ou si les fichiers contiennent plus d'un bloc, un autre numérateur)
en sautant les lignes initiales d'index

PS sinon à la place de Mid(str(n),2), il est plus simple d'utiliser Trim(Str(n)), Trim retirant tous les espaces à droite et à gauche d'une chaine.
Je ne sais pas trop pourquoi tu utilises la fonction max, readalllines te lit toutes les lignes du fichier, donc tu te retrouves avec un tableau/liste des lignes; éventuellement tester si la ligne est vide.

[excalybur]

Bonjour umfred,

Merci pour tes observations.

1/ Pour l'indexation tu a bien résumé mon besoin.

2/ Pour la fonction Trim c'est OK et c'est plus lisible bien sur. J'avais oublié cette instruction.

3/ La méthode ReadAllLines lit bien sur toutes les lignes mais ne retourne pas la position de la dernière ligne nécessaire pour la boucle au format Integer d'où le besoin de l'identifie avec Max. Mais effectivement il semble possible d'écrire cette opération sans utiliser Max :

Code :

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

1
2
3
4
       Dim s As String
        For Each s In linesFromFile1
            Console.WriteLine(s)
        Next

Est-ce bien cela ton idée ?

A+

[umfred]

linesFromFile1.Length contient le nombre de lignes lues (nombre d'élément de linesFromFile1)
De plus tu prends le Max de 2 fois la même valeur, donc inutile ...

Code :

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

System.Math.Max(linesFromFile1.Length, linesFromFile1.Length)

le For Each aussi peut être utilisé, si tu n'as pas besoin de la variable d'itération (et que tu ne modifies pas le tableau en cours de boucle)

[excalybur]

Bonsoir,

Tu ne peut pas écrire :

Code :

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

System.Math.Max(linesFromFile1.Length)

sans déclencher une erreur puisque la méthode compare deux variables par définition. Donc l'astuce est de comparer deux fois la même variable.