Discussion :

[brownthefou]

Bonjour à tous !

Avec un petit algorithme je normalise des fichiers textes possédant certains paramètres en un fichier texte unique avec des colonnes "vides".

Je m'explique :

Mon fichier de base est sous la forme :

param1 param3 param4
x1 x3 x4
x1 x3 x4

avec plusieurs x1, x3 et x4 car mesures à différents temps.

Je crée un string de la forme:

param1 param2 param3 param4 param5

Donc le but est d'intégrer les valeurs des paramètres dans les bonnes colonnes pour que ce fichier devienne:

param1 param2 param3 param4 param5
x1 " " x3 x4 " "

(Tous les x sont séparés par des tabulations)

Mon code fonctionne bien sur des fichiers textes dont la taille de chaque ligne est inférieure à la taille maximale horizontale d'un fichier texte.

Cependant dans ce type de fichiers la, avec de nombreux paramètres, je ne peux pas intégrer d'espaces.

Est-ce impossible vu que le fichier texte effectue déja un retour à la ligne sans vbCrLf ?

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 Set oFSO1 = New IWshRuntimeLibrary.FileSystemObject
        Set oFl1 = oFSO1.OpenTextFile(SourceFichier, ForReading)
                    sParam = oFl1.ReadLine
                oFl1.Close
        Set oFl1 = Nothing
        Set oFSO1 = Nothing
 
        sPar = Split(sParam, Chr(9))
        k = UBound(sPar())
        If (k = 6) Then
            'type = "RH" & Chr(9) & "Tair" & Chr(9) & "Tcell" & Chr(9) & " " & Chr(9) & " " & Chr(9) & "DP" & Chr(9) & " " & Chr(9) & " " & Chr(9) & " " & Chr(9) & " "
            'type = Tabline(3+1) & Chr(9) & Tabline(2+1) & Chr(9) & Tabline(1+1) & Chr(9) & " " & Chr(9) & " " & Chr(9) & Tabline(4+1) & Chr(9) & " " & Chr(9) & " " & Chr(9) & " " & Chr(9) & " "
            bool = True
        Else
            'type = Tabline(3+1) & Chr(9) & Tabline(2+1) & Chr(9) & Tabline(1+1) & Chr(9) & " " & Chr(9) & " " & Chr(9) & " " & Chr(9) & " " & Chr(9) & " " & Chr(9) & " " & Chr(9) & " "
            bool = False
        End If
 
    Set fso = New IWshRuntimeLibrary.FileSystemObject
    Set oTs = fso.OpenTextFile(sFichiertxt, ForReading)
        While Not oTs.AtEndOfStream
        ReDim Preserve arrFileLines(x)
        arrFileLines(x) = oTs.ReadLine
        arrFileLines(x) = Replace(arrFileLines(x), Chr(9) & Chr(9), Chr(9))
            For i = 0 To nb_param
                ll = i * (nb_mod + 1)
                ReDim Preserve tabline(y)
                tabline = Split(arrFileLines(x), Chr(9))
                If (bool = True) Then
                    If ((6 + ll) < UBound(tabline()) - 1) Then
                        tabline(1 + ll) = tabline(1 + ll) & Chr(9) & " "
                        'remplacement case par case
                        ' 1 --> 3
                        inter = tabline(3 + ll)
                        tabline(3 + ll) = tabline(1 + ll)
                        ' 2 --> 2 !!!
                        ' 3 --> 1
                        tabline(1 + ll) = inter
                        ' 4 --> 6
                        tabline(6 + ll) = tabline(4 + ll) & Chr(9) & " " & Chr(9) & " " & Chr(9) & " " & Chr(9) & " "
                        tabline(4 + ll) = " "
                        End If
 
                Else
 
                    If ((3 + ll) < UBound(tabline()) - 1) Then
                        'remplacement case par case
                        ' 1 --> 3
                        inter = tabline(3 + ll)
                        tabline(3 + ll) = tabline(1 + ll) & Chr(9) & " " & Chr(9) & " " & Chr(9) & " " & Chr(9) & " " & Chr(9) & " " & Chr(9) & " " & Chr(9) & " "
                        ' 2 --> 2 !!!
                        ' 3 --> 1
                        tabline(1 + ll) = inter
 
                    End If
 
                End If
            Next i
            sLigne = Join(tabline, Chr(9))
            sContenu = sContenu & sLigne & vbCrLf
        Wend
 
    End If

Si vous avez une idée n'hésitez pas !

Cordialement

[Jean-Philippe André]

salut,
je t'avoue que j'ai du mal à saisir la question et dans quel cadre tu la soulèves

Faire une série de tabulations et d'espace ne pose pas de problèmle en soit, qu'est-ce qui te pose problème exactement ?

Si tu sais encoder le fichier, tu sauras le décoder...

[brownthefou]

Je voudrais savoir s'il y a une perte de données en intégrant trop de caractères sur une ligne d'une fichier texte.

Ici mon intégration de tabulation et d'espaces ne se fait qu'une fois alors que j'ai un algorithme similaire qui lui se répète bien le nombre de fois demandé, je voulais savoir si le problème peut ne pas venir de mon code mais du fichier ou je le transfère.

Cordialement