Frage : vb Einsatzraum

Hallo. Ich habe einen Index, der von einer Configakte liest und Dateieigenschaften zurückholt (Dateigröße, version×tamp) und schicke den Ausgang zu einer txt Akte. Wie ich den Index ändern kann, um das folgende mit einzuschließen:
1. Z.Z. Zeitstempel und Datum werden auf den Strom eingestellt (wenn der Index läuft). Ihn wünschen einstellen auf das letzte Mal, welches die Akte, die zurückgeholt wurde, modified.
2. einschließen einen Raum zwischen jedem Bedienerausgang war. Z.B. erhalten einige Bediener Eigenschaften für luftgetrockneten Ziegelstein, andere für Java. Möchte einen Raum nach dem Ziegelsteinausgang und vor java.

Example aus:
2/01/2009 2:02: 19 P.M.: 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1
2660352 Bytes
2/01/2009 2:02: 19 P.M.: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1
2660352 Bytes
(1 Linie Raum hier)
2/01/2009 2:02: 19 P.M.: 10.x.x.3 c:\Program Files\java\name.exe 1.0.0.1
2660352 Bytes
2/01/2009 2:02: 19 P.M.: 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1
2660352 Bytes

3. umfassen einen Zahlzählimpuls für jedes result.
Example:
1. 2/01/2009 2:02: 19 P.M.: 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1
2660352 Bytes
2. 2/01/2009 2:02: 19 P.M.: 10.x.x.5 c:\Program Files\java\name.exe 1.0.0.1
2660352 Bytes

4. Bewegung die GrößenErtragskurve (Beispiel unten) zur gleichen Linie. Z.Z. zeigt sich die Dateigröße im Ausgang auf dem folgenden line

Example:
2/01/2009 2:02: 19 P.M.: 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1
2660352 Bytes
2/01/2009 2:02: 19 P.M.: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1
2660352 Bytes
(sollte sein),
1. 2/01/2009 2:02: 19 P.M.: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 2660352 Bytes
2. 2/01/2009 2:02: 19 P.M.: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 2660352 Bytes

script:

Dim strServer
Dim strUsername
Dim strPassword
Dim StrFilename
Dim fConfig
dim objNetwork

Const ForReading = 1

Set objNetwork = CreateObject („WScript.Network“)

strOutputFile = „C:\outputfile.txt "

Set objFSO = CreateObject („Scripting.FileSystemObject“)

set fConfig = objFSO.OpenTextFile („config.txt“, ForReading, falsch)

Set objOutputFile = objFSO.CreateTextFile (strOutputFile, zutreffend, zutreffend)

