Question : VBScript : Devoir produire seulement le résultat required, sans ordure.

Je dois modifier le manuscrit suivant pour extraire quelque texte soit localisé entre : « Parameter un :  » et «  » et rendement il dans « Output.txt », sans ordure (voir ci-dessous). le

You trouvera un échantillon modifié simpliste de « Input.txt » ainsi vous pouvez avoir l'idée. En réalité, Input.txt contient une combinaison de HTML et de Javascript, faisant la sorte de dossier d'Output.txt de malpropre ; et la corde required est située à elle est dernier line.

I n'a pas inclus le dossier original d'input.txt parce qu'elle contient un bon nombre d'informations confidentielles et elle me porterait à beaucoup de temps pour le passer en revue. Ainsi j'ai inclus le dossier modifié d'Output.txt. Si vous avez besoin absolutly du dossier original modifié d'input.txt, svp me laisser know.


Thanks, le
Rene




BY USING LA LIGNE de COMMANDE :
cscript GetParameter.vbs //NOLOGO « input.txt » « paramètre un de ****** du de ********** du de ********** du de ********** du de ************************** du
: « DOSSIER SIMPLISTE DE L'ARTICLE TRUQUÉ INPUT.TXT DE >OUTPUT.TXT



THE : 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 SEULEMENT : le
Elevator un de ****** du de ********** du de ********** du de ********** du de ************************** du
est MANUSCRIT de l'online=True



VB À FIXE : nom de fichier du
dim de ****** du de ********** du de ********** du de ********** du de ************************** du
, texte d'attente, données, tokens, subtokens, tok

If (WScript.Arguments.Count = 2) nom de fichier de Then
= 0) textes d'attente de
de WScript.Arguments (= WScript.Arguments (arguments d'enugh de 1)
Else
WScript.Echo « pas : 2 prévus (nom de fichier + texte d'attente). « 
WScript.Quit
End If
/>START_TOKEN = « de texte d'attente et « de "/>END_TOKEN = « fso du

Set de " =
Set de CreateObject  » et
leSystemObject ») entré =
data = input.ReadAll
input. Close
Set a entré = Nothing

tokens = a dédoublé (données, START_TOKEN) le
for chaque tok dans des subtokens du tokens
= a dédoublé (tok, END_TOKEN) le
si UBound (subtokens) > 0 then
si 0) if
next




CURRENT d'extrémité de l'if
d'extrémité du
de subtokens du then
WScript.Echo de "" de <> de subtokens (0) ( DOSSIER D'OUTPUT.TXT CONTENANT L'ORDURE :
Is de ****** du de ********** du de ********** du de ********** du de ************************** du
attaché comme dossier pour votre review. class= " lastRow de
>Attachments de " nom " de class= de
class= " valeur " de
>
DOSSIER du >CURRENT OUTPUT.TXT de " description " de class= de
le class= de
de >
class= > " clair " de
solutions >Related class= manuscrit de VB de title= " de " /Programming/Languages/Visual_Basic/VB_Script/Q_26337532.html de href= " de VB : Texte spécifique de rendement du texte file

Réponse : VBScript : Devoir produire seulement le résultat required, sans ordure.

l'essayer svp :
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 :

obscurcir le nom de fichier, texte d'attente, données, marques, subtokens, tok, startindex, index

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 startindex = marques d'InStr (données, START_TOKEN) = se dédoublent (données, START_TOKEN) si startindex > 0 puis startindex = 1 extrémité si pour l'index = le startindex aux subtokens d'UBound (marques) = dédoubler (marques (index), 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
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us