Re: E-mail pattern Was: Help on regex script..

Florent,

Script will be more common with special array $Patterns:

Dim $Patterns[5] = [5,'[1]{1}[0-9]{8}','[0]{1}[12345689]{1}[0-9]
{8}','[0]{1}[6]{1}[0-9]{8}','[a-z][\w.-]+@\w[\w.-]+\.[\w.-]*[a-z][a-z]
(?i)']

It's first member $Patterns[0] = 5 - count of patterns
Second one $Patterns[1] = First column pattern
And so on.
Resulting script will have more common view:

Dim $Patterns[5] = [5,'[1]{1}[0-9]{8}','[0]{1}[12345689]{1}[0-9]
{8}','[0]{1}[6]{1}[0-9]{8}','[a-z][\w.-]+@\w[\w.-]+\.[\w.-]*[a-z][a-z]
(?i)']

$file = FileOpen("test.csv", 0)

; Check if file opened for reading OK
If $file = -1 Then
 MsgBox(0, "Error", "Unable to open file.")
 Exit
EndIf

$line_number = 0
;Read in lines of text until the EOF is reached
While 1
$line_number = $line_number+1
;Get file current line content
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
MsgBox(0, "Line read :", $line)
If $line_number == 1 Then
  MsgBox(0,"Information","Je lis la premiere ligne")
Else
  $Columns = StringSplit($line, Chr(9), 1)
    for $i = 1 to 4
    if IsNotValidField($Columns[$i], $Patterns[$i], $line_number, $i) 
then exit
    next
EndIf
WEnd

FileClose($file)
exit

; validation function
func IsNotValidField($Target, $Pattern, $Row, $Col)
local $res
 $res = StringRegExp($Target, $Pattern, 1)
  if Not @Error then return 0
 MsgBox(0, 'Error!', 'Row: ' & $Row & ' Col: ' & $Col & @crlf & 
$Target)
 return 1
endfunc

You can see loop for every column of every row of file tested

for $i = 1 to 4
....
next

Thus, you can make validation of any content of row (n column) 
according array $Patterns[n+1]. Here you have just n=4 (four) columns.

Valery

--- In [email protected], "valery_vi" <shehrer1@...> wrote:
>
> Florent,
> 
> This script (more short!) works for me:
> $file = FileOpen("test.csv", 0)
> 
> ; Check if file opened for reading OK
> If $file = -1 Then
>  MsgBox(0, "Error", "Unable to open file.")
>  Exit
> EndIf
> 
> $line_number = 0
> 
> $codetiersPattern = '[1]{1}[0-9]{8}'
> $telephonePattern = '[0]{1}[12345689]{1}[0-9]{8}'
> $gsmPattern = '[0]{1}[6]{1}[0-9]{8}'
> $emailPattern = '[a-z][\w.-]+@\w[\w.-]+\.[\w.-]*[a-z][a-z](?i)'
> 
> ;Read in lines of text until the EOF is reached
> While 1
> $line_number = $line_number+1
> ;Get file current line content
> $line = FileReadLine($file)
> If @error = -1 Then ExitLoop
> 
> MsgBox(0, "Line read :", $line)
> If $line_number == 1 Then
>   MsgBox(0,"Information","Je lis la premiere ligne")
> Else
>   $Columns = StringSplit($line, Chr(9), 1)
>   ; test CODE_TIERS 
>   if IsNotValidField($Columns[1], $codetiersPattern, $line_number, 
1) 
> then exit
>   ; test TELEPHONE
>   if IsNotValidField($Columns[2], $telephonePattern, $line_number, 
2) 
> then exit
>   ; test GSM
>   if IsNotValidField($Columns[3], $gsmPattern, $line_number, 3) 
then 
> exit
>   ; test email
>   if IsNotValidField($Columns[4], $emailPattern, $line_number, 4) 
> then exit
> EndIf
> WEnd
> 
> FileClose($file)
> exit
> 
> ; validation function
> func IsNotValidField($Target, $Pattern, $Row, $Col)
> local $res
>  $res = StringRegExp($Target, $Pattern, 1)
>   if Not @Error then return 0
>  MsgBox(0, 'Error!', 'Row: ' & $Row & ' Col: ' & $Col & @crlf & 
> $Target)
>  return 1
> endfunc
> 
> with data file like this:
> 
> CODE_TIERS TELEPHONE GSM EMAIL
> 100000002	0955480155	0660485560	me@...
> 1000000042	0955480101	091242847	himothercompany.com
> 
> Note: Field delimiters is Tab characters!
> 
> Valery
> 
> --- In [email protected], "Florent Gilain" 
> <florent.gilain@> wrote:
> >
> > Hello Valery,
> >  
> > Sorry, i'm still unable to make it work..
> >  
> > here si my new autoit code :
> >  
> > $file = FileOpen("test.csv", 0)
> >  
> > ; Check if file opened for reading OK
> > If $file = -1 Then
> >  
> >  MsgBox(0, "Error", "Unable to open file.")
> >  Exit
> > EndIf
> >  
> > $line_number = 0
> >  
> > $codetiersPattern = '[1]{1}[0-9]{8}'
> > $telephonePattern = '[0]{1}[12345689]{1}[0-9]{8}'
> > $gsmPattern = '[0]{1}[6]{1}[0-9]{8}'
> > $emailPattern = '[a-z][\w.-]+@\w[\w.-]+\.[\w.-]*[a-z][a-z](?i)'
> >  
> > ; Read in lines of text until the EOF is reached
> > While 1
> >  ; On incrémente le compteur du nombre de lignes
> >  $line_number = $line_number+1
> >  ; On récupère le contenu de la ligne en cours / Get file current 
> line
> > content
> >  $line = FileReadLine($file)
> >  If @error = -1 Then ExitLoop
> >  
> >  MsgBox(0, "Line read :", $line)
> >  ; On évite la premiere ligne qui contient les en-têtes / don't 
act 
> on first
> > line because it only contains headers of the columns
> >  If $line_number == 1 Then
> >   MsgBox(0,"Information","Je lis la premiere ligne")
> >  Else
> >   ; On récupère chaque champ dans un tableau de variable en 
> utilisant la
> > tabulation comme séparateur / Get each column value (cvs file with
> > tabulation separator) in an array
> >   $array = StringSplit($line, Chr(9), 1)
> >   
> >   $RegExResult = StringRegExp($array[1], $codetiersPattern, 1)
> >   If $RegExResult <> 0 Then
> >      MsgBox(0, "Line number " & $line_number & " / Column 1 : KO",
> > $array[1])
> >   EndIf
> >   
> >   $RegExResult = StringRegExp($array[2], $telephonePattern, 1)
> >   If $RegExResult <> 0 Then
> >      MsgBox(0, "Line number " & $line_number & " / Column 2 : KO",
> > $array[2])
> >   EndIf
> >   
> >   $RegExResult = StringRegExp($array[3], $gsmPattern, 1)
> >   If $RegExResult <> 0 Then
> >      MsgBox(0, "Line number " & $line_number & " / Column 3 : KO",
> > $array[3])
> >   EndIf
> >   
> >   $RegExResult = StringRegExp($array[4], $emailPattern, 1)
> >   If $RegExResult <> 0 Then
> >      MsgBox(0, "Line number " & $line_number & " / Column 4 : KO",
> > $array[4])
> >   EndIf
> >  EndIf
> > WEnd
> >  
> > FileClose($file)
> >  
> > any idea of what i missed ? i get a KO result (not OK) even if it 
> should be
> > ok
> >  
> > florent
> > 
> >   _____  
> > 
> > De : [email protected] 
[mailto:[email protected]] 
> De la
> > part de valery_vi
> > Envoyé : mardi 30 janvier 2007 07:26
> > À : [email protected]
> > Objet : [AutoIt] E-mail pattern Was: Help on regex script..
> > 
> > 
> > 
> > But it isn't perfect and is a subject of many articles
> > See, for example:
> > http://www.regular- <http://www.regular-
expressions.info/email.html>
> > expressions.info/email.html
> > 
> > Valery
> > 
> > --- In AutoItList@yahoogro <mailto:AutoItList%40yahoogroups.com> 
> ups.com,
> > "valery_vi" <shehrer1@> wrote:
> > >
> > > About e-mail. I found this nice pattern
> > > 
> > > $Pattern = '[a-z][\w.-]+@\w[\w.-]+\.[\w.-]*[a-z][a-z](?i)'
> > > 
> > > $RegExResult = StringRegExp($array[1], $Pattern, 1)
> > > 
> > > It works with ARegExp script, too.
> > > 
> > > Valery
> > > 
> > > 
> > > --- In AutoItList@yahoogro <mailto:AutoItList%
40yahoogroups.com> 
> ups.com,
> > "valery_vi" <shehrer1@> wrote:
> > > >
> > > > Florent,
> > > > 
> > > > I'm not expert in regexp but maybe it will be helpful to use 
> > regexp 
> > > > without grouping parenthethis '(...)'
> > > > 
> > > > > Column 1 : 9 numbers with first number = 1 (example : 
> > 100000058)
> > > > $RegExResult = StringRegExp($array[1], '[1][0-9]{8}', 1)
> > > > > Column 2 : 10 numbers with first number = 0 (example : 
> > 060254589)
> > > > > Column 3 : 10 numbers with first number = 0 (example : 
> > 060254589)
> > > > $RegExResult = StringRegExp($array[1], '[0][0-9]{9}', 1)
> > > > 
> > > > > Column 4 : valid email address
> > > > It is expert's case.
> > > > ;-(
> > > > 
> > > > 
> > > > Valery
> > > > 
> > > > --- In AutoItList@yahoogro <mailto:AutoItList%
40yahoogroups.com>
> > ups.com, "Florent Gilain" 
> > > > <florent.gilain@> wrote:
> > > > >
> > > > > Hi all,
> > > > > 
> > > > > I have to create a script that will load a file containing 
> > lines 
> > > > separated
> > > > > by tabulation.
> > > > > Then, i need to verify data format using Regular 
expression; 
> > but 
> > > > i'm unable
> > > > > to understand how it works in AutoIT...i have read the help 
> > file 
> > > and
> > > > > tutorial, but it seems i missed something...
> > > > > 
> > > > > File would contain :
> > > > > 
> > > > > Column 1 : 9 numbers with first number = 1 (example : 
> > 100000058)
> > > > > Column 2 : 10 numbers with first number = 0 (example : 
> > 060254589)
> > > > > Column 3 : 10 numbers with first number = 0 (example : 
> > 060254589)
> > > > > Column 4 : valid email address
> > > > > 
> > > > > Example of file containing data :
> > > > > 
> > > > > CODE_TIERS TELEPHONE GSM EMAIL
> > > > > 100000002 0955480155 0906604855 me@ (valid line)
> > > > > 1000000042 0955480101 091242847
> > himothercompany.com 
> > > > (invalid
> > > > > line)
> > > > > 
> > > > > 
> > > > > Here is what i have tryed :
> > > > > 
> > > > > $file = FileOpen("test.csv", 0)
> > > > > 
> > > > > ; Check if file opened for reading OK
> > > > > If $file = -1 Then
> > > > > 
> > > > > MsgBox(0, "Error", "Unable to open file.")
> > > > > Exit
> > > > > EndIf
> > > > > 
> > > > > $line_number = 0
> > > > > 
> > > > > ; Read in lines of text until the EOF is reached
> > > > > While 1
> > > > > $line = FileReadLine($file)
> > > > > If @error = -1 Then ExitLoop
> > > > > $line_number = $line_number+1
> > > > > MsgBox(0, "Line read :", $line)
> > > > > 
> > > > > $array = StringSplit($line, Chr(9), 1)
> > > > > MsgBox(0, "Line number " & $line_number & " / Column 1 :",
> > > > > $array[1])
> > > > > $RegExResult = StringRegExp($array[1], '([0]{1}[0-9]{8})', 
1)
> > > > > If @error == 0 Then
> > > > > MsgBox(0, "Line number " & $line_number & " / Column 1 : 
> > KO", 
> > > > $array[1])
> > > > > EndIf
> > > > > 
> > > > > MsgBox(0, "Line number " & $line_number & " / Column 2 :",
> > > > > $array[2])
> > > > > $RegExResult = StringRegExp($array[2], '([0]{1}[0-9]{9})', 
1)
> > > > > If @error == 0 Then
> > > > > MsgBox(0, "Line number " & $line_number & " / Column 2 : 
> > KO", 
> > > > $array[2])
> > > > > EndIf
> > > > > 
> > > > > MsgBox(0, "Line number " & $line_number & " / Column 3 :",
> > > > > $array[3])
> > > > > $RegExResult = StringRegExp($array[3], '([0]{1}[0-9]{9})', 
1)
> > > > > If @error == 0 Then
> > > > > MsgBox(0, "Line number " & $line_number & " / Column 3 : 
> > KO", 
> > > > $array[3])
> > > > > EndIf
> > > > > 
> > > > > MsgBox(0, "Line number " & $line_number & " / Column 4 :",
> > > > > $array[4])
> > > > > $RegExResult = StringRegExp($array[4],
> > > > > '(^[A-Za-z0-9](([_\.\-]?[a-zA-Z0-9]+)*)@([A-Za-z0-9]+)
(([\.\-
> ]?
> > [a-
> > > > zA-Z0-9]+)
> > > > > *)\.([A-Za-z]{2,})$)', 1)
> > > > > If @error == 0 Then
> > > > > MsgBox(0, "Line number " & $line_number & " / Column 4 : 
> > KO", 
> > > > $array[4])
> > > > > EndIf
> > > > > 
> > > > > Wend
> > > > > 
> > > > > FileClose($file)
> > > > > 
> > > > > Any idea of what i missed ?
> > > > > 
> > > > > Thanks
> > > > > 
> > > > > Florent
> > > > >
> > > >
> > >
> > 
> > 
> > 
> >  
> > 
> > 
> > [Non-text portions of this message have been removed]
> >
>