Private Sub Text2_KeyPress(KeyAscii As Integer) Dim sBeskrivelse As String sBeskrivelse = Text2 If KeyAscii = KeyCodeConstants.vbKeyReturn Then List.ListItems.Add , , sBeskrivelse
Har lige fedtet en mulig løsning sammen, har forsøgt og skrive lidt kommentarer til koden, men du er velkommen til og sprøge ind til den. Jeg har været nødt til og gå ud fra at et mellemrum i tekst filen betyder en ny kolonne i listviewet.
Dim fso As FileSystemObject Dim ts As Scripting.TextStream Dim item As ListItem Dim data() As String Dim i As Integer Dim bHeader As Boolean
'Bruger reference til "Microsoft Scripting Runtime" Set fso = New Scripting.FileSystemObject Set ts = fso.OpenTextFile("C:\Fil.txt") 'Filens placering
bHeader = False
With ListView1 ListView1.View = lvwReport
While Not ts.AtEndOfStream 'Læser en linie i tekst filen, går ud fra at mellemrum betyder ny kolonne 'Indlæser linie i et array data() = Split(ts.ReadLine, " ", , vbTextCompare)
'Vi er nødt til og indsætte nogle kolonner 'Dette gør vi kun en gang, da vi ellers får for mange If Not bHeader Then For i = LBound(data) To UBound(data) ListView1.ColumnHeaders.Add , , "Kolonne " & i + 1 Next bHeader = True End If
If UBound(data) > 0 Then 'Indlæser data Set item = ListView1.ListItems.Add For i = LBound(data) To UBound(data) If i = 0 Then item.Text = data(i) Else item.SubItems(i) = data(i) End If Next End If Wend End With
ja, der er kun et item og en kommentar i hver linie (der er lidt større mellemrum, men det har jeg rettet i splitten), så hvad jeg gerne vil have er at der kommer til at stå
ja, nu er jeg også forvirret...hvis jeg ikke remmer den ud kommer der en runtime error 380 fejl (ivalid property value), hvis jeg så remmer det ud står det fint. kører jeg appl igen...ja så kommer der kun noget i første kollone!.....prette wheird! :-)
Har du ændret den del af koden der sætter kolonnerne ind, for det kunne det tyde på, den fejl du får kommer når den prøver og sætte noget ind i en kolonne som ikke er blevet oprettet i listviewet, der er altså for lidt kolonner i forhold til det data den vil sætte ind?
Nope, antallet af linier har ikke noget med kolonnerne at gøre, det der er afgørende for kolonnerne er hvor meget der står i den 1. linie i tekstfilen. Den er bestemmende for hvor mange kolonner resten af linierne må have. Det store while loop kører jo en gang pr. linie i tekstfilen, men for løkkerne køres det antal gange som den har regnet sig ud til at der skal være kolonner.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.