salut

j'ai un fichier texte la position des données est importante.

1 caractère signifie...
2 cractèere signifie
3 au 6 caractèere signifie....
...

voici un exemple
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
000001000111100000000000000001263806080616500116491900042    0000008470000000000000000000008470000003860000008470000000000000000000080000100003520000100000060000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000A
000002000111100000000000000001974406080616513516510500030    0000007955000000000000000000007955000003540000007955000000000000000000020000300003070000080000070000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000A
après le 00042 et le 00030, il y a 4 espaces

lorsque j'écrit chaque valeur sur une ligne j'obtiens le fichier
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
0
0
0001
0001111
0000000000
0000
00
12638
060806
165001
164919
00042
 
000000847000
0000000000
0000000084
7000000386
000000847000
000000000000
000008
000010
000352
000010
000006
000000
000000
000000
000000
000000
000000
000000
000000
000000
0000
0000
0000
0000
000000000000
000000000000
000000000000
000000000000
000000000000
000000000000
000000000000000000000000000000000000000000000000000000000000000000000000
A
 
 
 
 
0000
0200011
1100000000
0000
00
00197
440608
061651
351651
05000
30  
  0000007955
0000000000
0000000000
7955000003
540000007955
000000000000
000000
020000
300003
070000
080000
070000
000000
000000
000000
000000
000000
000000
000000
000000
0000
0000
0000
0000
000000000000
000000000000
000000000000
000000000000
000000000000
000000000000
000000000000000000000000000000000000000000000000000000000000000000000000
0
0
A
il y a donc un problème après le premier A... il y a une ligne blanche et un genre de carré que je suis pas capable d'affiché ici...


mon code

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
Open "c:\numeraire\trieuse_out.txt" For Output As #2
Open "c:\numeraire\trieuse.txt" For Input As #1
While EOF(1) = False
    RecordType = Input(1, #1)
    Print #2, RecordType
 
    RecordSubtype = Input(1, #1)
    Print #2, RecordSubtype
 
    SequenceNumber = Input(4, #1)
    Print #2, SequenceNumber
 
    OperatorId = Input(7, #1)
    Print #2, OperatorId
 
    AccountNumber = Input(10, #1)
    Print #2, AccountNumber
 
    LabelA = Input(4, #1)
    Print #2, LabelA
 
    LabelB = Input(2, #1)
    Print #2, LabelB
 
    LabelC = Input(5, #1)
    Print #2, LabelC
 
    PCSystemDate = Input(6, #1)
    Print #2, PCSystemDate
    'MsgBox PCSystemDate
 
    TransEndTime = Input(6, #1)
    Print #2, TransEndTime
 
    TransStartTime = Input(6, #1)
    Print #2, TransStartTime
 
    TransElapsedTime = Input(5, #1)
    Print #2, TransElapsedTime
 
    Spaces = Input(4, #1)
    Print #2, Spaces
 
    TotalValue = Input(12, #1)
    Print #2, TotalValue
    'MsgBox TotalValue
 
    AmountClaimed = Input(10, #1)
    Print #2, AmountClaimed
 
    AmountOverShort = Input(10, #1)
    Print #2, AmountOverShort
 
    TotalQtCur = Input(10, #1)
    Print #2, TotalQtCur
 
    TotalValCur = Input(12, #1)
    Print #2, TotalValCur
 
    TotalValCash = Input(12, #1)
    Print #2, TotalValCash
 
    Processed100 = Input(6, #1)
    Print #2, Processed100
 
    Processed50 = Input(6, #1)
    Print #2, Processed50
 
    Processed20 = Input(6, #1)
    Print #2, Processed20
 
    Processed10 = Input(6, #1)
    Print #2, Processed10
 
    Processed5 = Input(6, #1)
    Print #2, Processed5
 
    Processed2 = Input(6, #1)
    Print #2, Processed2
 
    Processed1 = Input(6, #1)
    Print #2, Processed1
 
    Manual100 = Input(6, #1)
    Print #2, Manual100
 
    Manual50 = Input(6, #1)
    Print #2, Manual50
 
    Manual20 = Input(6, #1)
    Print #2, Manual20
 
    Manual10 = Input(6, #1)
    Print #2, Manual10
 
    Manual5 = Input(6, #1)
    Print #2, Manual5
 
    Manual2 = Input(6, #1)
    Print #2, Manual2
 
    Manual1 = Input(6, #1)
    Print #2, Manual1
 
    ChecksUnit = Input(4, #1)
    Print #2, ChecksUnit
 
    CoinUnits = Input(4, #1)
    Print #2, CoinUnits
 
    Denom1Units = Input(4, #1)
    Print #2, Denom1Units
 
    List2Unit = Input(4, #1)
    Print #2, List2Unit
 
    Zeros = Input(12, #1)
    Print #2, Zeros
 
    Zeros = Input(12, #1)
    Print #2, Zeros
 
    ChecksValue = Input(12, #1)
    Print #2, ChecksValue
 
    CoinsValue = Input(12, #1)
    Print #2, CoinsValue
 
    Denom1Value = Input(12, #1)
    Print #2, Denom1Value
 
    List2Value = Input(12, #1)
    Print #2, List2Value
 
    Zeros = Input(72, #1)
    Print #2, Zeros
 
    PollAddress = Input(1, #1)
    Print #2, PollAddress
 
  Wend
 
Close #1
Close #2
après la dernière écriture avant le Wend,c'est là que le problème sembe se passé car un saut de ligne se fait et le caractère carré bizare est ajouté... ce qui fause ensuite la lecture de la deuxième ligne

une idée?