Copier les resultat de comparaison entre des chaines de caractères dans un fichier

Version imprimable

Bonjour

Je vous expose mon problème

J’ai un fichier .txt avec plusieurs lignes en format (Date;CountryKey) par exemple (012008;FR),
j’ai un dossier « Y:\Source\Tests\Ajustement\FF_Sales_Line_Items\" » qui contient des fichiers .csv qui ont tous ou presque les même formats xx_xxxx_xxxx_xxxxx_FR_200801.csv (c’est un exemple)

Dans mon script je voudrai écrire dans un fichier cible « Y:\Targe t\tgt ODS_Record_Date_Country_Key_exist.txt » les lignes dont la Date;CountryKey égale à la chaîne (FR_200801) dans les fichiers du repertoire!!!!!!

Le script est le suivant :
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 Dim FSO, Fld, fileName Const ForAppending = 8 ' lecture du dossier Set FSO = CreateObject("Scripting.FileSystemObject") srcRep = "Y:\Source\Tests\Ajustement\FF_Sales_Line_Items\" Set f = FSO.OpenTextFile("Y:\Target\tgt ODS_Record_Date_Country_Key.txt", 1) Set ffWrite = FSO.OpenTextFile("Y:\Target\tgt ODS_Record_Date_Country_Key_exist.txt", ForAppending, true) For each fileFld in FSO.GetFolder(srcRep).files nameDate = "" CountryKey = "" if Right(fileFld.Name,3) = "csv" then 'les fichiers *.csv 'la date CountryKey = Mid(fileFld.Name,21,2) nameDate = Mid(fileFld.Name,28,2) & Mid(fileFld.Name,24,4) while Not f.AtEndOfStream if f.readLine = nameDate & ";" & countryKey then ffWrite.write ( f.readLine & vbCrlf ) end if Wend end if fileFld = "" Next ffWrite.close f.close
Le problème est que le programme ne boucle pas sur le deuxième fichier du dossier? Je n'arrive pas à trouver l'erreur

Merci pour vos réponses

15/05/2008, 10h06
ced600
Est ce qu'il y a un On Error Resume Next qui traine quelque part ? Si oui, vire le, relance le script, et donne nous l'erreur et la ligne incriminé.

Vérifie à l'aide de MSGBOX que la premiere boucle se termine correctement.

Note au passage que la boucle suivante t'amène à la fin du fichier dès le premier passage de la boucle foreach :
Code:

1 2 3 4 5 while Not f.AtEndOfStream if f.readLine = nameDate & ";" & countryKey then ffWrite.write ( f.readLine & vbCrlf ) end if Wend
Et comme tu ne fermes pas le fichier et ne le reouvres pas dans la boucle foreach, au deuxième passage, tu ne passes plus dans ton while.

j'ai fait quelques modifications mais toujours pas de résultats :

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
 
Dim FSO, Fld, fileName
Const ForWriting = 2
' lecture du dossier
Set FSO = CreateObject("Scripting.FileSystemObject")
srcRep = "Y:\Source\Tests\Ajustement\FF_Sales_Line_Items\"
Set       f = FSO.OpenTextFile("Y:\Target\tgt ODS_Record_Date_Country_Key.txt", 1)
	For each fileFld in FSO.GetFolder(srcRep).files
		'les fichiers  *.csv
		nameDate = ""
		CountryKey = ""
		'if Right(fileFld.Name,3) = "csv" then   ' ne prend pas les fichiers......"*a.csv"
                	'la date
			CountryKey = Mid(fileFld.Name,21,2)
			nameDate   = Mid(fileFld.Name,28,2) & Mid(fileFld.Name,24,4)
                         while Not f.AtEndOfStream
                            LineF = f.readLine
                            if LineF = nameDate & ";" & countryKey then
                               'msgbox LineF  & " -----" & nameDate & ";" &  CountryKey 
                               Set ffWrite = FSO.OpenTextFile("Y:\Target\tgt_ODS_Record_Date_Country_Key_exist.txt", ForWriting, true)
                               ffWrite.write ( LineF & vbCrlf )
                               ffWrite.close
                            End if
                        Wend
		'end if
	Next
