سوال: چطور میشه یک فایل متنی رو فقط ایمیل ها رو ازش توی لیست باکس استخراج کرد ؟ [بایگانی]

maxtools

یک شنبه 28 فروردین 1390, 21:03 عصر

با سلام

چطور میشه یک فایل متنی رو فقط ایمیل ها رو ازش توی لیست باکس استخراج کرد ؟

به عنوان مثال یک فایل متنی html داریم توی یک تکس باکس می خوایم فقط آدرس ها یا ایمیل ها رو جدا و درج کنیم توی یک لیست باکس ؟

returnx

یک شنبه 28 فروردین 1390, 21:24 عصر

برنامه نسبتا وقت گیر و حوصله سر بر هست اما خوب میشه پیاده سازی کرد ...
الگوریتم:
ابتدا خط به خط میخونیم(بهتره پردازش رو همون زمان که یک خط خونده شد انجام بدیم) بعد Space ها رو مشخص و بین هر Space رو جدا میکنیم و با کد زیر تست می کنیم که آیا Email هست یا خیر...

Stri = Right(mail_txt, 4)
at = InStr(1, mail_txt, "@")
If Stri = ".com" And at > 1 Or Stri = ".net" And at > 1 Or Stri = ".org" And at > 1 Then
Counter = Counter + 1
mails(Counter) = mail_txt
End If
البته این یک الگوریتم هست ،احتمالا با الگوریتم های دیگه هم میشه این کار کرد...

maxtools

دوشنبه 29 فروردین 1390, 07:35 صبح

برنامه نسبتا وقت گیر و حوصله سر بر هست اما خوب میشه پیاده سازی کرد ...
الگوریتم:
ابتدا خط به خط میخونیم(بهتره پردازش رو همون زمان که یک خط خونده شد انجام بدیم) بعد Space ها رو مشخص و بین هر Space رو جدا میکنیم و با کد زیر تست می کنیم که آیا Email هست یا خیر...

Stri = Right(mail_txt, 4)
at = InStr(1, mail_txt, "@")
If Stri = ".com" And at > 1 Or Stri = ".net" And at > 1 Or Stri = ".org" And at > 1 Then
Counter = Counter + 1
mails(Counter) = mail_txt
End If
البته این یک الگوریتم هست ،احتمالا با الگوریتم های دیگه هم میشه این کار کرد...

خیلی از لطفتون ممنون در رابطه با این آلگوریتم اما اگر بشه به صورت سورس کد برام آپ کنی یک دنیا ممنونت می شم .
:قلب: