recherche de doublon dans un fichier format fixe

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:

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

Comment faire pour y parvenir?
Merci pour votre aide

Merci de bien vouloir donner un exemple du fichier source et un autre pour le fichier de sortie.

J'ai joint 2 fichiers pour l'exemple.
Un fichier en entree qui serait mon fichier source et mon fichier de sortie
Merci en tout cas pour votre aide

finalement j'ai abandonné l'idee. C'est impossible a faire pour moi. le plus simple est d'eclater le fichier en entree en "n" fichier je pense.