Pytanie : Wsad Kartoteka - Wydobywać Liczba od tekst kartoteka

Cześć tam,

You znajdować; tekst kartoteka od che wsad kartoteka na Wygrana XP, I musieć the liczba 7digits each.

You także znajdować że the liczba dupplicated, ale w the wynikać wydajność, musieć unique.

The rezultat musieć przesyłać na ekran podążać:
5127865
5127847
5118095
5123320
5120834
5115144
5115096
5117736
5117740
5115123
5122365
5257847
5199095
6823320
5120892
5115274
5188096
5117730
5777740
5115166

Thanks dla twój pomoc,
Rene
Attachments:
MustExtractTheNumbersAndUnduppli.txt (10 KB) (Kartoteka Typ Szczegół)
Source tekst kartoteka the liczba from.

Odpowiedź : Wsad Kartoteka - Wydobywać Liczba od tekst kartoteka

OK, tutaj być zmiana the filename od the nakazowy linia.  I polecać bieg ono lubić lubić:

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:
36:

'Upewniać się the wkład kartoteka - imię precyzować na the nakazowy linia i dostawać ono
Jeżeli (WScript.Arguments.Count > (0)) Wtedy
  filename = WScript.Arguments ((0))
Inny
  WScript.Echo "Żadny wkład filename precyzować."
  WScript.Quit
Kończyć Jeżeli
 
'Czytać całkowity wkład kartoteka w pojedynczy smyczkowy zmienna
Ustawiać fso = CreateObject ("Scripting.FileSystemObject")
Ustawiać wkład = fso.OpenTextFile (filename)
dane = input.ReadAll
wkład. Zakończenie
Ustalony wkład = Nic
 
'Tworzyć słownik przedmiot ellininate duplikat
Ustawiać dict = CreateObject ("Scripting.Dictionary")
 
'Tworzyć miarowy wyrażenie szablon locae the rozkaz liczyć
Ustawiać re = Nowy RegExp
re. Wzór = "OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] &"
re.IgnoreCase = Prawdziwy
re. Globalny = Prawdziwy
 
'Pętla przez słownik dopasowanie, grap rozkaz liczba, i jeśli nie już dodawać słownik
dla Uderzenie uderzenie W re. Wykonywać (dane)
   order=Mid (uderzenie. Wartość, 10, 7)
   Jeśli nie dict. Istnieć (rozkaz) Wtedy
      dict. Dodawać rozkaz, (0)
   Kończyć Jeżeli
Następnie
 
'Przesyłać lista unikalny rozkaz liczba teraz
Dla Dict o W dict
   Wscript.Echo o
Następnie
Inne rozwiązania  
 
programming4us programming4us