f.close
set f = nothing
set ffWrite = nothing
set FSO = nothing

Je remarque deux choses :
La condition if ne marche pas même s'il y a des correspondances;
La boucle foreach renvoie Les comparaisons juste pour la première ligne du dossier (premier fichier) et s'arrête

Sinon je n'ai pas d'erreur du type On Error Resume Next

rebonjour

j'ai encore modifié mon script et ça marche cette fois si par contre les performances sont minimes surtout quand je l'intègre dans mon mapping SSIS

Si vous pouvez l'optimiser je serai preneur

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
 
Dim FSO, Fld, fileName
Const ForAppending = 8
' lecture du dossier
Set FSO = CreateObject("Scripting.FileSystemObject")
srcRep = "Y:\Source\Tests\Ajustement\FF_Sales_Line_Items\"
Set       f = FSO.OpenTextFile("Y:\Target\tgt ODS_Record_Date_Country_Key.txt", 1)	
 while Not f.AtEndOfStream
        LineF = f.readLine
        For each fileFld in FSO.GetFolder(srcRep).files
	   'les fichiers  *.csv
	    nameDate = ""
	    CountryKey = ""
	    'if Right(fileFld.Name,3) = "csv" then   ' ne prend pas les fichiers......"*a.csv"
                'la date
		CountryKey = Mid(fileFld.Name,21,2)
		nameDate   = Mid(fileFld.Name,28,2) & Mid(fileFld.Name,24,4)
		Set ffWrite = FSO.OpenTextFile("Y:\Target\tgt_ODS_Record_Date_Country_Key_exist.txt", ForAppending, true)
                 if LineF = nameDate & ";" & countryKey then
                  'msgbox LineF  & " -----" & nameDate & ";" &  CountryKey
                    'msgbox LineF
                  ffWrite.write ( LineF & vbCrlf )
                 End if
                ffWrite.close
	    'end if
	Next
  Wend
f.close
set f = nothing
set ffWrite = nothing
set FSO = nothing

Merci

Le On Error Resume Next est une ligne de code !!!
Je n'ai aucune idée si tu m'as donnés tout ton script ou une portion, c'est pour cela que je t'ai demandé de l'enlevée si tu en as mis.
Bon cela m'étonnerais que tu ais fait cela vu que tu ne savais pas ce que c'était.

Pour le code suivant :

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
Dim FSO, Fld, fileName
Const ForWriting = 2
' lecture du dossier
Set FSO = CreateObject("Scripting.FileSystemObject")
srcRep = "Y:\Source\Tests\Ajustement\FF_Sales_Line_Items\"
Set       f = FSO.OpenTextFile("Y:\Target\tgt ODS_Record_Date_Country_Key.txt", 1)
	For each fileFld in FSO.GetFolder(srcRep).files
		'les fichiers  *.csv
		nameDate = ""
		CountryKey = ""
		'if Right(fileFld.Name,3) = "csv" then   ' ne prend pas les fichiers......"*a.csv"
                	'la date
			CountryKey = Mid(fileFld.Name,21,2)
			nameDate   = Mid(fileFld.Name,28,2) & Mid(fileFld.Name,24,4)
                         while Not f.AtEndOfStream
                            LineF = f.readLine
                            if LineF = nameDate & ";" & countryKey then
                               'msgbox LineF  & " -----" & nameDate & ";" &  CountryKey 
                               Set ffWrite = FSO.OpenTextFile("Y:\Target\tgt_ODS_Record_Date_Country_Key_exist.txt", ForWriting, true)
                               ffWrite.write ( LineF & vbCrlf )
                               ffWrite.close
                            End if
                        Wend
		'end if
	Next
