Cuestión : VBScript: Necesitar hacer salir solamente el resultado required, sin los desperdicios.

Necesito modificar la escritura siguiente para extraer cualquier texto se localiza en medio: “Parameter uno: ” y “” y salida él en “Output.txt”, sin los desperdicios (véase abajo). el

You encontrará una muestra modificada simplista de “Input.txt” así que usted puede conseguir la idea. En realidad, Input.txt contiene una combinación de HTML y de Javascript, haciendo la clase del archivo de Output.txt de sucio; y la secuencia required está situada en ella es line.

I no incluyó el archivo original de input.txt porque contiene las porciones de Info confidenciales y me llevaría a mucho tiempo para repasarlo. Incluí tan el archivo modificado de Output.txt. Si usted absolutly necesita el archivo original modificado de input.txt, dejarme por favor know.


Thanks,
Rene




BY USAR LA LÍNEA de COMANDO:
cscript GetParameter.vbs //NOLOGO “input.txt” “parámetro uno del ****** del del ********** del del ********** del del ********** del del ************************** del
: “ARCHIVO SIMPLISTA DE LA FALSIFICACIÓN INPUT.TXT DE >OUTPUT.TXT



THE: 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 ESTAR SOLAMENTE: el
Elevator uno del ****** del del ********** del del ********** del del ********** del del ************************** del
es ESCRITURA del online=True



VB A FIXE: nombre de fichero del
dim del ****** del del ********** del del ********** del del ********** del del ************************** del
, placeholder, datos, tokens, subtokens, tok

If (WScript.Arguments.Count = 2) nombre de fichero de Then
= 0) placeholder del
de WScript.Arguments (= WScript.Arguments (discusiones del enugh de 1)
Else
WScript.Echo “no: 2 previstos (nombre de fichero + placeholder). “
WScript.Quit
End If
/>START_TOKEN = “del placeholder y “de "/>END_TOKEN = “fso del

Set de " =
Set de CreateObject ” y
leSystemObject”) entrado =
data = input.ReadAll
input. Close
Set entró = Nothing

tokens = partió (datos, START_TOKEN) el
for cada tok en subtokens del tokens
= partió (tok, END_TOKEN) el
si UBound (subtokens) > 0 then
si 0) if
next




CURRENT del extremo del if
del extremo del
de los subtokens del then
WScript.Echo del "" del <> de los subtokens (0) ( ARCHIVO DE OUTPUT.TXT QUE CONTIENE LOS DESPERDICIOS:
Is del ****** del del ********** del del ********** del del ********** del del ************************** del
atado como archivo para su review. class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
ARCHIVO del >CURRENT OUTPUT.TXT de la " descripción " del class= del
el class= de
del >
class= > " claro " del
soluciones >Related class= escritura de VB del title= " de " /Programming/Languages/Visual_Basic/VB_Script/Q_26337532.html del href= " del VB: Texto específico de la salida del texto file

Respuesta : VBScript: Necesitar hacer salir solamente el resultado required, sin los desperdicios.

intentarlo por favor:
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:

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

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 startindex = los símbolos de InStr (datos, START_TOKEN) = parten (datos, START_TOKEN) si startindex > 0 entonces startindex = 1 extremo si para el índice = el startindex a los subtokens de UBound (símbolos) = partir (símbolos (índice), 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