السلام عليكم:
شبااااااااااب سؤال اريد كود له:
عندي نص من 30 سطر مثلا... وفيه ايميلات + معلومات اخرى....
اقتباسmy Name : Eyad
Email koko@hotmail.com
hi How Are you?
Soso@yahoo.com
[/quote
كيف استخرج الا يميلات فقط؟؟
وشكرااااااااا
كيف استخرج مجموعة ايميلات من مستند نص
KOl Sana we anta taieb el 2awel
bos ya sedy 2afta7 Project we 7ot feha 2 Text we Command
we 7'aly el 2 Text MultiLine
7ot fe Text 1 el String El anta katboo fo2
we fel Command 2akteb Dol
Dim mMails
Dim mLines
Dim i As Integer
Dim j As Integer
'===============
mLines = Split(Text1.Text, vbNewLine)
For i = 0 To UBound(mLines)
If InStr(mLines(i), "@") > 0 Then
If InStr(mLines(i), " ") Then
mMails = Split(mLines(i), " ")
For j = 0 To UBound(mMails)
If InStr(mMails(j), "@") > 0 Then
Text2.Text = Text2.Text & Trim(mMails(j)) & vbNewLine
Exit For
End If
Next
Else
Text2.Text = Text2.Text & Trim(mLines(i)) & vbNewLine
End If
End If
Next