Frage : Vbs Index, der 2 Faltblätter überprüfen kann, das identisches csv hat, archiviert und vergleicht colum „C“ und erhält gerade die Aktennamen, das die genauen Daten im colum in beiden Akten hat.

Hallo,
Vbs archiviert Index, der 2 Faltblätter überprüfen kann, das identisches csv hat und vergleicht colum „C“ und erhält gerade die Aktennamen, das die genauen Daten im colum in beiden files.

Regards
Sharath hat

Antwort : Vbs Index, der 2 Faltblätter überprüfen kann, das identisches csv hat, archiviert und vergleicht colum „C“ und erhält gerade die Aktennamen, das die genauen Daten im colum in beiden Akten hat.

es überprüfen:
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:
6:
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“
fsoLog = CreateObject („Scripting.FileSystemObject“) einstellen
objLog = fsoLog.CreateTextFile (LOG_FILE, 2) einstellen

Dateinamen, compFileName verdunkeln
strComputer = „.“
objWMIService = GetObject einstellen („winmgmts: {impersonationLevel=impersonate}! \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
	
FileList = objWMIService.ExecQuery („ASSOCIATORS VON {Win32_Directory.Name='" u. FOLDER1 u. „'} einstellen wo ResultClass = CIM_DataFile“)
	
Für jedes objFile in FileList
    Wenn objFile.Extension = „csv“ dann
        Dateiname = objFile.Drive u. objFile.Path u. objFile.FileName u. „.“ u. „csv“
		compFileName = FOLDER2 u. „\“ u. objFile.FileName u. „.“ u. „csv“
		wenn IsFileExists (compFileName) dann
			CompareCsvFile Dateiname, compFileName
		beenden wenn

	Beenden wenn
Zunächst

objLog.Close
objLog einstellen = nichts
fsoLog einstellen = nichts

Funktion IsFileExists (Dateiname)
	SCHWACHES fso
	Fso = CreateObject („Scripting.FileSystemObject“) einstellen

	Wenn (fso.FileExists (Dateiname)) Dann
		IsFileExists=true
	Sonst
		IsFileExists=false
	Beenden wenn
Funktion beenden

sub CompareCsvFile (Dateiname, compFileName)
	Rumpfstation, objTextFile, data1, data2 verdunkeln
	einstellen Rumpfstation = CreateObject („Scripting.FileSystemObject“)
	arrStr, col_values1, col_values2, arr1, arr2 verdunkeln
	objTextFile einstellen = fs.OpenTextFile (Dateiname)
	
	'Daten der Spalte 5 von der ersten csv Akte lesen
	Tun während NICHT objTextFile.AtEndOfStream
		arrStr = spaltete auf sich (objTextFile.ReadLine, „, ")
		wenn  UBound (arrStr) < 4="" then="" outputLogResult="" fileName=""> UBound (arr2) dann
		outputLogResult Dateiname, compFileName, falsch
		Unterseeboot herausnehmen
	beenden wenn

	Für Zählimpuls = 0 zu UBound (arr1)
		'überprüfen, ob Daten identisch sind
		data1=arr1 (Zählimpuls)
		data2=arr2 (Zählimpuls)
		wenn data1 <> data2 dann
			outputLogResult Dateiname, compFileName, falsch
			Unterseeboot herausnehmen
		beenden wenn
	Zunächst
	
	gesetztes objTextFile = nichts
	einstellen Rumpfstation = nichts
	
	outputLogResult Dateiname, compFileName, zutreffend
Endenunterseeboot
  
 VoroutputLogResult (Dateiname, compFileName, Resultat)
 
	 wenn Resultat = dann ausrichten
		objLog.WriteLine „identische Akten: “ 
	 sonst
		objLog.WriteLine „Unidentical Akten: “ 
	 beenden wenn

	objLog.WriteLine Dateiname
	objLog.WriteLine compFileName
	objLog.WriteLine
Endenunterseeboot
Weitere Lösungen  
 
programming4us programming4us