Cuestión : espacio del parte movible del vb

Hola. Tengo una escritura que lea de un archivo de los config y recupere las características de archivo (tamaño del archivo, version×tamp) y envío la salida a un archivo del txt. Cómo puedo modificar la escritura para incluir el siguiente:
1. Actual el reloj fechador y la fecha se fijan a la corriente (cuando la escritura funciona). Quererla fijan a la vez última que el archivo que era recuperado era modified.
2. incluye un espacio entre cada salida del servidor. Por ejemplo, varios servidores están consiguiendo las características para el adobe, otras para Java. Quisiera un espacio después de la salida del adobe y antes de java.

Example hizo salir: 2:02 del
2/01/2009: 19 P.M.: 2:02 del
2660352 Bytes
2/01/2009 de 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1: 19 P.M.: 2:02 del
2/01/2009 del
(1 línea espacio de los octetos del
2660352 de 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 aquí): 19 P.M.: 2:02 del
2660352 Bytes
2/01/2009 de 10.x.x.3 c:\Program Files\java\name.exe 1.0.0.1: 19 P.M.: el
2660352 Bytes

3. de 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1 incluye una cuenta del número para cada result.
Example: 2:02 del
1. 2/01/2009: 19 P.M.: 2:02 del
2660352 Bytes
2. 2/01/2009 de 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1: 19 P.M.: movimiento del
2660352 Bytes

4. de 10.x.x.5 c:\Program Files\java\name.exe 1.0.0.1 la línea de salida del tamaño (ejemplo abajo) a la misma línea. Actual, el tamaño del archivo en la salida está apareciendo en el
Example del line
: 2:02 del
2/01/2009: 19 P.M.: 2:02 del
2660352 Bytes
2/01/2009 de 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1: 19 P.M.: 2:02 del
1. 2/01/2009 del
de los octetos del
2660352 de 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 (debe ser): 19 P.M.: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 2660352 2:02 del
2. 2/01/2009 de los octetos: 19 P.M.: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1

script de 2660352 octetos: objNetwork

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

Dim = objNetwork de 1

Set =

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

Set = fConfig del

set de CreateObject (“Scripting.FileSystemObject”) =

Set de objFSO.OpenTextFile (“config.txt”, ForReading, falso) objOutputFile =

