كيف استخرج الايميلات من ملف نصي؟؟؟

:confused:

ياليت ان احد يتكرم ويشرحها

السلام عليكم

وصلني الكود هذا ...ومادري كيف استعمله

ممكن احد يساعد في توضيحه :

'Call the functions as follows:

' txtInput = GetEmail (txtInput)

Public Function GetEmail(Inp As String) As String

Dim chrAt As String

Dim chrOpen As String

Dim chrClose As String

Dim phrHREF As String

Dim phrMailTo As String

Dim strFirst As String

Dim strLast As String

Dim strEmail As String

chrAt = InStr(1, Inp$, "@")

chrOpen = InStr(1, Inp$, "<")

chrClose = InStr(1, Inp$, ">")

phrHREF = InStr(1, Inp$, "phrMailTo = InStr(1, Inp$, Chr$(34) & "mailto:")

strFirst = InStr(1, Inp$, "

strLast = InStr(1, Inp$, Chr$(34) & ">")

If chrOpen Then

If chrClose Then

If phrHREF Then

If phrMailTo Then

If strFirst Then

If strLast Then

' Start retreiving email address

Inp$ = Mid$(Inp$, phrMailTo + 8)

GetEmail$ = Mid(Inp$, 1, InStr(1, Inp$, Chr$(34)) - 1)

' End retreiving email address

End If

End If

End If

End If

End If

End If

End Function

ارجو منكم شرح الكود

في امان الله

بالنسبة للكود الذي وضعته فهو يقوم باستخراج البريد الالكتروني من صفحات الويب ولكن الكود يقوم باستخراج أول بريد الكتروني فقط ...

وهذا مثال مبسط يقوم بتأدية المهمة لأي بريد الكتروني -كرابط تشعبي- تحتويه الصفحة.

Sub GetEmail(ByVal txt As String)
 Dim Pos As Long, Finish As Long
 Pos = InStr(txt, "mailto:")
 Do While Pos
   Finish = InStr(Pos, txt, Chr(34))
   List1.AddItem Mid(txt, Pos + 7, Finish - Pos - 7)
   Pos = InStr(Pos + 1, txt, "mailto:")
 Loop
End Sub

Sub Command1_Click()
 Dim sArr() As String, txt As String
 Open "C:mail.htm" For Input As #1
  txt = Input(LOF(1), #1)
 Close #1
 GetEmail txt
End Sub

ويمكنك ببعض التعديلات أن تقوم بجعل الكود يقوم باستخراج أي بريد (حتى وإن لم يكن كرابط).

مشكور اخوي على الرد

المثال واضح :)

لكن كيف اخليه يستخرج الايميلات حتى بدون رابط ؟

وايش معنى pos و txt?

:D :D :D مشكور