Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

SubItem
Autor: Luigi
Datum: 25.01.05 21:03
Hallo, ich lese eine Textdatei ein mit nachfolgendem Code. Wie ist das Subitemproblem zu lösen. Das Programm VB6 meldet immer ungültigen Eigenschaftswert Wie muss ich da formulieren,dass die Spalten richtig gesetzt werden. Kann mir jemand die richtige Formulierung oder den richtigen Tipp geben. Private Sub Command1_Click() Dim S As String Dim SP() As String Dim i As Long Dim LItem As ListItem ListView1.View = 3 'lvwReport i = 1 Open App.Path & "\dat1.txt" For Input As #1 Do While Not EOF(1) Line Input #1, S If InStr(1, S, "|") <> 0 Then SP = Split(S, "|", , vbTextCompare) Set LItem = ListView1.ListItems.Add(, , SP(0)) LItem.SubItems(i) = SP(1) i = i + 1 End If Loop Close #1 End Sub Danke im Voraus Ludwig

SubItem	750	Luigi	25.01.05 21:03
Re: SubItem	490	RalfH	26.01.05 15:23
Re: SubItem	467	Luigi	28.01.05 20:12
Re: SubItem	509	mst547	30.01.05 01:30
Re: SubItem	491	Luigi	30.01.05 15:25
Re: SubItem	489	mst547	30.01.05 16:30
Re: SubItem	503	Luigi	30.01.05 17:15
Re: SubItem	494	jens52	30.01.05 17:35
Re: SubItem	507	mst547	30.01.05 17:38
Re: SubItem	484	devnull	30.01.05 17:34
Re: SubItem	461	Luigi	30.01.05 21:24
Re: SubItem	493	mst547	30.01.05 22:05

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