Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

ekstrakcija email adrese

[es] :: Visual Basic 6 :: ekstrakcija email adrese

[ Pregleda: 3438 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

djordje
Novi Sad

Član broj: 3704
Poruke: 1725
*.vdial.verat.net



+3 Profil

icon ekstrakcija email adrese20.08.2004. u 01:19 - pre 206 meseci
ima li neko algoritam za ekstraktovanje email adrese iz nekog stringa? treba mi za jedan mali projekat, ali ne mogu nikako da skoncetrisem da resim ovaj problem. Ima li ko?
 
Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1326
*.telekom.yu



+103 Profil

icon Re: ekstrakcija email adrese20.08.2004. u 07:28 - pre 206 meseci
Evo jednog primera. Kucam iz glave tako da nije mozdna najbolje napisan
Code:
public Function FindEmail (byVal strTekst as String) as String
Dim strEmail as String
Dim iMajmun as Integer
Dim iSpace as Integer
Dim x as integer

iMajmun = InStr(1, strTekst, "@")  ' tražimo karakter "@" jer je on specifican za EMail
if iMajmun = 0 then 
   MsgBox "Email adresa nije nađena"  ' ako ga nema nema ni email adrese
   exit Function
end if 
iSpace = InStr(iMajmun, strTekst, " ")  ' trazimo prvi space (ili sta god vbcrlf, ";", ":" ...) posle email adrese da bi znali gde je kraj adrese
strEmail = mid (strTekst, iMajmun,iSpace - iMajmun)  'uzimamo zadnji deo adrese tipa "@hotmail.com"
For x = iMajmun to 1 Step -1   ' trazimo prvi space pre email adrese da bi videli gde je pocetak iste
   if mid(strTekst, x, 1) = " " then
      strEmail = mid(strTekst, x, iMajmun-x) & strEmail  ' i sad jednostavno dodamo pocetak adrese na vec postojeci string 
      Exit For
   end if 
Next x
FindEmail = strEmail
End Function


E sad ovo bi trebalo da radi samo nisam siguran u broj karaktera koje sam uzimao pri vadjenju prvog i sadnjeg dela adrese. Ako slucajno dodje do seckanja adrese samo povecaj (ili po potrebi smanji broj karaktera koji treba da uzme)
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
 
Odgovor na temu

[es] :: Visual Basic 6 :: ekstrakcija email adrese

[ Pregleda: 3438 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.