Frage : DOS u. Vbs

Hallo,

Iam eine Zip Datei habend. Der Index muss folgendes works
1 tun), das es dieses file
2) unter den Akten öffnen muss, viele .csv Akten sind present.
3) Index muss jedes lesen u. benötigen jede Akte und er Grep Daten in den Akten, Gesamtlinien in den Akten und er sollte zu einer anderen Akte umadressiert werden. Alle Akten, die Ausgang benötigen sollte, um zu sein, fügen in 1 ausgegebenem file.


This sind stark, in den DOS.So vbs zu tun hinzu Index diese einfachere Arbeit erledigen kann. Wie das iam, das zu den vbs neu ist, gefallen, briefly.
 erklären

Antwort : DOS u. Vbs

Versuch jetzt:
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:

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

einstellen Rumpfstation = CreateObject („Scripting.FileSystemObject“)
objLog = fs.CreateTextFile („c:\temp\output.log ") einstellen
	
oShell verdunkeln
oShell = WScript.CreateObject („WScript.Shell“) einstellen
oShell.run „cmd /c mkdir“ u. extractTo
oShell einstellen = nichts

Fso = CreateObject („Scripting.FileSystemObject“) einstellen
Faltblatt = fso.getfolder (extractTo) einstellen
Für jedes oFile  im Faltblatt. Akten
	oFile.Delete (zutreffend)
Zunächst

einstellen sa = CreateObject („Shell.Application“)
einstellen ns = sa.NameSpace (pathToZipFile)
filesInzip = ns.items einstellen
sa.NameSpace (extractTo) .CopyHere (filesInzip) 

EnumCSV extractTo

objLog.Close

VorEnumCSV (targetdir)
	Schwaches fso
	Fso = CreateObject („Scripting.FileSystemObject“) einstellen
	Faltblatt = fso.getfolder (targetdir) einstellen
	Für jede Akte in Folder.Files
		Wenn fso.GetExtensionName (Akte) = " csv " dann
			ParseCSV (Akte)		
		Beenden wenn
	Zunächst
Endenunterseeboot

VorParseCSV (csv_file)
	einstellen Rumpfstation = CreateObject („Scripting.FileSystemObject“)
	objTextFile einstellen = fs.OpenTextFile (csv_file)
	arrStr, Linien, lastdate, lasttime verdunkeln
	lines=0
	
	Tun während NICHT objTextFile.AtEndOfStream
		arrStr = aufspaltete (objTextFile.ReadLine, „, ")
		lines=lines+1
	Schleife
	
	lastdate = ersetzen (arrStr (0), """", "")
	lasttime = ersetzen (arrStr (1), """", "")
	
	objLog.WriteLine „Akte: “ u. csv_file
	objLog.WriteLine „Gesamtlinien: “ u. Linien
	objLog.WriteLine „letztes Datum: “ u. lastdate
	objLog.WriteLine „letztes Mal: “ u. lasttime
	objLog.WriteLine
	objTextFile.Close
Endenunterseeboot
Weitere Lösungen  
 
programming4us programming4us