Fråga : Vbs skrivar som kan kontrollera 2 mappar, som har identisk csv sparar och jämför colum ”C” och får spara namnger precis, som har avkrävadatan i columen i båda sparar.

Hi
Vbs skrivar som kan kontrollera 2 mappar, som har identisk csv sparar och jämför colum ”C” och får spara namnger precis, som har avkrävadatan i columen i båda files.

Regards
Sharath " klar "

Svar : Vbs skrivar som kan kontrollera 2 mappar, som har identisk csv sparar och jämför colum ”C” och får spara namnger precis, som har avkrävadatan i columen i båda sparar.

kontrollera det:
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”,
Fastställd fsoLog = CreateObject (”Scripting.FileSystemObject”)
fastställd objLog = fsoLog.CreateTextFile (LOG_FILE, 2)

dunkel fileName, compFileName
strComputer = ”.”,
Fastställd objWMIService = GetObject (”winmgmts: {impersonationLevel=impersonate}! \ \” & strComputer & ”\ rotar \ cimv2”)
	
Fastställda FileList = objWMIService.ExecQuery (”ASSOCIATORS AV {Win32_Directory.Name='" & FOLDER1 & ”'} var ResultClass = CIM_DataFile”)
	
För varje som är objFile i FileList
    Om objFile.Extension = ”csv” därefter
        fileName = objFile.Drive & objFile.Path & objFile.FileName & ”.”, & ”csv”,
		compFileName = FOLDER2 & ”\” & objFile.FileName & ”.”, & ”csv”,
		om IsFileExists (compFileName) därefter
			CompareCsvFile fileName, compFileName
		avsluta om

	Avsluta om
Därefter

objLog.Close
fastställd objLog = ingenting
fastställd fsoLog = ingenting

fungera IsFileExists (fileNamen)
	DUNKEL fso
	Fastställd fso = CreateObject (”Scripting.FileSystemObject”)

	Om (fso.FileExists (fileName)) Därefter
		IsFileExists=true
	Annars
		IsFileExists=false
	Avsluta om
Avsluta fungerar

sub CompareCsvFile (fileName, compFileName)
	dunkel fs som är objTextFile, data1, data2
	uppsättning fs = CreateObject (”Scripting.FileSystemObject”)
	dunkel arrStr, col_values1, col_values2, arr1, arr2
	fastställdt objTextFile = fs.OpenTextFile (fileNamen)
	
	'läs data för kolonn 5 från första csv sparar
	Gör stunder INTE objTextFile.AtEndOfStream
		arrStr = splittring (objTextFile.ReadLine, ”,”)
		om  UBound (arrStr) < 4="" then="" outputLogResult="" fileName=""> UBound (arr2) därefter
		outputLogResultfileName, compFileName som är falsk
		gå ut suben
	avsluta om

	För räkning = 0 till UBound (arr1)
		'kontrollera, om data är identiska
		data1=arr1 (räkning)
		data2=arr2 (räkning)
		om data1 <> data2 därefter
			outputLogResultfileName, compFileName som är falsk
			gå ut suben
		avsluta om
	Därefter
	
	fastställdt objTextFile = ingenting
	uppsättning fs = ingenting
	
	outputLogResultfileName, compFileName som är riktig
Avsluta suben
  
 sub outputLogResult (fileName, compFileName, resultatet)
 
	 om resultatet = true därefter
		identisk objLog.WriteLine ”sparar: ”, 
	 annars
		objLog.WriteLine ”Unidentical sparar: ”, 
	 avsluta om

	objLog.WriteLine-fileName
	objLog.WriteLine-compFileName
	objLog.WriteLine
avsluta suben
Andra lösningar  
 
programming4us programming4us