valid email address

[soluga]

I want to loop through my datatable rows and check for valid email addresses, if the address is valid, I want to add the row to the database, if not I want to add it to another datatable, but my main problem at the moment is checking for a valid email address, the code I have so far is

'Loop through the rows of the DataTable
        Do While i <= dt.Rows.Count - 1
            checkEmail = dt.Rows(i).Item("E-Mail")
            'If curCat = "" Then
            If InStr(checkEmail, "@") = 1 Then
                'prevCat = curCat
                lblMessage.Text = "Email Checked"
                'Dim shRow As DataRow = dt.NewRow
                
                'dt.Rows.InsertAt(shRow, i)
 
 
                i += 1
            End If
 
            i += 1
        Loop

[sevenhalo]

You could look into regex (unless you're talking about authenticating that the address is real rather than the format)?

Good article on this:
http://www.4guysfromrolla.com/webtech/052899-1.shtml

You won't need to use javascript for this, but you can make use of the pattern they provide. Just ad a regular expression control to your loop and handle the matches.

[soluga]

I am not bothered if it is real, just that it is in the correct format.

[sevenhalo]

ok, without messing with your code too much, how does this work:

Dim regex As New System.Text.RegularExpressions.Regex("^[\\w-_\.]*[\\w-_\.]\@[\\w]\.+[\\w]+[\\w]$")
        'Loop through the rows of the DataTable
        Do While i <= dt.Rows.Count - 1
            checkEmail = dt.Rows(i).Item("E-Mail")
            'If curCat = "" Then
            If regex.IsMatch(checkEmail) Then
                'Do whatever you need to do for an authenticated email
                i += 1
            Else
                'Do whatever you need to do for a failed email
            End If
 
            i += 1
        Loop

[soluga]

Excellent, thanks very much,
I was also wondering is it possible to check a cells value for things like double quotes or single quotes, and if so remove them???

thanks

[sevenhalo]

Yeah, deffinitely. There's string methods that you can use to find the indexof or remove. They return a value though, so you'll have to set the return value to the data type. IE:

str = str.Replace("text", string.Empty)

[soluga]

Trying to run the code

Try
Dim regex As New System.Text.RegularExpressions.Regex("^[\\w-_\.]*[\\w-_\.]\@[\\w]\.+[\\w]+[\\w]$")
   
            For Each datar In dt.Rows
 
            Next
            Do While i <= dt.Rows.Count - 1
                checkEmail = dt.Rows(i).Item("E-Mail")
                'If curCat = "" Then
                If regex.IsMatch(checkEmail) Then
                    'Do whatever you need to do for an authenticated email
                    lblMessage.Text = "fine"
                Else
                    lblmessage2.Text = "some problems"
                    'Do whatever you need to do for a failed email
                End If
 
                i += 1
 
            Loop
        Catch ex As Exception
            lblMessage.Text = ex.ToString
        End Try

But I keep getting
"Argument Exception was unhandled by user code on the regular expression"

Grateful for help

[soluga]

used this instead

"\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"

[sevenhalo]

Actually, have a look at the two here:
http://www.cambiaresearch.com/cambia...ail_regex.aspx

I tested both the loose and strict pattern. Both seemed to work in the short trial I put them through.

[rabid lemming]

The only place to look for regular expressions has to be: http://regexlib.com/

[soluga]

Did it this way in the end...

Const replacePattern As String = "[?:\/*""<>|]"
        Const emailPattern As String = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
 
        Dim replaceRegEx As New System.Text.RegularExpressions.Regex(replacePattern, System.Text.RegularExpressions.RegexOptions.Compiled)
        Dim emailRegEx As New System.Text.RegularExpressions.Regex(emailPattern, System.Text.RegularExpressions.RegexOptions.Compiled)

also yesterday I asked about filtering out unwanted characters!! I did this like ...

replaceRegEx.IsMatch(something) Then
replaceRegEx.Replace("[?:\/*""<>|]", "")

My problem now is, that even though I have removed the characters, they still show up in the new datatable!! but I will put that in a new thread.

Thanks

[soluga]

more probs..

I am passing the code

ElseIf replaceRegEx.IsMatch(organization) = True Then
                replaceRegEx.Replace("[?:\/*""<>|]", "")
                lblmessage2.Text = organization

but although the label will show the text it has caught, it does not show the trimmed text !! so how can I tell, if the text is actually getting trimmed? was sure I had this working earlier today!!

[rabid lemming]

Im sure you'd have to do is something like this wouldn't you ?

replaceRegEx = replaceRegEx.Replace("[?:\/*""<>|]", "")
organization = replaceRegEx.toString.trim()
lblmessage2.Text = organization

Hoping that might help you

[soluga]

I have got it working like this...

dtnRow("Organization") = Regex.Replace(organization, "[?:\/*""<>|]", "")

however I want to be able to remove a single ' quotation as in O'Brien, but when I add a ' to the "[?:\/*""<>|]", "" then it throws everything out!!

[rabid lemming]

Could you use another line to do that like:

organization.ToString.Replace(Chr(34), "")