Question : Le manuscrit de Vbs qui peut vérifier 2 chemises qui a le csv identique classe et compare le colum « C » et obtient juste les noms de dossier qui a les données exactes dans le colum dans les deux dossiers.

Bonjour, le manuscrit du
Vbs qui peut vérifier 2 chemises qui a le csv identique classe et compare le colum « C » et obtient juste les noms de dossier qui a les données exactes dans le colum dans les deux files.

Regards
Sharath class= de

Réponse : Le manuscrit de Vbs qui peut vérifier 2 chemises qui a le csv identique classe et compare le colum « C » et obtient juste les noms de dossier qui a les données exactes dans le colum dans les deux dossiers.

le vérifier :
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 :

const FOLDER1 = « c:\temp\f1 »
const FOLDER2 = « c:\temp\f2 »
const LOG_FILE = « c:\temp\output.log »
Placer le fsoLog = le CreateObject (« Scripting.FileSystemObject »)
placer l'objLog = le fsoLog.CreateTextFile (LOG_FILE, 2)

obscurcir le nom de fichier, compFileName
strComputer = « . »
Placer l'objWMIService = le GetObject (« winmgmts : {impersonationLevel=impersonate} ! \ \ » et strComputer et « \ racine \ cimv2 »)
	
Placer FileList = objWMIService.ExecQuery (« ASSOCIATORS DE {Win32_Directory.Name='" et FOLDER1 et « '} où ResultClass = CIM_DataFile »)
	
Pour chacun objFile dans FileList
    Si objFile.Extension = « csv » puis
        nom de fichier = objFile.Drive et objFile.Path et objFile.FileName et « . » et « csv »
		compFileName = FOLDER2 et « \ » et objFile.FileName et « . » et « csv »
		s'IsFileExists (compFileName) puis
			Nom de fichier de CompareCsvFile, compFileName
		finir si

	Finir si
Après

objLog.Close
placer l'objLog = rien
placer le fsoLog = rien

fonction IsFileExists (nom de fichier)
	FAIBLE fso
	Placer le fso = le CreateObject (« Scripting.FileSystemObject »)

	Si (fso.FileExists (nom de fichier)) Puis
		IsFileExists=true
	Autrement
		IsFileExists=false
	Finir si
Finir la fonction

substrater CompareCsvFile (nom de fichier, compFileName)
	obscurcir fs, objTextFile, data1, data2
	placer fs = CreateObject (« Scripting.FileSystemObject »)
	obscurcir l'arrStr, col_values1, col_values2, arr1, arr2
	placer objTextFile = fs.OpenTextFile (le nom de fichier)
	
	'lire les données de la colonne 5 à partir du premier dossier de csv
	Faire tandis que PAS objTextFile.AtEndOfStream
		l'arrStr = s'est dédoublé (objTextFile.ReadLine, « , ")
		si  UBound (arrStr) < 4="" then="" outputLogResult="" fileName=""> UBound (arr2) puis
		nom de fichier d'outputLogResult, compFileName, faux
		sortir le sous-marin
	finir si

	Pour le compte = 0 à UBound (arr1)
		'vérifier si les données sont identiques
		data1=arr1 (compte)
		data2=arr2 (compte)
		si data1 <> data2 alors
			nom de fichier d'outputLogResult, compFileName, faux
			sortir le sous-marin
		finir si
	Après
	
	objTextFile réglé = rien
	placer fs = rien
	
	nom de fichier d'outputLogResult, compFileName, vrai
Sous-marin d'extrémité
  
 outputLogResult secondaire (nom de fichier, compFileName, résultat)
 
	 si le résultat = rectifient alors
		dossiers identiques d'objLog.WriteLine « :  » 
	 autrement
		dossiers d'objLog.WriteLine « Unidentical :  » 
	 finir si

	nom de fichier d'objLog.WriteLine
	compFileName d'objLog.WriteLine
	objLog.WriteLine
sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us