do de objFSO.CreateTextFile (strOutputFile, verdad, verdad) hasta el strLine = fconfig.readline
de fconfig.atendofstream
si UCase (dejado (strLine, 6)) = strServer = ajuste del “SERVIDOR” entonces (mediados de (strLine, InStr (strLine, “=") + 1))
si UCase (dejado (strLine, 8)) = strUsername = ajuste del “username” entonces (mediados de (strLine,
de InStr (strLine, “=") + 1)) si UCase (dejado (strLine, 8)) = “strPassword = ajuste de la CONTRASEÑA” entonces (mediados de (strLine,
de InStr (strLine, “=") + 1)) si UCase (dejado (strLine, 8)) = strFileName = ajuste del “NOMBRE DE FICHERO” entonces (mediados de (strLine,
de InStr (strLine, “=") + 1)) si "" del <> del strServer y "" del <> del strUsername y "" del <> del strPassword y "" Then
del <> del strFileName Si el silbido de bala (strServer) = strServer de Then
, strUsername, strPassword, “z:\” y strServer processfile verdaderos de StrFilename
Else
objOutputFile.WriteLine y” es fuera de línea. “el strServer de If
del final del
= el strUsername del
del "" = el strPassword del
del "" = el strFileName del
del "" = el extremo If
Loop

objOutputFile.Close
MsgBox del
del "" “acabaron.
el “del

Function ProcessFile (strSvr, strUser, strPass, strFilePath) amortigua el strMsg, strVersion, timestamp
en el curriculum vitae Next
objnetwork.removenetworkdrive “z del error: ”, Verdad, True
Err.Clear
objnetwork.mapnetworkdrive “z: ”, “\ \” y strSvr y error “\ C$”, falso, strUser, strPass
si Err.Number 0/> Then
MsgBox “que traza” y strSvr y “. Comprobarle por favor puede trazar al servidor.” Y VbCrLf y “error” y Err.Number y “: ” Y Err.Description
Err.Clear
Else
en el error 0
“se cercioran de el exists
del archivo si objFSO.FileExists (strFilePath) = strMsg falso de Then
= strFile y “- archivo no encontrado. el “
Else
” consiguen la versión del archivo y la ponen en un strVersion de String
del mensaje = el strMsg = el strSvr del
de objFSO.GetFileVersion (strFilePath) y ““y el strFilePath y” “y el strtimestamp del
del strVersion = el
de If
del final del
del tiempo () 'escriben la secuencia del mensaje al
objOutputFile.Write del archivo de salida (con un CR LF) ahora y”: “y el strMsg y VbCrLf
fijaron ffile = el
objoutputfile.writeline ffile.size y” octetos " extremo If
objnetwork.removenetworkdrive “z de objfso.getfile (strFilePath) del
del
: ”, Verdad, True
Err.Clear
en el
del silbido de bala del error 0
End Function

Function (strComputer) amortigua el objShell, objShell del boolCode
boolCode = del
de CreateObject (“WScript.Shell”) = el
de objShell.Run (“silbido de bala - n 1 - w 300” y strComputer, 0, verdades) si boolCode = 0 silbidos de bala de Then
= silbido de bala de True
Else
= extremo If
End Function

Thanks por adelantado. de False
class= del

Respuesta : espacio del parte movible del vb

Hola, he probado esto un pedacito….dar a esto un tiro.

Respetos,

Robo.

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 dévil
strUsername dévil
strPassword dévil
StrFilename dévil
fConfig dévil
objNetwork dévil
strPreviousFileName dévil
intProgramCounter dévil

strPreviousFile = ""
intProgramCounter = 0

Const ForReading = 1

Fijar el objNetwork = CreateObject (“WScript.Network”)

strOutputFile = “outputfile.txt”

Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)

fijar el fConfig = objFSO.OpenTextFile (“config.txt”, ForReading, falsos)

Fijar objOutputFile = objFSO.CreateTextFile (strOutputFile, verdad, verdad)

hacer hasta fconfig.atendofstream
      strLine = fconfig.readline
      Si UCase (dejado (strLine, 6)) = strServer = ajuste del “SERVIDOR” entonces (mediados de (strLine, InStr (strLine, “=") + 1))
      Si UCase (dejado (strLine, 8)) = strUsername = ajuste del “username” entonces (mediados de (strLine, InStr (strLine, “=") + 1))
      Si UCase (dejado (strLine, 8)) = strPassword = ajuste de la “CONTRASEÑA” entonces (mediados de (strLine, InStr (strLine, “=") + 1))
      Si UCase (dejado (strLine, 8)) = strFileName = ajuste del “NOMBRE DE FICHERO” entonces (mediados de (strLine, InStr (strLine, “=") + 1))
      Si "" <> del strServer y "" <> del "" y del strPassword <> del strUsername y "" <> del strFileName después
            Si el silbido de bala (strServer) = entonces verdad
                  'strServer, strUsername, strPassword, “z:\” y StrFilename processfile
                  strServer processfile, strUsername, strPassword, strFilename
            
                  el strServer de objOutputFile.WriteLine y “es fuera de línea.”
            Terminar si
            strServer = ""
            strUsername = ""
            strPassword = ""
            strFileName = ""
      Terminar si
Lazo

objOutputFile.Close
MsgBox “acabó. Ver por favor” y strOutputFile

Función ProcessFile (strSvr, strUser, strPass, strFilePath)
	strMsg dévil, strVersion, reloj fechador, strDriveLetter
	En curriculum vitae del error después
	objnetwork.removenetworkdrive “z: ”, Verdad, verdad
	Err.Clear
	strDriveLetter = ido (strFilePath, 1) y “$”
	objnetwork.mapnetworkdrive “z: ”, “\ \” y strSvr y “\” y strDriveLetter, falso, strUser, strPass
	Si Err.Number <> 0 entonces
		Error de MsgBox “que traza” y strSvr y “. Comprobarle por favor puede trazar al servidor.” Y VbCrLf y “error” y Err.Number y “: ” Y Err.Description
		Err.Clear
	
		En el error 0 indicado
		'Cerciorarse de que exista el archivo
		intProgramCounter = intProgramCounter + 1
		Si objFSO.FileExists (“Z:\” y mediados de (strFilePath, 4)) = falso entonces
			strMsg = strFilePath y “- archivo no encontrado. ”
		
			'Conseguir la versión del archivo y ponerla en una secuencia del mensaje
			strVersion = objFSO.GetFileVersion (“Z:\” y mediados de (strFilePath, 4))
			'Escribir la secuencia del mensaje al archivo de salida (con un CR EL LF)
			Fijar ffile = objfso.getfile (“Z:\” y mediados de (el strFilePath, 4))
			strtimestamp = ffile.DateLastModified
			Si LCase (strPreviousFileName) <> LCase (mediados de (mediados de (strFilePath, 4), InStrRev (mediados de (strFilePath, 4), “\ ") + 1)) entonces
				intProgramCounter = 1
				"" de objOutputFile.WriteLine
			Terminar si
			strMsg = intProgramCounter y “. ” y strtimestamp y ““y strSvr y” “y strFilePath y” “y strVersion y” “y ffile.size y” octetos "
		Terminar si
		strMsg de objOutputFile.WriteLine
		strPreviousFileName = mediados de (strFilePath, InStrRev (strFilePath, “\ ") + 1)
	Terminar si
	objnetwork.removenetworkdrive “z: ”, Verdad, verdad
	Err.Clear
	En el error 0 indicado
Función del final

Silbido de bala de la función (strComputer)
      objShell dévil, boolCode
      Fijar el objShell = CreateObject (“WScript.Shell”)
      boolCode = objShell.Run (“silbido de bala - n 1 - w 300” y strComputer, 0, verdades)
      Si boolCode = 0 entonces
            El silbido de bala = verdad
      
            Silbido de bala = falso
      Terminar si
Terminar la función

Otras soluciones

Cómo fijar un número de líneas en un informe

Cómo fijar extremo del aeropuerto como servidor del DHCP en el LAN con SonicWall

Ediciones del enlace hipertexto

Agregar la fecha a MySQL

Pares de las preguntas de Apple

El DNS reverso no empareja la bandera del smtp

¿Cómo puedo funcionar conmigo PC en modo seguro?

HISTOGRAMA CON EL CP Y EL ANÁLISIS DE CPK

reglas no corrientes de la perspectiva

volver un valor