open System

open System.Text.RegularExpressions

​

​

​

let (|Regex|_|) pattern input =

    let m = Regex.Match(input, pattern) in

    if m.Success then Some(List.tail [ for g in m.Groups -> g.Value ])

    else None

let rec printlist l =

    match l with

    |[] -> ()

    | str::tl -> 

        if str = "" then 

             printfn "result: Vide" 

             printlist tl

        else

             printfn "result: %s" str

             printlist tl

​

let phone = "(555) 555-5555"

​

​

// Test with phone:

match phone with

    | Regex @"\(([0-9]{3})\)[-. ]?([0-9]{3})[-. ]?([0-9]{4})" [ area; prefix; suffix ]-> 

                                     printfn "Area: %s, Prefix: %s, Suffix: %s" area prefix suffix

    |_ -> printfn "Not OK"

​

//Fonction qui applique une regex sur chaque mot (utile pour les addresses):

let matchwordsplit(address: string, pattern, param) = 

    let splitmot = address.Split(' ')

    //Fonction utilitaire qui matche les mots à la regex en argument: 

    let regexmatch(mot, pattern) =

        match mot with

        |Regex pattern result -> result.Head

        |_ -> ""

    let listmatchregex = splitmot |> Array.map (fun mot -> regexmatch(mot, pattern)) |> List.ofArray

    //Fonction utilitaire qui retourne un string option

    let accmot(acc,mot)=

        match mot with 

        |"" -> None

        |_ -> 

            let newacc = mot

            Some(newacc)

    //On retrouve seulement les mots et on retourne le dernier    

    let listmot = listmatchregex |> List.choose( fun mot -> accmot("",mot))

    if listmot.Length >=1 then

        match param with

            |"last" ->   [listmot.Item(listmot.Length - 1)]

            |"all" -> listmot

            |"first" -> [listmot.Item(0)]

            |_ -> []

    else

        []

​

​

​

//Fonction qui applique une regex sur chaque mot (utile pour les addresses):

let matchwords(input: string, pattern) = 

    //Fonction utilitaire qui matche les mots à la regex en argument: 

    let regexmatch(mot, pattern) =

        match mot with

        |Regex pattern result -> result

        |_ -> []

    regexmatch(input, pattern)

​

​

let l = matchwordsplit("Edouard moureaux1203 (PO) (ER) (FRANCE)",@"(\w+\b)\)","all")

printlist l

​

let catchemail = matchwords("'rez f edouard2.moureaux@gmail.com (FRANCE)", @"(\w+\.?\w+@\w+\.\w{2,})")

printlist catchemail

​

let catchtel = matchwords("03.02-40.6363", @"(\d{2})?\.?\s?(\d{2})?.?\s?(\d{2}).?\s?(\d{2}).?\s?(\d{2}).?\s?(\d{2}).?\s?(\d{2})")

printlist catchtel

​

let catchsalutation = matchwords("Mr. Edouard Moureaux Suite", @"(Mr\s|Mr.\s|M\s|Mme\s)?(\w+\s)?(\w+\b)\s?(\w+\b)?")

printlist catchsalutation

​