f.close
set f = nothing
set ffWrite = nothing
set FSO = nothing

J'aurais plutôt fait cela :

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
Dim FSO, Fld, fileName
Const ForWriting = 2
' lecture du dossier
Set ffWrite = FSO.OpenTextFile("Y:\Target\tgt_ODS_Record_Date_Country_Key_exist.txt", ForWriting, true) 'Il est très bien là, inutile de le mettre dans la boucle.
Set FSO = CreateObject("Scripting.FileSystemObject")
srcRep = "Y:\Source\Tests\Ajustement\FF_Sales_Line_Items\"
	For each fileFld in FSO.GetFolder(srcRep).files
Set       f = FSO.OpenTextFile("Y:\Target\tgt ODS_Record_Date_Country_Key.txt", 1) 'tu as besoin d'ouvrir le fichier à chaque tour de boucle. 
		'les fichiers  *.csv
		nameDate = ""
		CountryKey = ""
		'if Right(fileFld.Name,3) = "csv" then   ' ne prend pas les fichiers......"*a.csv"
                	'la date
			CountryKey = Mid(fileFld.Name,21,2)
			nameDate   = Mid(fileFld.Name,28,2) & Mid(fileFld.Name,24,4)
                         while Not f.AtEndOfStream
                            LineF = f.readLine
                            if LineF = nameDate & ";" & countryKey then
                               'msgbox LineF  & " -----" & nameDate & ";" &  CountryKey 
                               ffWrite.write ( LineF & vbCrlf )
                            End if
                        Wend
                        f.close 'Si tu le fermes ici au prochain tour de boucle tu peux le réouvrir et tu es au début du fichier ;)
	Next
ffWrite.close 'ffWrite sert à stocker toutes les données pendant tout le script, il ne faut certainement pas le fermer dans le While
set f = nothing
set ffWrite = nothing
set FSO = nothing

Bon le plus propre aurait été de stocker le fichier f dans un tableau 1 fois et de parcourir ce tableau dans les boucles, mais bon c déjà cela.

Merci
J'avais procédé comme suit; et ça me donne les mêmes resultats par contre c'est pas top en temps de réponse.

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
 
Dim FSO, Fld, fileName
Const ForAppending = 8
' lecture du dossier
Set FSO = CreateObject("Scripting.FileSystemObject")
srcRep = "Y:\Source\Tests\Ajustement\FF_Sales_Line_Items\"
Set       f = FSO.OpenTextFile("Y:\Target\tgt ODS_Record_Date_Country_Key.txt", 1)	
 while Not f.AtEndOfStream
        LineF = f.readLine
        For each fileFld in FSO.GetFolder(srcRep).files
	   'les fichiers  *.csv
	    nameDate = ""
	    CountryKey = ""
	    'if Right(fileFld.Name,3) = "csv" then   ' ne prend pas les fichiers......"*a.csv"
                'la date
		CountryKey = Mid(fileFld.Name,21,2)
		nameDate   = Mid(fileFld.Name,28,2) & Mid(fileFld.Name,24,4)
		Set ffWrite = FSO.OpenTextFile("Y:\Target\tgt_ODS_Record_Date_Country_Key_exist.txt", ForAppending, true)
                 if LineF = nameDate & ";" & countryKey then
                  'msgbox LineF  & " -----" & nameDate & ";" &  CountryKey
                    'msgbox LineF
                  ffWrite.write ( LineF & vbCrlf )
                 End if
                ffWrite.close
	    'end if
	Next
  Wend
f.close
set f = nothing
set ffWrite = nothing
set FSO = nothing

ton code marche aussi et il est plus rapide

Merci

15/05/2008, 15h20
ced600

oui je pense que le pc parcours plus rapidement un fichier texte que l'ensemble d'un répertoire et ses sous réprtoires, donc il vaut mieux répéter x fois la boucle du parcours du fichier de texte que celle du parcours du répertoire.