Questione : spazio dell'inserto del vb

Ciao. Ho uno scritto che legge di una lima di config e richiama le propriei delprogetto (formato di lima, version×tamp) e trasmetto l'uscita ad una lima del txt. Come posso modificare lo scritto per includere quanto segue:
1. Attualmente il timestamp e la data sono fissati alla corrente (quando lo scritto funziona). Volerlo si regolano all'ultima volta che la lima che è richiamata era modified.
2. comprende uno spazio fra ogni uscita dell'assistente. Per esempio, parecchi assistenti stanno ottenendo le proprietà per adobe, altre per Java. Gradirebbe uno spazio dopo l'uscita dell'adobe e prima di java.

Example ha prodotto: 2:02 del
2/01/2009: 19 PM: 2:02 del
2660352 Bytes
2/01/2009 di 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1: 19 PM: 2:02 del
2/01/2009 del
(1 linea spazio di byte del
2660352 di 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 qui): 19 PM: 2:02 del
2660352 Bytes
2/01/2009 di 10.x.x.3 c:\Program Files\java\name.exe 1.0.0.1: 19 PM: il
2660352 Bytes

3. di 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1 comprende un conteggio di numero per ogni result.
Example: 2:02 del
1. 2/01/2009: 19 PM: 2:02 del
2660352 Bytes
2. 2/01/2009 di 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1: 19 PM: movimento del
2660352 Bytes

4. di 10.x.x.5 c:\Program Files\java\name.exe 1.0.0.1 la linea di uscita di formato (esempio qui sotto) alla stessa linea. Attualmente, il formato di lima nell'uscita sta rivelando sul
Example del line
: 2:02 del
2/01/2009: 19 PM: 2:02 del
2660352 Bytes
2/01/2009 di 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1: 19 PM: 2:02 del
1. 2/01/2009 del
di byte del
2660352 di 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 (dovrebbe essere): 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 2660352 2:02 del
2. 2/01/2009 di byte: 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 un

script da 2660352 byte: objNetwork

Const ForReading del fConfig
dim dello strPassword
Dim StrFilename
Dim dello strUsername
Dim dello strServer
Dim del

Dim = objNetwork di 1

Set =

ork„)/>strOutputFile = “C:\outputfile.txt " objFSO del

Set = fConfig del

set di CreateObject (“Scripting.FileSystemObject„) =

Set di objFSO.OpenTextFile (“config.txt„, ForReading, falso) objOutputFile =

