.txt Auslesen

[TF-ART]

Hallo Community,


ich habe folgendes Problem in VISUAL BASIC [VB.NET]...


Wie bekomme ich das hin, das jede Zeile in einer .txt datei einzelnd ausgelesen wird ?

z.B. ich habe eine Textbox welche So aufgebaut ist


FORMAT: Benutzer : Passwort

1 : A
2 : B
3 : C

und 2 Textboxen. Die eine ist eine in der man den Nutzernamen eingibt, und in der anderen das Passwort. Wie bekomme ich das hin, das jede Zeile einzelnd abgefragt, und nicht gleich der ganze Text abgefragt wird, so das ich Nutzer und Passwort in einer .txt datei unterkommen lassen kann...


Und ich müsste noch wissen, wie man Zeichen ersetzt...

z.B. a ersetzen durch 1 und b ersetzen durch 2 und ich in einer Textbox ab eingebe und in der anderen 12 ausgegeben wird.

Währe seht nett, wenn Ihr mir da helfen könntet...






MfG
Turbo

[Taekwondo14]

Für like Bot ^^

[TF-ART]

nö, mit HTTPwebrequest keine Erfahrung

[Taekwondo14]

Genau wie ich ^^
Bin erst Anfänger musst noch schreiben
Ob vb.net
Oder visual c#

[TF-ART]

Danke für den Hinweis... Hinzugefügt


VB.NET




MfG
Turbo

[nkkk]

[adistoe]

Such mal nach StreamWriter
Ich denke, damit solltest du klarkommen, wenn ich dein Problem richtig verstanden habe

[Shawak]

Originally Posted by adistoe

Such mal nach StreamWriter
Ich denke, damit solltest du klarkommen, wenn ich dein Problem richtig verstanden habe

StreamReader wohl eher.

[Der4StoryMan]

C&P Code; versuche Ihn trotzdem zu verstehen:


Jede Zeile lesen:

Dim _TxtInhalt as new Richtextbox
Dim _LineA as String
Dim _LineB as String
Dim _LineC as String

_TxtInhalt.text = My.Computer.Filesystem.ReadAllText("Pfad zur Datei") 'zb; "C:\Programm1\Liste.txt"'


For each Line in _TxtInhalt.Lines
If Line.contains("A") then _LineA = Line
If Line.contains("B") then _LineB = Line
If Line.contains("C") then _LineC = Line
Next

'Jetzt hast du wenn eine Zeile in deiner TXT-Datei "A" enthält, die komplette Zeile in dem String _LineA'
'Und Wenn es "B" enthält, in dem String _LineB'
'usw.'

Zeichen durch andere ersetzen:

If _LineA.contains("A") then _LineA = _LineA.replace("A", "1")
'Falls In dem String _LineA der Buchstabe "A" vorkommt,  '
'wird dieser durch "1" ersetzt  '

Falls ich dir ein bisschen helfen konnte;
Thanks :b

[TF-ART]

Vielen Dank an alle Der4StoryMan hat mir aber am besten erklärt Thx

[qkuh]

Dim sr As StreamReader = New StreamReader("dateipfad")
Dim zeile As String = ""

While sr.Peek() <> -1
zeile = sr.ReadLine()
End While

sr.Close()

^ liest jede Zeile der Textdatei aus.

qkuh (qqdev)

[nkkk]

Originally Posted by qkuh

Dim sr As StreamReader = New StreamReader("dateipfad")
Dim zeile As String = ""

While sr.Peek() <> -1
zeile = sr.ReadLine()
End While

sr.Close()

^ liest jede Zeile der Textdatei aus.

qkuh (qqdev)

ja aber speichert sie immer in der selben variable sodass am ande nurnoch die letzte zeile in der variable steht.
edit:


naja ich poste auch mal einen code:

        'Der Pfad der Datei
        Dim filename = "C:\Users\nkkk\Desktop\Neues Textdokument (287).txt"
        'Den Sting den wir konvertieren wollen
        Dim input = "abccabc".ToUpper()
        'Ein Dictionary objekt das buchstaben auf die entsprachende zahl abbildet
        Dim dict = File.ReadAllLines(filename).[Select](Function(line) line.Split(":")).ToDictionary(Function(pair) pair(1), Function(pair) pair(0))
        'Der Überstzte string
        Dim outp = String.Concat((input.[Select](Function(c) dict(c))))
        'outp enthält letzt "1233123"

mit der txt datei:

1:A
2:B
3:C

wichtig ist das in der txt datei keine leerzeichen stehen dürfen.