Discussion :

[triaguae]

bonjour,

je suis novice en vbs et débutant en vba
je suis confronté à une demande qui consisterai à découper un fichier txt en plusieurs fichiers en fonction de certains critères: un exemple cidessous :

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
1085039152 082 03.12.08 99.04 18:13
0396 293 1921 0217
0431 370 0061 0224
0322 291 0023 0204
0469 375 0791 0271
$
1017174052 047 03.12.08            
0347 348 0448 0195
0425 299 0187 0204
0421 309 0070 0198
$
1085300173 049 03.12.08 99.04 16:55
0338 295 1938 0377
0525 286 0050 0375
$

mon critère est le nombre de 2 chiffres situé à gauche en 3ème position pour les 3 lignes "les plus longues" soit 85 puis 17 puis 85
je veux donc créer un nouveau fichier pour chacun de ces critères, ici j'aurais donc 2 fichiers F85 et F17
dans chacun de ces fichiers, je veux copier les lignes qui vont avec. l'exemple ci dessous montre ce que je veux à partir du listing présenté ci-dessus:
pour le F85

Code :

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

1
2
3
4
5
6
7
8
9
10
1085039152 082 03.12.08 99.04 18:13
0396 293 1921 0217
0431 370 0061 0224
0322 291 0023 0204
0469 375 0791 0271
$
1085300173 049 03.12.08 99.04 16:55
0338 295 1938 0377
0525 286 0050 0375
$

et pour le F17

Code :

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

1
2
3
4
5
6
 
1017174052 047 03.12.08            
0347 348 0448 0195
0425 299 0187 0204
0421 309 0070 0198
$

je ne sais pas comment faire ça! un petit coup de pouce pour commencer me serait utile
merci

[ced600]

FileSystemObject t'aideras à ouvrir, lire et écrire dans un fichier.

Ensuite il suffit d'utiliser des fonctions de chaines de caractères pour faire ce que tu souhaites, comme Split, Right, Left, ...
Cherche sur google avec "fonction de chaines de caractères vbscript" ou avec le nom des fonctions directement et tu trouveras des liens intéressants.

[triaguae]

j'ai réussi à faire (presque) ce que je voulais mais finalement avec excel et donc en vba.
comme il me reste qq petits problèmes à régler, je vais reposter sur le bon forum