do di objFSO.CreateTextFile (strOutputFile, allineare, allineare) fino allo strLine di fconfig.atendofstream
= a fconfig.readline
se UCase (lasciato (strLine, 6)) = strServer = disposizione “dell'ASSISTENTE„ allora (metà di (strLine, InStr (strLine, “=") + 1))
se UCase (lasciato (strLine, 8)) = strUsername = disposizione “del username„ allora (metà di (strLine,
di InStr (strLine, “=") + 1)) se UCase (lasciato (strLine, 8)) = strPassword = disposizione “di PAROLA D'ACCESSO„ allora (metà di (strLine,
di InStr (strLine, “=") + 1)) se UCase (lasciato (strLine, 8)) = strFileName = disposizione “di NOME DI SCHEDARIO„ allora (metà di (strLine,
di InStr (strLine, “=") + 1)) se "" del <> dello strServer e "" del <> dello strUsername e "" del <> di strPassword e "" Then
del <> dello strFileName            Se il rumore metallico (strServer) = veri strServer di Then
, strUsername, strPassword, “z:\„ & strServer processfile di StrFilename
Else
objOutputFile.WriteLine &„ è fuori linea. “lo strServer di If
di conclusione del
= lo strUsername del
del "" = lo strPassword del
del "" = lo strFileName del
del "" = l'estremità If
Loop

objOutputFile.Close
MsgBox del
del "" “hanno rifinito. “il
del

Function ProcessFile (strSvr, strUser, strPass, strFilePath) oscura lo strMsg, lo strVersion, il timestamp
sul riassunto Next
objnetwork.removenetworkdrive “z di errore: „, Allineare, True
Err.Clear
objnetwork.mapnetworkdrive “z: „, “\ \„ & strSvr & errore “\ C$„, falso, strUser, strPass
se Err.Number <> 0 Then
MsgBox “che tracciano„ & strSvr & “. Controllarlo prego può tracciare all'assistente.„ & VbCrLf & “errore„ & Err.Number & “: „ & Err.Description
Err.Clear
Else
sull'errore 0
“si assicurano il exists
della lima se objFSO.FileExists (strFilePath) = strMsg falso di Then
= strFile & “- lima non trovata. “il
Else
„ ottengono la versione della lima e la mettono in uno strVersion di String
del messaggio = lo strMsg = lo strSvr del
di objFSO.GetFileVersion (strFilePath) & ““& lo strFilePath &„ “& lo strtimestamp del
di strVersion = il
di If
di conclusione del
di tempo () 'scrivono la stringa del messaggio al
objOutputFile.Write dell'archivio di uscita (con un CR LF) ora &„: “& lo strMsg & VbCrLf
si sono regolati ffile =
objoutputfile.writeline ffile.size &„ i byte " l'estremità If
objnetwork.removenetworkdrive “z di objfso.getfile (strFilePath) del
del
: „, Allineare, True
Err.Clear
sul
di rumore metallico di errore 0
End Function

Function (strComputer) oscura il objShell, objShell del boolCode
boolCode = del
di CreateObject (“WScript.Shell„) =
di objShell.Run (“rumore metallico - n 1 - w 300„ & strComputer, 0, allineare) se boolCode = 0 rumori metallici di Then
= rumore metallico di True
Else
= estremità If
End Function

Thanks in anticipo. di False
class= del

Risposta : spazio dell'inserto del vb

Ciao, ho provato questo una punta….dare questo un colpo.

Riguardi,

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

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

strPreviousFile = ""
intProgramCounter = 0

Const ForReading = 1

Regolare il objNetwork = CreateObject (“WScript.Network„)

strOutputFile = “outputfile.txt„

Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)

regolare il fConfig = objFSO.OpenTextFile (“config.txt„, ForReading, falsi)

Regolar objOutputFile = objFSO.CreateTextFile (strOutputFile, allineare, allineare)

fare fino a fconfig.atendofstream
      strLine = fconfig.readline
      Se UCase (lasciato (strLine, 6)) = strServer = disposizione “dell'ASSISTENTE„ allora (metà di (strLine, InStr (strLine, “=") + 1))
      Se UCase (lasciato (strLine, 8)) = strUsername = disposizione “del username„ allora (metà di (strLine, InStr (strLine, “=") + 1))
      Se UCase (lasciato (strLine, 8)) = strPassword = disposizione “di PAROLA D'ACCESSO„ allora (metà di (strLine, InStr (strLine, “=") + 1))
      Se UCase (lasciato (strLine, 8)) = strFileName = disposizione “di NOME DI SCHEDARIO„ allora (metà di (strLine, InStr (strLine, “=") + 1))
      Se "" <> dello strServer e "" <> del "" e di strPassword <> dello strUsername e "" <> dello strFileName allora
            Se il rumore metallico (strServer) = allora allinea
                  'strServer, strUsername, strPassword, “z:\„ & StrFilename processfile
                  strServer processfile, strUsername, strPassword, strFilename
            Altrimenti
                  lo strServer di objOutputFile.WriteLine & “è fuori linea.„
            Concluder se
            strServer = ""
            strUsername = ""
            strPassword = ""
            strFileName = ""
      Concluder se
Ciclo

objOutputFile.Close
MsgBox “ha rifinito. Vedere prego„ & strOutputFile

Funzione ProcessFile (strSvr, strUser, strPass, strFilePath)
	strMsg fioco, strVersion, timestamp, strDriveLetter
	Sul riassunto di errore dopo
	objnetwork.removenetworkdrive “z: „, Allineare, allineare
	Err.Clear
	strDriveLetter = andato (strFilePath, 1) & “$„
	objnetwork.mapnetworkdrive “z: „, “\ \„ & strSvr & “\„ & strDriveLetter, falso, strUser, strPass
	Se Err.Number <> 0 allora
		Errore di MsgBox “che tracciano„ & strSvr & “. Controllarlo prego può tracciare all'assistente.„ & VbCrLf & “errore„ & Err.Number & “: „ & Err.Description
		Err.Clear
	Altrimenti
		Sull'errore 0 di avanzamento
		'Assicurar che la lima esista
		intProgramCounter = intProgramCounter + 1
		Se objFSO.FileExists (“Z:\„ & metà di (strFilePath, 4)) = falso allora
			strMsg = strFilePath & “- lima non trovata. „
		Altrimenti
			'Ottenere la versione della lima e metterla in una stringa del messaggio
			strVersion = objFSO.GetFileVersion (“Z:\„ & metà di (strFilePath, 4))
			'Scrivere la stringa del messaggio all'archivio di uscita (con un CR LF)
			Regolar ffile = objfso.getfile (“Z:\„ & metà di (strFilePath, 4))
			strtimestamp = ffile.DateLastModified
			Se LCase (strPreviousFileName) <> LCase (metà di (metà di (strFilePath, 4), InStrRev (metà di (strFilePath, 4), “\ ") + 1)) allora
				intProgramCounter = 1
				"" di objOutputFile.WriteLine
			Concluder se
			strMsg = intProgramCounter & “. „ & strtimestamp & ““& strSvr &„ “& strFilePath &„ “& strVersion &„ “& ffile.size &„ byte "
		Concluder se
		strMsg di objOutputFile.WriteLine
		strPreviousFileName = metà di (strFilePath, InStrRev (strFilePath, “\ ") + 1)
	Concluder se
	objnetwork.removenetworkdrive “z: „, Allineare, allineare
	Err.Clear
	Sull'errore 0 di avanzamento
Funzione di conclusione

Rumore metallico di funzione (strComputer)
      objShell fioco, boolCode
      Regolare il objShell = CreateObject (“WScript.Shell„)
      boolCode = objShell.Run (“rumore metallico - n 1 - w 300„ & strComputer, 0, allineare)
      Se boolCode = 0 allora
            Il rumore metallico = allinea
      Altrimenti
            Rumore metallico = falso
      Concluder se
Concludere la funzione
Altre soluzioni  
 
programming4us programming4us