Kako izbskat email-e

Citat:
Uporabnik Mirko pravi:
Če imaš offline verzijo podobno kot TIS lahko narediš izvoz izbranih podatkov v .txt. Dobiš datoteko z raznimi podatki (naziv, naslov, telefonska). Izločiš samo tiste ki se začnejo z "E-PO"

To lahko narediš s FOR zanko v .BAT.

Naprimer imaš datoteko pirs.txt s podatki:

Koda:

IZPOSOJA AVTOMOBILOV IN MOTORNIH KOLES
LJUBLJANA
POŠTA:  1000 LJUBLJANA
AVIS RENT A CAR & LEASING
REZERVACIJSKI CENTER
VEROVŠKOVA ULICA 60 A
TELEFON:  (080) 2233
TELEFON:  N.C. (01) 5838780
TELEFAKS:  (01) 5838781
REZERVACIJE VOZIL V TUJINI IN IZDAJANJE VOUCHERJEV
TELEFON:  (01) 5838772
INTERNET: http://www.avis.si
E-POŠTA:  hq@avis.si
E-POŠTA:  rez.center@avis.si
PREVOZI OSEB Z VOZNIKOM IN TRANSFERJI
TELEFON:  (01) 5838787
E-POŠTA:  transfer@avis.si
INTERNET: http://www.soferskevoznje.si

Koda za izluščenje e-mailov naj bi izgledala tako:

Koda:

@echo off
set input=pirs.txt
set output=e-mails.txt

del %output%

for /f "tokens=1* delims= " %%A in (%input%) do set vrstica=%%A %%B&call :iskanje

:iskanje
if /i "%vrstica:~0,4%" equ "E-PO" echo %vrstica:~9,99% >>%output%

Kreira se nova datoteka e-mails.txt v kateri so naslednji podatki:

Koda:

hq@avis.si 
rez.center@avis.si 
transfer@avis.si

Važna je samo zadnja vrstica. Koda prebere niz 0,4 (prvi štirje znaki) in če je niz enak "E-PO" (prvi štirje znaki niza E-POŠTA), doda v datoteko "e-mails.txt" niz znakov, ki se začnejo po znaku 9 (znaki se začnejo šteti z 0,1,2,3...) v dolžini 99 znakov (~9,99). V našem primeru so to iskani e-maili

Klikni za razširitev