.txt Auslesen

11/01/2012 20:09 TF-ART#1
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


Code:
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
11/01/2012 20:12 Taekwondo14#2
Für like Bot ^^
11/01/2012 20:14 TF-ART#3
nö, mit HTTPwebrequest keine Erfahrung
11/01/2012 20:17 Taekwondo14#4
Genau wie ich ^^
Bin erst Anfänger musst noch schreiben
Ob vb.net
Oder visual c#
11/01/2012 20:21 TF-ART#5
Danke für den Hinweis... Hinzugefügt ;)


VB.NET




MfG
Turbo
11/01/2012 22:39 nkkk#6
[Only registered and activated users can see links. Click Here To Register...]
11/03/2012 14:31 adistoe#7
Such mal nach StreamWriter
Ich denke, damit solltest du klarkommen, wenn ich dein Problem richtig verstanden habe :)
11/03/2012 15:35 Shawak#8
Quote:
Originally Posted by adistoe View Post
Such mal nach StreamWriter
Ich denke, damit solltest du klarkommen, wenn ich dein Problem richtig verstanden habe :)
StreamReader wohl eher.
11/03/2012 15:37 Der4StoryMan#9
C&P Code; versuche Ihn trotzdem zu verstehen:


Jede Zeile lesen:
Code:
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:
Code:
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
11/03/2012 22:04 TF-ART#10
Vielen Dank an alle :) Der4StoryMan hat mir aber am besten erklärt :) ;) Thx
11/04/2012 02:05 qkuh#11
Code:
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)
11/04/2012 03:01 nkkk#12
Quote:
Originally Posted by qkuh View Post
Code:
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:
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:
Code:
1:A
2:B
3:C
wichtig ist das in der txt datei keine leerzeichen stehen dürfen.