Pergunta : Dos & Vbs

Olá!,

Iam que tem uma lima de fecho de correr. O certificado tem que fazer o works
1) que precisa de unzip esse file
2) sob as limas, muitas limas de .csv é certificado de present.
3) tem que ler cada um & cada lima e precisam as datas nas limas, linhas totais do grep nas limas e deve ser reorientado a uma outra lima. Todas as limas que a saída deve precisar de ser adicionam em 1 file.


This serão resistentes fazer em vbs de DOS.So o certificado pode fazer este trabalho mais fácil. Como o iam novo aos vbs satisfaz explicar briefly.
 class= do

Resposta : Dos & Vbs

tentativa agora:
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:

pathToZipFile= " C:\temp\test.zip "
extractTo= " C:\temp\unzip "

ajustar fs = CreateObject (“Scripting.FileSystemObject”)
ajustar o objLog = o fs.CreateTextFile (“c:\temp\output.log ")
	
Escurecer o oShell
Ajustar o oShell = o WScript.CreateObject (“WScript.Shell”)
oShell.run do “mkdir de /c cmd” & extractTo
Ajustar o oShell = nada

Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”)
Ajustar o dobrador = o fso.getfolder (o extractTo)
Para cada um oFile  no dobrador. Limas
	oFile.Delete (verdadeiro)
Em seguida

ajustar sa = CreateObject (“Shell.Application”)
ajustar ns = sa.NameSpace (pathToZipFile)
ajustar o filesInzip = o ns.items
sa.NameSpace (extractTo) .CopyHere (filesInzip) 

extractTo de EnumCSV

objLog.Close

EnumCSV secundário (targetdir)
	Fso não ofuscante
	Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”)
	Ajustar o dobrador = o fso.getfolder (o targetdir)
	Para cada lima em Folder.Files
		Se fso.GetExtensionName (lima) = " csv " então
			ParseCSV (lima)		
		Terminar se
	Em seguida
submarino da extremidade

ParseCSV secundário (csv_file)
	ajustar fs = CreateObject (“Scripting.FileSystemObject”)
	ajustar objTextFile = fs.OpenTextFile (csv_file)
	escurecer o arrStr, linhas, lastdate, lasttime
	lines=0
	
	Fazer quando NÃO objTextFile.AtEndOfStream
		arrStr = separação (objTextFile.ReadLine, “, ")
		lines=lines+1
	Laço
	
	o lastdate = substitui (arrStr (0), """", o "")
	o lasttime = substitui (arrStr (1), """", o "")
	
	lima de objLog.WriteLine “: ” & csv_file
	linhas totais de objLog.WriteLine “: ” & linhas
	objLog.WriteLine “última data: ” & lastdate
	objLog.WriteLine “última vez: ” & lasttime
	objLog.WriteLine
	objTextFile.Close
submarino da extremidade
Outras soluções  
 
programming4us programming4us