Take email from Note and paste to Excel

[kctvt]

Take email from Note and paste to Excel

Yub, that's my Question. I'm creating a code take emails from file .txt , then paste to Excel but I dont know how.

My Note like this :

==========================================

adb@gmail.com ; dfff@gmail.com ; FTT@gmail.com , 123@dot.net , esd@yahoo.com

List email ...

333@ymail.com , 444@yahoo.com ; hellu@hotmail.com ;

===========================================

So, How can I only search email in this file , take it, and past to Excel ?

I dont want to take ";" or "," or anything else not Email

[Bert]

Use fileOpen, FileReadLine, StringSplit, and the excel commands. Sorry, I don't have much time to write the script for you but this should give you some direction.

[kctvt]

This is mt note file :

dsfds

adb@gmail.com , dfff@gmail.com , FTT@gmail.com , 123@dot.net , esd@yahoo.com

List email ...

333@ymail.com , 444@yahoo.com , hellu@hotmail.com ,

This is my code

snipped

==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

Msgbox (48, "Notice" ,$array[$a],2000)

Msgbox (48, "Notice" , ^ ERROR

Can you help me fix this ...

I think problem is :

$a = 1
Do
;If @error = -1 Then ExitLoop
Msgbox (48, "Notice", $array[$a],2000)
$a = $a + 1
Until @error = 1
EndIf

Edited November 20, 2011 by SmOke_N

[water]

Use Consolewrite to output the number of elements in the array (it's in element 0) and the Index.

Or how about this

snipped

Edited November 20, 2011 by SmOke_N

[kctvt]

Thank Water It work very good ^^

However, I still have a problem .

This is my new code :

snipped

I have a new file like this :

dsfds
adb@gmail.com
dfff@gmail.com
FTT@gmail.com
123@dot.net
esd@yahoo.com

List email ...

333@ymail.com
444@yahoo.com
hellu@hotmail.com

I only take the line have email. If the line dont have "@" then delete that line.

So.... How can I do it ? Use _ArrayDelete ?

Edited November 20, 2011 by SmOke_N

[kylomas]

kctvt,

put the filewritefromarray outside of your do loop

kylomas

Edit : make that "for" loop

Edit2: If you are going to use filereadfromarray you do not need to open the file and you certainly do NOT want to read it line by line.

Edit3: I would have done this as follows (you need to figure out how to get rid of the line w/o "@"

snipped

kylomas

Edit4: You CHANGED the input file format as I was coding thew above solution...Good Luck !!!

kylomas

Edited November 20, 2011 by SmOke_N

[jchd]

Given your example(s) inputs, merged into file mailadrs.txt in script folder, run this:

#include 
Local $txt = FileRead("mailadrs.txt")
Local $mailAdrs = StringRegExp($txt, '(?im)b([w.-]+@[w.-]+)b', 3)
_ArrayDisplay($mailAdrs)

Edit: fixed as per posts below.

Edited November 18, 2011 by jchd

[kylomas]

jchd,

After all the rigamorole it ocurred to me that regex was the solution. Does the regex breakdown as follows?

(?im)      - case insensitive - don't get the match newlines within data, however
b           - start match on word boundry
([dw.]+  - match any chars, any number of times
@          - followed by an "@" sign
([dw.]+ - match any chars, any number of times
+)        -  close match set
b          - end on word boundry

kylomas

Edited November 18, 2011 by kylomas

[jchd]

Geez, looking again at it I see it's overcomplicated. Reason: d in already included in w metacharacter, so we don't need d.

(?im)     - case insensitive and multiline options
b         - start match on a word boundary
(         - start capture
[w.-]+    - match one or more "word"chars (letters or digits) or dot or hyphen
@         - followed by an "@" sign
[w.-]+    - match one or more "word" chars (letters or digits) or dot or hyphen
)         - close capture
b         - must match a word boundary

In short the better pattern is "(?im)b([w.]+@[w.]+)b"

It still is a very permissive pattern, since it would not filter out invalid addresses like abc..d.e.f.g....z@.1.2.3.4.5.6.7.8.9..

But it should work for already validated addresses, unless they are special "enterprise" type (unlikely).

EDIT: I also was leaving the hyphen out... Probably too late (or is it early?) for mail regexps!

Edited November 18, 2011 by jchd

[kctvt]

Thank kylomas It work very well

I has all email I want in that file. So, I copy these Email and paste to Excel for my data email. I use it to send email.

I have 10 email to do this (email1@gmail.com, email2@gmail.com....v....v.... , email10@gmail.com) . And I only want each email just send 200 emails, then it will change the next email.

So... I have 2 file data rightnow :

First : Full of email (Data in Excel. When I send successfull email , _Excel 'll write "SENT")

adb@gmail.com 
dfff@gmail.com 
FTT@gmail.com 
123@dot.net 
esd@yahoo.com 
333@ymail.com 
444@yahoo.com 
hellu@hotmail.com

Second : List acc email I'll use to send

email1@gmail.com
email2@gmail.com
email3@gmail.com
email4@gmail.com
email5@gmail.com
email6@gmail.com
email7@gmail.com
email8@gmail.com
email9@gmail.com
email10@gmail.com

So.... What should we do now :S

Edited November 18, 2011 by kctvt

[SmOke_N]

Your question(s) and intention(s) are questionable.

Please explain why I should allow this thread to remain open when it apparently looks like you're trying to create a spam email bot.

I would suggest no one else to respond to this thread other than the original poster until otherwise told so.

[water]

The OP sent me a PM and I exactly asked the same question - no reply so far.

[SmOke_N]

24 hours is plenty of time to respond.

I guess it wasn't legitimate after all.