Cuestión : Escritura de VB: Texto específico de la salida del archivo de texto

Hola allí, necesidad del

I de modificar la escritura siguiente para extraer cualquier texto se localiza en medio: “Parameter uno: ” y “”.


SO USANDO LA LÍNEA DE COMANDO: parámetro 1” >output.txt


FROM del
cscript GetParameter.vbs //NOLOGO “input.txt” del ****** “del del ********** del del ********** del del ********** del del ************************** del
EL ARCHIVO de TEXTO SIGUIENTE de INPUT.TXT: el line
This del line
whatever del
whatever del ****** del del ********** del del ********** del del ********** del del ************************** del
es un test> y lo significo y porqué el Parameter 1 del not>: Elevator uno es RESULTADO ANALIZADO/>THE del line


whatever de online=True
whatever DEBE SER: el
Elevator uno del ****** del del ********** del del ********** del del ********** del del ************************** del
es el online=True




SCRIPT A MODIFICARSE: el
' del ****** del del ********** del del ********** del del ********** del del ************************** del
se cerciora de que el nombre de fichero de la entrada esté especificado en la línea de comando y consigue el nombre de fichero =
Else
WScript.Echo del it
If (WScript.Arguments.Count > 0) Then
de WScript.Arguments (0) “ningún nombre de fichero de la entrada especificado. el “
' del
WScript.Quit
End If
leyó el fichero de entrada entero en un solos fso =
Set del variable
Set de la secuencia de CreateObject (“Scripting.FileSystemObject”) entrados = el
data = input.ReadAll
input. Close
Set entrado = el
' del
' de Nothing
crea el objeto del diccionario al dict del duplicates
Set del ellininate = del
de CreateObject (“Scripting.Dictionary”) crea la plantilla de la expresión regular a los locae el numbers
Set de la orden con referencia a = nuevo RegExp
re. Patrón = “OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9]
" />re.IgnoreCase = True
re. Global = el lazo a través de cada fósforo, número del
' de True
de orden del grap, y si no encontrado ya agrega al dictionary
for cada uno golpeado en re. Ejecutar el order=Mid del
(de los datos) (golpe. Valor, 10, dict de 7)
si no. Existe (orden) el dict de Then
. Agregar la orden, lista de la salida del
' de If
Next
del final de 0
del now
For de los números de orden que cada o en la ESCRITURA del o
Next



THIS del dict
Wscript.Echo QUE SE MODIFICARÁ ES LLAMADO ACTUAL POR LA LÍNEA de COMANDO SIGUIENTE:
cscript GetNumbers.vbs //NOLOGO input.txt >output.txt



Thanks para su ayuda,
Rene del ****** del del ********** del del ********** del del ********** del del ************************** del
class= > " claro " del
soluciones >Related class= href= " /Programming/Languages/Visual_Basic/VB_Script/Q_26339319.html " title= " VBScript del VBScript del qRelatedChild " del “class=: Necesidad de hacer salir solamente el resultado required, sin el junk.

Respuesta : Escritura de VB: Texto específico de la salida del archivo de texto

darle un ir
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:

amortiguar el nombre de fichero, placeholder, datos, símbolos, subtokens, tok

Si (WScript.Arguments.Count = 2) entonces
  nombre de fichero = WScript.Arguments (0)
  placeholder = WScript.Arguments (1)

  Discusiones del enugh de WScript.Echo “no: 2 previstos (nombre de fichero + placeholder).”
  WScript.Quit
Terminar si
 
START_TOKEN = "" y placeholder y ""
END_TOKEN = ““Fijar el fso = CreateObject (“Scripting.FileSystemObject”) fijan la entrada = datos de fso.OpenTextFile (nombre de fichero) = la entrada de input.ReadAll. Cerrar la entrada determinada = nada los símbolos = parten (datos, START_TOKEN) para cada tok en subtokens de los símbolos = parten (tok, END_TOKEN) si UBound (subtokens) > 0 entonces si los subtokens del "" entonces WScript.Echo <> de los subtokens (0) (0) terminan si extremo si después
Otras soluciones  
 
programming4us programming4us