Questione : DOS & Vbs

Ciao,

Iam che ha una lima di chiusura lampo. Lo scritto deve fare il works
1) che deve aprire la chiusura lampo di quel file
2) sotto le lime, molte lime di .csv è scritto di present.
3) deve leggere ciascuno & ogni lima ed esso ha bisogno delle date nelle lime, linee totali di grep nelle lime e dovrebbe essere riorientato ad un'altra lima. Tutte le lime che l'uscita dovrebbe avere bisogno di per essere aggiungono in 1 file.


This saranno dure fare nei vbs di DOS.So lo scritto può fare questo lavoro più facile. Come lo iam nuovo ai vbs soddisfa spiegare briefly.
 class= del

Risposta : DOS & Vbs

prova ora:
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 "

regolar fs = CreateObject (“Scripting.FileSystemObject„)
regolare il objLog = fs.CreateTextFile (“c:\temp\output.log ")
	
Oscurare il oShell
Regolare il oShell = WScript.CreateObject (“WScript.Shell„)
oShell.run “mkdir di /c del cmd„ & extractTo
Regolare il oShell = niente

Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
Regolare il dispositivo di piegatura = fso.getfolder (extractTo)
Per ciascuno oFile  in dispositivo di piegatura. Lime
	oFile.Delete (allineare)
Dopo

regolar sa = CreateObject (“Shell.Application„)
regolar NS = sa.NameSpace (pathToZipFile)
regolare il filesInzip = ns.items
sa.NameSpace (extractTo) .CopyHere (filesInzip) 

extractTo di EnumCSV

objLog.Close

EnumCSV secondario (targetdir)
	Fso fioco
	Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
	Regolare il dispositivo di piegatura = fso.getfolder (targetdir)
	Per ogni lima in Folder.Files
		Se fso.GetExtensionName (lima) = " csv " allora
			ParseCSV (lima)		
		Concluder se
	Dopo
sommergibile dell'estremità

ParseCSV secondario (csv_file)
	regolar fs = CreateObject (“Scripting.FileSystemObject„)
	regolar objTextFile = fs.OpenTextFile (csv_file)
	oscurare il arrStr, le linee, il lastdate, lasttime
	lines=0
	
	Fare mentre NON objTextFile.AtEndOfStream
		il arrStr = ha spaccato (objTextFile.ReadLine, “, ")
		lines=lines+1
	Ciclo
	
	il lastdate = sostituisce (arrStr (0), """", "")
	il lasttime = sostituisce (arrStr (1), """", "")
	
	lima di objLog.WriteLine “: „ & csv_file
	linee totali di objLog.WriteLine “: „ & linee
	objLog.WriteLine “ultima data: „ & lastdate
	objLog.WriteLine “ultima volta: „ & lasttime
	objLog.WriteLine
	objTextFile.Close
sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us