Textzeilen Permutation / VB.Net

[br00_pwn]

heyho zusammen,

möchte ne permutation aus mehreren txt dateien machen, sprich die zeilen kombinieren. hat da jemand vielleicht nen beispielcode, weiss nicht genau wie ich vorgehen soll.

danke im vorraus..

[Sawyer]

    Sub Main()
        Dim Pfad As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Dim Datei1 As String = Pfad & "\Text1.txt", Datei2 As String = Pfad & "\text2.txt"

        Dim sw As New System.IO.StreamWriter(Pfad & "\NeueDatei.txt")
        sw.Write(DateiLesen(Datei1))
        sw.Write(ControlChars.CrLf)
        sw.Write(DateiLesen(Datei2))
        sw.Flush()
        sw.Close()
    End Sub

    Private Function DateiLesen(ByVal DateiPfad As String) As String
        Dim sr As New System.IO.StreamReader(DateiPfad)
        Dim Daten As String = sr.ReadToEnd()
        sr.Close()

        Return Daten
    End Function

Hab mal auf Basis dessen was ich aus der Frage interpretiert habe , mal eine kleine Funktion mit Aufrufbeispiel geschrieben , allerdings wusste ich nicht ob das ganze dynamisch sein soll , aber ich hoffe es ist das was du dir vorgestellt hast.

MfG

[br00_pwn]

super klasse das hilft mir aber mal 100% weiter...

mein gedanke lag darin, ich habe 4 txt datein, jeweils mit 20 wörtern, jedes wort in einer eigenen zeile..dann möchte ich jegliche möglichkeit bestimmen und diese wiederrum in einer txt speichern...
also die 4 wörter aus den vier verschiedenen txtdatein ..zusammen als string speichern und dann wieder in eine txt schreiben...sprich alle möglichkeiten..

edit: naja nicht umbedingt 20 wörter, sagen wir unbegrenzt wörter..

[inmate]

meinse so ?

Dim sreader = New StreamReader("C:\bla.txt").ReadToEnd
        Dim sreader2 = New StreamReader("C:\xxx.txt").ReadToEnd
        Dim sreader3 = New StreamReader("C:\LOL.txt").ReadToEnd
        Dim sreader4 = New StreamReader("C:\blubb.txt").ReadToEnd

        Dim swriter As New StreamWriter("C:\x.txt")
        swriter.Write(sreader & vbCrLf)

        swriter.Write(sreader2 & vbCrLf)
        swriter.Write(sreader3 & vbCrLf)
        swriter.Write(sreader4)
        swriter.Close()

dieser code liest 4 textdateien aus und packt ihre inhalte in eine.

[br00_pwn]

nein...ok stell dir vor du hast 2 textdateien...in der einen stehen vornamen und in der anderen nachnamen, jetzt möchte du alle möglichkeiten herausfinden, wie man diese zusammenfügen kann...

txt1 ----------- txt2

susanne ------ wagner
peter----------- meier
werner--------- schneder
... ...

jetzt halt jegliche möglichkeit herausfinden
wernermeier,wernerschneider, wernerwagner, peterschneider, peterwagner...usw

[Sawyer]

Und wie willst du deinem Programm bitte beibringen , Namen und vornahmen zu unterscheiden ?

Das ginge nur wenn Zeichen zwischen den Namen vorhanden wären , oder wenn du jedes Wort auslesen lässt , und Zeichen für Zeichen durchgehst , und prüfst ob sich daraus bereits ein Name oder vornahme bilden lässt

Dann müsste allerdings eine Datenbank mit möglichst vielen Namen und Vornahmen vorhanden sein
Zumindest fällt mir das gerade ein zur lösung dieses Problems

MfG

[br00_pwn]

nein vornamen befinden sich in txt1 und nachnamen in txt2...also ich beziehe aus 2textdatein...also immer eine zeile ein "wort"
sprich... zeile1(txt1) + zeile1(txt2)
............zeile1(txt1) + zeile2(txt2)
............usw...


mom ich mach eben mal ein bild in ps..um es deutlich zu zeigen, was ich vorhab..

[inout]

Meinst du sowas?

Dim sr1 As new streamreader("file1")
Dim sr2 As New StreamReader("file2")
Dim s() As String = split(sr1.ReadToEnd,vbcrlf)
Dim t() As String = split(sr2.ReadToEnd,vbcrlf)
sr1.Close()
sr2.Close()
For Each u As String In s
  For Each v As String In t
    Messagebox.Show(u+" "+v)
  Next
Next

[ungetestet und nur geeignet für eher kleine Dateien, da die Dateien komplett in den Speicher geschrieben werden. Ansonsten mit ReadLine() arbeiten.]


Die Ausgabe wieder in eine Datei zu schreiben bekommst du denke ich mal selber hin.

[IRET]

Lade eine Datei und splitte sie in Arrays und dann mit der nächsten usw.
und dann musst sie ja nur mehr zusammen setzen.
am besten mit for each

Hoffe das is eine gute Idee^^

[br00_pwn]

also hier mal ein bild wie ich es mir denke...
http://www.bilder-space.de/show.php?...kAar8oiNDl.jpg

also werden 4 txt dateien benötigt, in denen jeweils das passende steht..
nun sollen alle möglichkeiten aus den 4 txt herausgefunden werden, sprich kommt immer eine mail addy raus...diese wird dann anschliessend auf gültigkeit getestet und weiterverarbeitet also bedeutet es...wenn txt1 1000 vornamen hat, txt2 4 sonderzeichen , txt3 1000 nachnamen und txt4 10 mailanbieter...dann sollte das programm über 2 millionen email addy ausspucken so ist mein gedanke...diese werden sicherlich dann auf gültigkeit getestet, über smtp versand... und die kombination aus vorname .-_nachname@irgendwas.?? gibts fast alle