Aus Texdatei : User:Pass einlesen Visual Basic Forum

1User:1Pass
2User:2Pass
3User:3Pass
... Nun möchtest du diese auslesen?
Das machst du dann wie folgt:

In deine Form schreibst du:
Visual Basic: [code]
Private Sub Command1_Click()
Dim F As Integer
Dim Var As String
Dim Trash() As String

'Erst einmal den ListView erstellen
With ListView1
.GridLines = True
.View = lvwReport
.ColumnHeaders.Add , , "User", Int(.Width / 5)
.ColumnHeaders.Add , , "Pass", Int(.Width / 5)
End With

F = FreeFile
Open App.Path & "Deine.txt" For Input As F
'Nun fangen wir eine Schleife an.
While Not EOF(F)
'Die Zeile wurde komplett in die
'Variable Var geschrieben.
Line Input #F, Var
'Nun müssen wir den Momentanen Inhalt
'von Var Splitten
Trash = Split(Var, ":")
'In eine neue ListView Zeile einfügen
For i = 1 To FileLineCount(App.Path & "Deine.txt")
With ListView1
.ListItems.Add i, , Trash(0)
.ListItems(i).SubItems(1) = Trash(1)
End With
Next i
Wend
Close F
End Sub
[/code]

Und in ein Externes Modul schreibst du:
Visual Basic: [code]
Public Function FileLineCount(ByVal sFile As String) As Long
Dim F As Integer
Dim sLine As String
Dim nCount As Long

' Datei sequentiell öffnen und zeilenweise auslesen
F = FreeFile
Open sFile For Input As #F
While Not EOF(F)
Line Input #F, sLine
nCount = nCount + 1
Wend
Close #F

FileLineCount = nCount
End Function
[/code]

Wenn du das bei einer Textbox machen willst kannst du dir das Modul schenken und machst dann in der i-Schleife einfach statt
Visual Basic: [code]FileLineCount(App.Path & "Deine.txt")[/code]
einfach die Anzahl der Zeilen deiner Textbox Wink

.
Natürlich kannst du dir dann auch das ganze Open und While Not EOF schenken Very Happy

	Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Tags: einlesen, user

	Aufrufe	Letzter Beitrag

[suche] Tuturials winsock & daten senden	869	09.06.2011, 12:19
Post/Get Daten senden	609	02.06.2007, 15:01
Daten an meine Homepage senden	841	26.05.2007, 20:11
VB daten kompilieren?	724	23.04.2007, 13:34
Daten in einen Ordner schreiben	808	25.03.2007, 13:12

[ Time: 0.3696s ][ Queries: 117 (0.0295s) ][ GZIP on - Debug on ]

Verfasst am: 12.09.2008, 21:31

(elek´tro:nik;8268) Visual Basic: [code] Var = Split(TextString, ":") With Listview1 .ColumnHeaders.Add , , "User", Int(.Width / 5) .ColumnHeaders.Add , , "Pass", Int(.Width / 5) .ListItems.Add 1, , Var(0) .ListItems(1).SubItems(1) = Var(1) End With [/code]

Verfasst am: 12.09.2008, 21:45

(regenz11;8326) Aber wenn man es so verwendet, bekomme ich z.b. bei einer Multiline Textbox bzw. Textdatei, in der steht ("username:passwort username2:passwort2), z.b. username:passwortusername2passwort2 raus^^ Wäre gut, wenn du dafür auch noch eine Lösung hättest

Verfasst am: 13.09.2008, 10:04

Meinst du in der Text datei oder im Programm? _________________

Verfasst am: 13.09.2008, 10:38

(regenz11;8346) Meinst du in der Text datei oder im Programm?