Вопрос : Сценарий Vbs может проверить 2 скоросшивателя имеет идентичное csv хранит и сравнивает colum «c» и получает как раз имена архива имеет точно данные в colum в обоих архивах.

Hi, сценарий
Vbs который может проверить 2 скоросшивателя который имеет идентичное csv хранит и сравнивает colum «c» и получает как раз имена архива которое имеет точно данные в colum в обоих files.

Regards
Sharath class=

Ответ : Сценарий Vbs может проверить 2 скоросшивателя имеет идентичное csv хранит и сравнивает colum «c» и получает как раз имена архива имеет точно данные в colum в обоих архивах.

проверите его:
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»
Установите fsoLog = CreateObject («Scripting.FileSystemObject»)
установите objLog = fsoLog.CreateTextFile (LOG_FILE, 2)

затемните fileName, compFileName
strComputer = «.»
Установите objWMIService = GetObject («winmgmts: {impersonationLevel=impersonate}! \ \» & strComputer & «\ корень \ cimv2»)
	
Установите FileList = objWMIService.ExecQuery («ASSOCIATORS {Win32_Directory.Name='" & FOLDER1 & «'} где ResultClass = CIM_DataFile»)
	
Для каждого objFile в FileList
    Если objFile.Extension = «csv» после этого
        fileName = objFile.Drive & objFile.Path & objFile.FileName & «.» & «csv»
		compFileName = FOLDER2 & «\» & objFile.FileName & «.» & «csv»
		если IsFileExists (compFileName) после этого
			fileName CompareCsvFile, compFileName
		закончитесь если

	Закончитесь если
Затем

objLog.Close
установите objLog = ничего
установите fsoLog = ничего

функция IsFileExists (fileName)
	ТУСКЛОЕ fso
	Установите fso = CreateObject («Scripting.FileSystemObject»)

	Если (fso.FileExists, то (fileName)) После этого
		IsFileExists=true
	Еще
		IsFileExists=false
	Закончитесь если
Закончите функцию

sub CompareCsvFile (fileName, compFileName)
	затемните fs, objTextFile, data1, data2
	установите fs = CreateObject («Scripting.FileSystemObject»)
	затемните arrStr, col_values1, col_values2, arr1, arr2
	установите objTextFile = fs.OpenTextFile (fileName)
	
	'прочитайте данные по колонки 5 от первого архива csv
	Сделайте пока НЕ objTextFile.AtEndOfStream
		arrStr = разделило (objTextFile.ReadLine, «, ")
		если  UBound (arrStr) < 4="" then="" outputLogResult="" fileName=""> UBound (arr2) после этого
		fileName outputLogResult, compFileName, ложное
		выходите подводная лодка
	закончитесь если

	Для отсчета = 0 к UBound (arr1)
		'проверите если данные идентичны
		data1=arr1 (отсчет)
		data2=arr2 (отсчет)
		если data1 <> data2 после этого
			fileName outputLogResult, compFileName, ложное
			выходите подводная лодка
		закончитесь если
	Затем
	
	установленное objTextFile = ничего
	установите fs = ничего
	
	fileName outputLogResult, compFileName, поистине
Подводная лодка конца
  
 sub outputLogResult (fileName, compFileName, результат)
 
	 если результат = true после этого
		архивы objLog.WriteLine «идентичные: » 
	 еще
		архивы objLog.WriteLine «Unidentical: » 
	 закончитесь если

	fileName objLog.WriteLine
	compFileName objLog.WriteLine
	objLog.WriteLine
подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us