recherche de doublon dans un fichier format fixe

**Kam0uloX** · 06/02/2011, 11h12

saluta à tous

voila je dois faire un script qui doit parcourir un releve de compte et eclater le fichier avec comme critere le compte, et la date de solde...jusque là pas de pbs. Mon seul souci c'est que dans certains de mes releves je dois supprimer certains enregistrements 01 (entete) et 07 (fin), le but etant d'avoir dans mon fichier de sortie un seul enregistrement 01 en debut de fichier et un seul enregistrement 07a la fin de mon 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
public function SplitAFB120(byref ofile)
On Error Resume Next
 
dim  sType, NewDateSolde
 
set fso = CreateObject("Scripting.FileSystemObject")		
 
set rflow = fso.OpenTextFile(ofile, ForReading, false)
 
do while rflow.AtEndOfStream <> true 
sline = rflow.Readline                 'lecture de la ligne
 
codeenr = mid(sline, 1, 2)      '01,04,05,07)
sBank = mid(sline, 3,5) 	'Banque
sZr1 = mid(sline, 8,4)
sGuichet = mid(sline, 12, 5)            'Guichet
sDev = mid(sline, 17,3)
sNbDec = mid(sline, 20,1)
sZr2 = mid(sline, 21,1)
sCompte =  mid(sline, 22,11)            'Compte
sZr3 = mid(sline,33,2)
sDateSI = mid(sline, 35,6)
sZr4 = mid(sline,41,50)
sMontantSI = mid(sline, 91,14)
sZr5 = mid(sline,105,16)
 
tmpline = sBank & sZr1 & sGuichet & sDev & sNbDec & sZr2 &  sCompte & sZr3 & sDateSI & sMontantSI & sZr5
 
wscript.echo tmpline
 
TmpAcc = sBank & sGuichet & sCompte    'RIB Complet
for each sline in rflow 'on parcours chaque ligne			
 
	x=Instr(3,tmpline,sline,1)
 
	Wscript.echo x
 
	if x > 0 then 
	MsgBox "doublon"
	end if......
next