Bestimmte Stellen "herausfiltern" aus zeilen

[Artarex]

Ja ich hoffe erstmal die Section passt, wenn nicht bitte verschieben
Mein Problem Ich habe folgenden Text der von aufbau in jeder Zeiler gleich ist
Beispiel:
Benutzername dann kommt dahinter die E-Mail, Dann ein Zahlen code und dahinter nochmal das Passwort
z.b
Hallowelt::8388389389282:dieistdaspassw ord
Dieser Aufbau ist in jeder Zeile gleich. lediglich die Länge ist immer logischer Weiße anderster. Jede Passage wird mit einen Doppelpunkt abgetrennt.
Ich möchte aber nur den Zahlencode und dass Password rausfiltern.
Am besten ist es wenn es dann eine Textdatei wäre.
Danke.
Bei den oberen Beispiel sollte dann in der Textdatei das so drinne stehen:
8388389389282:diesistdaspassword

[.exTremez™]

Leider schreibst du in deinem Post nicht, in welcher Sprache du damit hilfe brauchst...


Ich gebe dir mal den Source für VB.NET der Code ist schon auf deinen Fall angepasst.

PHP Code:

        Dim ausgabe As String = ""
        Dim dateiname As String = "PFAD ZUR .TXT"
        Dim fs As FileStream = New FileStream( _
        dateiname, FileMode.OpenOrCreate, _
        FileAccess.ReadWrite)
        Dim r As StreamReader = New StreamReader(fs)
        r.BaseStream.Seek(0, SeekOrigin.Begin)
        While r.Peek() > -1
            Dim zeile() As String = r.ReadLine.Split(":")
            ausgabe &= zeile(2) & ":" & zeile(3) & vbNewLine
        End While
        r.Close()
        fs.Close()
        msgbox(ausgabe) 


[Artarex]

Originally Posted by .exTremez™

Leider schreibst du in deinem Post nicht, in welcher Sprache du damit hilfe brauchst...


Ich gebe dir mal den Source für VB.NET der Code ist schon auf deinen Fall angepasst.

PHP Code:

        Dim ausgabe As String = ""
        Dim dateiname As String = "PFAD ZUR .TXT"
        Dim fs As FileStream = New FileStream( _
        dateiname, FileMode.OpenOrCreate, _
        FileAccess.ReadWrite)
        Dim r As StreamReader = New StreamReader(fs)
        r.BaseStream.Seek(0, SeekOrigin.Begin)
        While r.Peek() > -1
            Dim zeile() As String = r.ReadLine.Split(":")
            ausgabe &= zeile(2) & ":" & zeile(3) & vbNewLine
        End While
        r.Close()
        fs.Close()
        msgbox(ausgabe) 


hallo. Mein Thema wurde verschoben, dadurch hatte ich nichts angegeben .
Ich werde es auf jedenfall mal testen. Am besten wäre wohl für mein Verständniss Autoit, was aber nicht zwingend ist. (Wäre dann andere Section)
Ich werde dann ein edit machen obs geht.
Danke Schonmal.

[.exTremez™]

Naja wenn du VB.Net aufm pc hast und es mit dem code compilen tust
wird es funzen ^^ ich teste meine codes ja vorher xD

[Artarex]

Originally Posted by .exTremez™

Naja wenn du VB.Net aufm pc hast und es mit dem code compilen tust
wird es funzen ^^ ich teste meine codes ja vorher xD

Joa ich bin grade am downloaden von visual basic 2008. Habe auch 2009 und 2010 finde da aber nur c# und c++
Kenne mich mit VB am wenigsten aus
wenn es noch einen anderen "Editor" für vb-net gibt nehme ich den
Mal testen ob skiTE VB unterstützt.

Ok Danke kann geclosed werden geht.

[.exTremez™]

Soll ichs dir einfach compilen und dir uploaden?

[Artarex]

Originally Posted by .exTremez™

Soll ichs dir einfach compilen und dir uploaden?

Hat sich erledigt, da ichs hinbekommen habe. Danke dir vielmals.

[.exTremez™]

Ok
Kein Problem