Question : Manuscrit de VB : Texte spécifique de rendement à partir de dossier des textes

Salut là, le besoin du

I de modifier le manuscrit suivant pour extraire quelque texte soit localisé entre : « Parameter un :  » et «  ».


SO EN EMPLOYANT LA LIGNE DE COMMANDE : paramètre 1 » >output.txt


FROM du
cscript GetParameter.vbs //NOLOGO « input.txt » de ****** « du de ********** du de ********** du de ********** du de ************************** du
LE DOSSIER SUIVANT des TEXTES d'INPUT.TXT : le line
This du line
whatever du
whatever de ****** du de ********** du de ********** du de ********** du de ************************** du
est un test> et je le veux dire et pourquoi le Parameter 1 de not> : Elevator un est RÉSULTAT ANALYSÉ par/>THE du line


whatever d'online=True
whatever DOIT ÊTRE : le
Elevator un de ****** du de ********** du de ********** du de ********** du de ************************** du
est l'online=True




SCRIPT À MODIFIER : le
'de ****** du de ********** du de ********** du de ********** du de ************************** du
s'assurent que le nom de fichier d'entrée est spécifié sur la ligne de commande et obtiennent le nom de fichier de l'it
If (WScript.Arguments.Count > 0) Then
=
Else
WScript.Echo de WScript.Arguments (0) « aucun nom de fichier d'entrée spécifique. le « 
'du
WScript.Quit
End If
a lu le dossier d'entrée entier dans un fso du variable
Set de corde = un
Set de CreateObject (« Scripting.FileSystemObject ») entrés = le
data = input.ReadAll
input. Close
Set entré =
'du
'de Nothing
créent l'objet de dictionnaire au dict du duplicates
Set d'ellininate = du
de CreateObject (le « Scripting.Dictionary ») créent le calibre d'expression régulière aux locae le numbers
Set d'ordre au sujet de = nouveau RegExp
re. Modèle = « OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9]
" />re.IgnoreCase = True
re. Global = la boucle du
'de True
par chaque allumette, numéro de commande de grap, et sinon déjà trouvé s'ajoutent au dictionary
for chacun frappé en Re. Exécuter l'order=Mid du
(de données) (coup. Valeur, 10, dict de 7)
sinon. Existe (ordre) le dict de Then
. Ajouter l'ordre, liste de rendement du
'd'If
Next
de fin de 0
du now
For de numéros de commande que chaque o en MANUSCRIT de l'o
Next



THIS du dict
Wscript.Echo À MODIFIER S'APPELLE ACTUELLEMENT PAR LA LIGNE de COMMANDE SUIVANTE :
cscript GetNumbers.vbs //NOLOGO input.txt >output.txt



Thanks pour votre aide,
Rene de ****** du de ********** du de ********** du de ********** du de ************************** du
class= > " clair " de

solutions >Related class= href= " /Programming/Languages/Visual_Basic/VB_Script/Q_26339319.html " title= " VBScript de VBScript de qRelatedChild " de « class= : Le besoin de produire seulement le résultat required, sans junk.

Réponse : Manuscrit de VB : Texte spécifique de rendement à partir de dossier des textes

lui donner un aller

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 :

obscurcir le nom de fichier, texte d'attente, données, marques, subtokens, tok Si (WScript.Arguments.Count = 2) puis nom de fichier = WScript.Arguments (0) texte d'attente = WScript.Arguments (1) Autrement Arguments d'enugh de WScript.Echo « pas : 2 prévus (nom de fichier + texte d'attente). » WScript.Quit Finir si START_TOKEN = "" et texte d'attente et "" END_TOKEN = « « Placer le fso = le CreateObject (« Scripting.FileSystemObject ») placent l'entrée = les données de fso.OpenTextFile (nom de fichier) = l'entrée d'input.ReadAll. Fermer l'entrée réglée = rien des marques = se dédoublent (données, START_TOKEN) pour chaque tok dans des subtokens de marques = se dédoublent (tok, END_TOKEN) si UBound (subtokens) > 0 puis si les subtokens du "" alors WScript.Echo <> de subtokens (0) (0) finissent si extrémité si après