Email Adressen Filtern und einsortieren

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von [Blu].

    Email Adressen Filtern und einsortieren

    Hi,
    ich habe eine Große mysql datenbank mit mehreren seiten im aufbau

    312 username blablabla email@provider.ltd 1 blablabla 0

    312 username blablabla email@provider.ltd 1 blablabla 0
    312 username blablabla email@provider.ltd 1 blablabla 0
    312 username blablabla email@provider.ltd 1 blablabla 0

    usw. dies erstreckt sich auf mehrere seiten.
    Meine frage ist währe es möglich ein programm zu machen wo ich zb auf seite [1] (auf der website) klicke und dann einen button ind der VB form welches JEDE email im text dokument ausließt?

    Meine paint skizze:




    Grabbutton soll alles aus webbrowser1 grabben was im formt email@provider.ltd ist bzw Maxmustermann@gmx.de


    Bitte nicht gleich kritik an meinen mangelnden vb kenntnissen ausdrücken :P

    [blu]

    Hi danke für deine antwort ich kann den regex thread auch für zukünftige dinge sehr gut gebrauchen! :)

    Einziges problem ich habe versucht den code



    Dim Input As String = TextBox1.Text
    Dim Res() As String
    ListBox1.Items.Clear()






    Res = Regex.Split(Input, "[a-zA-Z0-9|a-zA-Z0-9\.]+\@[a-zA-Z0-9|a-zA-Z0-9\-]+\.[com|de|net|mu]+", RegexOptions.IgnoreCase)
    For Each el As String In Res
    ListBox1.Items.Add(el.ToString)
    Next



    alles rauszufiltern außer die emails, aber leider filtert er die emails raus und nicht das was weg soll :P
    nun habe ich probiert den code irgentwie rumzuwerfen dass es andersrum geht aber anscheinend ist es einfach zu spät oder ich bin zu dumm dafür ^^

    naja ich möchte wie gesagt aus ganz viel text die emails raus
    LG

    (sorry vb tags gehen bei mir nie wirklich :wacko: )

    myregextester.com/

    das dingens is so nett und spuck dir sogar den code aus^^

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Raw Match Pattern:
    3. [a-zA-Z0-9|a-zA-Z0-9\.]+\@[a-zA-Z0-9|a-zA-Z0-9\-]+\.[com|de|net|mu|ldt]+
    7. VB.NET Code Example:
    9. Imports System.Text.RegularExpressions
    11. Module Module1
    13. Sub Main()
    15. Dim sourcestring as String = "replace with your source string"
    17. Dim re As Regex = New Regex("[a-zA-Z0-9|a-zA-Z0-9\.]+\@[a-zA-Z0-9|a-zA-Z0-9\-]+\.[com|de|net|mu|ldt]+")
    19. Dim mc as MatchCollection = re.Matches(sourcestring)
    21. Dim mIdx as Integer = 0
    23. For each m as Match in mc
    25. For groupIdx As Integer = 0 To m.Groups.Count - 1
    27. Console.WriteLine("[{0}][{1}] = {2}", mIdx, re.GetGroupNames(groupIdx), m.Groups(groupIdx).Value)
    29. Next
    31. mIdx=mIdx+1
    33. Next
    35. End Sub
    37. End Module
    41. Matches Found:
    43. [0][0] = email@provider.ltd
    45. [1][0] = email@provider.ltd
    47. [2][0] = email@provider.ltd
    49. [3][0] = email@provider.ltd

    Ich will nicht nur datenbanken grabben sondern ein programm schreiben was nach keywords auf meiner eigenen seite sucht und deren emails ausliehst!
    LG


    //Edit
    wenn ich folgenden code nutze

    VB.NET-Quellcode

    1. Dim sourcestring As String = TextBox1.Text
    2. Dim re As Regex = New Regex("[a-zA-Z0-9|a-zA-Z0-9\.]+\@[a-zA-Z0-9|a-zA-Z0-9\-]+\.[com|de|net|mu|ldt]+")
    5. Dim mc As MatchCollection = re.Matches(sourcestring)
    7. Dim mIdx As Integer = 0
    9. For Each m As Match In mc
    11. For groupIdx As Integer = 0 To m.Groups.Count - 1
    12. Grabbm.ListBox1.Items.Add(mIdx, re.GetGroupNames(groupIdx), m.Groups(groupIdx).Value)
    14. Next
    17. mIdx = mIdx + 1
    19. Next


    krieg ich einen fehler wegen zu vielen argumenten!
    grabbm ist hierbei die form in der sich die listbox befindet!

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „[Blu]“ ()

    sollte so gehen, habs aber nicht getestet


    edith verrät auch warum:

    du versuchst beim hinzufügen zur listbox 3 argumente zu übergeben mIdx
    re.GetGroupNames(groupIdx)
    m.Groups(groupIdx).Value

    und was will listbox.items.add haben? kommste selbst drauf oder?^^



    VB.NET-Quellcode

    1. Dim sourcestring As String = TextBox1.Text
    2. Dim re As Regex = New Regex("[a-zA-Z0-9|a-zA-Z0-9\.]+\@[a-zA-Z0-9|a-zA-Z0-9\-]+\.[com|de|net|mu|ldt]+") 'ob du dieses ldt brauchst weil ich ned, habs zum testen reingeschmissen
    5. Dim mc As MatchCollection = re.Matches(sourcestring)
    7. For Each m As Match In mc
    9. For groupIdx As Integer = 0 To m.Groups.Count - 1
    10. Grabbm.ListBox1.Items.Add(m.Groups(0).Value)
    12. Next
    14. Next

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „joschi240“ ()

    Leider gehts immer noch nicht :(
    Es wird ein leeres item zur listbox hinzugefügt

    ich adde euch mal meinen source falls ihr vorschläge oder das selbe problem habt, oder euch einfach nur für interessiert :)

    ~[blu]
    Dateien

    • GrabMail.zip

      (61,81 kB, 175 mal heruntergeladen, zuletzt: )

Facebook