Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ListBox in Spalten ausgeben
Autor: karl-heinz kruse
Datum: 26.02.03 08:39
Hallo Andy Erst einmal vielen Dank für deine Bemühungen. Leider klappt das noch nicht. Ich lese die Zeile aus der Datei in eine Stringvariable ein und teile sie dann in 4 Strings, mit eigenen Namen. Auch die Funktion "split " kann ich in VB5 leider nicht verwenden. (Ich muß hier mit VB5 arbeiten, da nur hierfür Lizenzen vorhanden sind) Hier mein Code zur Ausgabe in einem Listenfeld: ----------------------------------------------------------------------------------------------------------------------- Private Sub Form_Load() Dim i As Integer, klasse As String Dim eintrag As String, pfad As String Dim dateiname As String, flag As String ' Ein Dateiobjekt erzeugen Set FSO = New FileSystemObject ' Liste bereinigen List1.Clear ' Benutzermeldung If Not FSO.FileExists(lw & "Daten.dbf") Then If MsgBox(" Es sind keine Daten vorhanden" _ & vbCrLf & "Das Programm kann nicht ausgeführt werden !", vbOKOnly, "Meldung") = vbOK Then Abbrechen_Click End If Else ' Datei zum lesen öffnen Open (lw & "Daten.dbf") For Input As #1 ' Alle Einträge in der Liste 1 aufnehmen While Not EOF(1) Input #1, eintrag$ ' Lesen des Eintrages ' Teilen des Strings in Pfad, Klasse, Dateiname und Flag pfad = Trim(Left(eintrag, InStr(1, eintrag, "|") - 1)) klasse = Mid(pfad, InStr(4, pfad, "\") + 1) If Right(eintrag, 1) = "a" Then dateiname = Trim(Mid(eintrag, InStr(1, eintrag, "|") _ + 1, Len(eintrag) - 2 - InStr(1, eintrag, "|"))) flag = "Ja" Else dateiname = Trim(Mid(eintrag, InStr(1, eintrag, "|") _ + 1, Len(eintrag) - 4 - InStr(1, eintrag, "|"))) flag = "Nein" End If ' Ausgabe in der Liste 1 List1.AddItem klasse & vbTab & dateiname & vbTab & vbTab & flag Wend ' Datei schließen Close #1 End If End Sub ----------------------------------------------------------------------------------------------------------------------- Auch die Einstellung der Spalten, im Eigenschaftsfenster, hab ich nicht gefunden. Vielleicht hast du ja noch eine Idee, um mir zu helfen. Vielen Dank im vorraus Gruß Karl-Heinz

ListBox in Spalten ausgeben	708	karl-heinz kruse	25.02.03 13:14
Re: ListBox in Spalten ausgeben	373	AndySafe	25.02.03 17:28
Re: ListBox in Spalten ausgeben	364	karl-heinz kruse	26.02.03 08:39
Re: ListBox in Spalten ausgeben	376	Brian	26.02.03 09:16
Re: ListBox in Spalten ausgeben	342	karl-heinz kruse	26.02.03 09:55

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen