Frage : Reihen-Akte - Zahlen von einer Textdatei extrahieren

Hallo dort, findet

You angebracht; eine Textdatei, von der, indem ich eine Reihenakte auf Gewinn XP verwende, ich alle Zahlen extrahieren muss, die 7digits each.

You enthalten, findet auch, dass die Zahlen dupplicated, aber im resultierten Ausgang, sie muss unique.

The Resultat sein muss auf Schirm ausgegeben werden, wie folgt:
5127865
5127847
5118095
5123320
5120834
5115144
5115096
5117736
5117740
5115123
5122365
5257847
5199095
6823320
5120892
5115274
5188096
5117730
5777740
5115166

Thanks für Ihre Hilfe,
Rene
Attachments:
MustExtractTheNumbersAndUnduppli.txt (10 KBs) (Akten-Art Details)
Source Textdatei, zum der Zahlen from.
zu extrahieren

Antwort : Reihen-Akte - Zahlen von einer Textdatei extrahieren

O.K., ist hier eine Änderung, zum des Dateinamens von der Befehlszeile zu erhalten.  Ich empfehlen, es laufen zu lassen mag dieses:

cscript EE26314082.vbs //NOLOGO input.txt >output.txt

~bp
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:
6:

'Sie dass sicherstellen der Eingangsdateiname auf der Befehlszeile spezifiziert und erhalten
Wenn (WScript.Arguments.Count > 0) dann
  Dateiname = WScript.Arguments (0)
Sonst
  WScript.Echo „kein Eingangsdateiname spezifiziert.“
  WScript.Quit
Beenden wenn
 
'Gesamte Eingangsakte in eine einzelne Schnurvariable lesen
Fso = CreateObject („Scripting.FileSystemObject“) einstellen
Eingang = fso.OpenTextFile (Dateinamen) einstellen
Daten = input.ReadAll
Eingang. Abschluss
Eingang einstellen = nichts
 
'Wörterbuchgegenstand zu den ellininate Duplikaten verursachen
Dict = CreateObject („Scripting.Dictionary“) einstellen
 
'Schablone des regulären Ausdrucks zu den locae verursachen die Auftragsnummern
Bezüglich einstellen = neues RegExp
Re. Muster = „OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] u.“
re.IgnoreCase = ausrichten en
Re. Global = ausrichten
 
'Durch jedes Gleiche, grap Auftragsnummer schlingen und wenn Sie nicht bereits gefunden, hinzufügen Wörterbuch
für jedes im Re schlagen. Durchführen (Daten)
   order=Mid (Schlag. Wert, 10, 7)
   Wenn nicht dict. Existiert (Auftrag) dann
      dict. Auftrag, 0 addieren
   Beenden wenn
Zunächst
 
'Liste der einzigartigen Auftragsnummern jetzt ausgeben
Für jedes O im dict
   Wscript.Echo O
Zunächst
Weitere Lösungen  
 
programming4us programming4us