Cuestión : DOS y Vbs

Hola,

Iam que tiene un archivo de cierre relámpago. La escritura tiene que hacer el works
1) que necesita desabrochar ese file
2) debajo de los archivos, muchos archivos de .csv es escritura de present.
3) tiene que leer cada uno y cada archivo y ella necesita las fechas en los archivos, líneas totales del grep en los archivos y debe ser vuelta a dirigir a otro archivo. Todos los archivos que la salida debe necesitar para ser añaden en 1 file.


This serán resistentes hacer en vbs de DOS.So la escritura puede hacer este trabajo más fácil. Como el iam nuevo a los vbs satisface explicar briefly.
 class= del

Respuesta : DOS y Vbs

intento ahora:
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 "

fijar fs = CreateObject (“Scripting.FileSystemObject”)
fijar el objLog = fs.CreateTextFile (“c:\temp\output.log ")
	
Amortiguar el oShell
Fijar el oShell = WScript.CreateObject (“WScript.Shell”)
oShell.run “mkdir de /c del cmd” y extractTo
Fijar el oShell = nada

Fijar el fso = CreateObject (“Scripting.FileSystemObject”)
Fijar la carpeta = fso.getfolder (el extractTo)
Para cada uno oFile en  carpeta. Archivos
	oFile.Delete (verdad)
Después

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

extractTo de EnumCSV

objLog.Close

EnumCSV secundario (targetdir)
	Fso dévil
	Fijar el fso = CreateObject (“Scripting.FileSystemObject”)
	Fijar la carpeta = fso.getfolder (el targetdir)
	Para cada archivo en Folder.Files
		Si fso.GetExtensionName (archivo) = " csv " entonces
			ParseCSV (archivo)		
		Terminar si
	Después
submarino del extremo

ParseCSV secundario (csv_file)
	fijar fs = CreateObject (“Scripting.FileSystemObject”)
	fijar objTextFile = fs.OpenTextFile (csv_file)
	amortiguar el arrStr, líneas, lastdate, lasttime
	lines=0
	
	Hacer mientras que NO objTextFile.AtEndOfStream
		el arrStr = partió (objTextFile.ReadLine, “, ")
		lines=lines+1
	Lazo
	
	el lastdate = substituye (arrStr (0), """", el "")
	el lasttime = substituye (el arrStr (1), """", el "")
	
	archivo de objLog.WriteLine “: ” y csv_file
	líneas totales de objLog.WriteLine “: ” y líneas
	objLog.WriteLine la “fecha pasada: ” y lastdate
	objLog.WriteLine “vez última: ” y lasttime
	objLog.WriteLine
	objTextFile.Close
submarino del extremo
Otras soluciones  
 
programming4us programming4us