do bis fconfig.atendofstream
strLine = fconfig.readline
wenn UCase (gelassen (strLine, 6)) = „BEDIENER“ dann strServer = Ordnung (mittler (strLine, InStr (strLine, „=") + 1))
wenn UCase (gelassen (strLine, 8)) = „username-“ dann strUsername = Ordnung (mittler (strLine, InStr (strLine, „=") + 1))
wenn UCase (gelassen (strLine, 8)) = „KENNWORT“ dann strPassword = Ordnung (mittler (strLine, InStr (strLine, „=") + 1))
wenn UCase (gelassen (strLine, 8)) = „DATEINAME“ dann strFileName = Ordnung (mittler (strLine, InStr (strLine, „=") + 1))
wenn strServer <> "" und strUsername <> "" und strPassword <> "" und strFileName <> "" Then
Wenn Klingeln (strServer) = zutreffendes Then
processfile strServer, strUsername, strPassword, „z:\“ u. StrFilename
Else
objOutputFile.WriteLine strServer u.“ indirekt ist. „
Ende If
strServer = ""
strUsername = ""
strPassword = ""
strFileName = ""
Ende If
Loop

objOutputFile.Close
MsgBox „beendeten. „

Function ProcessFile (strSvr, strUser, strPass, strFilePath)
verdunkeln strMsg, strVersion, timestamp
auf Störungs-Zusammenfassung Next
objnetwork.removenetworkdrive „z: “, Zutreffend, True
Err.Clear
objnetwork.mapnetworkdrive „z: “, „\ \“ u. strSvr u. „\ C$“, falsches, strUser, strPass
wenn Err.Number 0/> Then
MsgBox „Störung, die“ abbilden u. strSvr u. „. Sie bitte überprüfen kann zum Bediener abbilden.“ U. VbCrLf u. „Störung“ u. Err.Number u. „: “ U. stellen Err.Description
Err.Clear
Else
auf Störung Goto- 0
„das Akte exists
wenn objFSO.FileExists (strFilePath) = falsches Then
strMsg = strFile u. „- nicht die gefundene Akte sicher. „
Else
“ erhalten die Version der Akte und setzen sie in ein Mitteilung String
strVersion = objFSO.GetFileVersion (strFilePath)
strMsg = strSvr ein u. „„u. schreiben strFilePath u.“ „u. strVersion
strtimestamp = Zeit ()
Ende If

'die Mitteilungschnur zum Ausgabedatei (mit einem CR LF)
objOutputFile.Write jetzt u.“: „u. stellten strMsg u. VbCrLf
ffile = objfso.getfile (strFilePath)
objoutputfile.writeline ffile.size u.“ Bytes "

Ende If
objnetwork.removenetworkdrive „z ein: “, Zutreffend, verdunkeln True
Err.Clear
auf Goto- 0
End Function

Function Klingeln der Störungs-(strComputer)
objShell, boolCode
gesetztes objShell = CreateObject („WScript.Shell“)
boolCode = objShell.Run („Klingeln - n 1 - w 300“ u. strComputer, 0, zutreffendes)
wenn boolCode = 0 Then
Klingeln = True
Else
Klingeln = False
Ende If
End Function

Thanks im Voraus.

Antwort : vb Einsatzraum

Hallo, habe ich geprüft dieses eine Spitze….diesem einen Schuß geben.

Respekt,

Rob.

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

           
           
             Schwaches strServer
Schwaches strUsername
Schwaches strPassword
Schwaches StrFilename
Schwaches fConfig
Schwaches objNetwork
Schwaches strPreviousFileName
Schwaches intProgramCounter

strPreviousFile = ""
intProgramCounter = 0

Const ForReading = 1

objNetwork = CreateObject („WScript.Network“) einstellen

strOutputFile = „outputfile.txt“

objFSO = CreateObject („Scripting.FileSystemObject“) einstellen

fConfig = objFSO.OpenTextFile („config.txt“, ForReading, falsch) einstellen

objOutputFile einstellen = objFSO.CreateTextFile (strOutputFile, zutreffend, zutreffend)

bis fconfig.atendofstream tun
      strLine = fconfig.readline
      Wenn UCase (gelassen (strLine, 6)) = „BEDIENER“ dann strServer = Ordnung (mittler (strLine, InStr (strLine, „=") + 1))
      Wenn UCase (gelassen (strLine, 8)) = „username-“ dann strUsername = Ordnung (mittler (strLine, InStr (strLine, „=") + 1))
      Wenn UCase (gelassen (strLine, 8)) = „KENNWORT“ dann strPassword = Ordnung (mittler (strLine, InStr (strLine, „=") + 1))
      Wenn UCase (gelassen (strLine, 8)) = „DATEINAME“ dann strFileName = Ordnung (mittler (strLine, InStr (strLine, „=") + 1))
      Wenn strServer <> "" und strUsername <> "" und strPassword <> "" und strFileName <> "" dann
            Wenn Klingeln (strServer) = dann ausrichten
                  'processfile strServer, strUsername, strPassword, „z:\“ u. StrFilename
                  processfile strServer, strUsername, strPassword, strFilename
            Sonst
                  objOutputFile.WriteLine strServer u. „ist indirekt.“
            Beenden wenn
            strServer = ""
            strUsername = ""
            strPassword = ""
            strFileName = ""
      Beenden wenn
Schleife

objOutputFile.Close
MsgBox „beendete. Bitte sehen“ u. strOutputFile

Funktion ProcessFile (strSvr, strUser, strPass, strFilePath)
	Schwaches strMsg, strVersion, Zeitstempel, strDriveLetter
	Auf Störungs-Zusammenfassung zunächst
	objnetwork.removenetworkdrive „z: “, Zutreffend, zutreffend
	Err.Clear
	strDriveLetter = verlassen (strFilePath, 1) u. „$“
	objnetwork.mapnetworkdrive „z: “, „\ \“ u. strSvr u. „\“ u. strDriveLetter, falsch, strUser, strPass
	Wenn Err.Number <> 0 dann
		MsgBox „Störung, die“ abbilden u. strSvr u. „. Sie bitte überprüfen kann zum Bediener abbilden.“ U. VbCrLf u. „Störung“ u. Err.Number u. „: “ U. Err.Description
		Err.Clear
	Sonst
		Auf Störung Goto- 0
		'Sicherstellen, dass die Akte existiert
		intProgramCounter = intProgramCounter + 1
		Wenn objFSO.FileExists („Z:\“ u. mittleres (strFilePath, 4)) = falsch dann
			strMsg = strFilePath u. „- Akte nicht gefunden. “
		Sonst
			'Die Version der Akte erhalten und sie in eine Mitteilung-Schnur einsetzen
			strVersion = objFSO.GetFileVersion („Z:\“ u. mittleres (strFilePath, 4))
			'Die Mitteilungschnur zur Ausgabedatei schreiben (mit einem CR LF)
			Ffile einstellen = objfso.getfile („Z:\“ u. mittleres (strFilePath, 4))
			strtimestamp = ffile.DateLastModified
			Wenn LCase (strPreviousFileName) <> LCase (mittler (mittler (strFilePath, 4), InStrRev (mittleres (strFilePath, 4), „\ ") + 1)) dann
				intProgramCounter = 1
				objOutputFile.WriteLine ""
			Beenden wenn
			strMsg = intProgramCounter u. „. “ u. strtimestamp u. „„u. strSvr u.“ „u. strFilePath u.“ „u. strVersion u.“ „u. ffile.size u.“ Bytes "
		Beenden wenn
		objOutputFile.WriteLine strMsg
		strPreviousFileName = mittler (strFilePath, InStrRev (strFilePath, „\ ") + 1)
	Beenden wenn
	objnetwork.removenetworkdrive „z: “, Zutreffend, zutreffend
	Err.Clear
	Auf Störung Goto- 0
Enden-Funktion

Funktions-Klingeln (strComputer)
      Schwaches objShell, boolCode
      objShell = CreateObject („WScript.Shell“) einstellen
      boolCode = objShell.Run („Klingeln - n 1 - w 300“ u. strComputer, 0, zutreffendes)
      Wenn boolCode = 0 dann
            Klingeln = richten aus
      Sonst
            Klingeln = falsch
      Beenden wenn
Funktion beenden

           
         

Weitere Lösungen

Wort-Presse, die Frage bewirtet

asp.net: Mein Problem ist, benutze ich einen ajax Ergänzung Kalender, um BeginDate u. EndDate Werte einzutragen

Silverlight 4 UI Ereignisse

wie kann ich irgendeine Bildentschließung online ändern und sie zum lokalen PC dann innen sparen??

ZFS Sicherungshilfe Ubuntu 10.0.4 LTS

Form-Frage für Kristallreports

Betreffend INOTES in Lotos 8.5

Mühen, die ZWISCHEN Logik erhalten zu arbeiten

Spannungs-Sensor ermittelte einen Ausfall auf Bediener DELL-PowerEdge 2650

broadcom NIC teaming