Martijntje
Gebruiker
- Lid geworden
- 3 okt 2004
- Berichten
- 48
Ik gebruik de volgende code om mijn listview op te slaan in een bestand:
Dim a() As String
Dim itemcount As Integer
Dim i As Integer
itemcount = lstCode.ListItems.Count
For i = 1 To itemcount
ReDim Preserve a(i) As String
a(i) = lstCode.ListItems(i).Text
Next i
Open "index.htm" For Output As #1
For i = 1 To itemcount
Write #1, a(i)
Next i
Close #1
Hij slaat wel op, maar hij plaatst elke regel in het htm-bestand tussen " " en dat bevordert, op z'n zachtst gezegd, niet echt de weergave van de opgeslagen htm...
Ligt dat probleem in dit stukje code? In de listview staan de html-coderegels namelijk niet tussen aanhalingstekens...
Als ik na het opslaan het bestand weer open in de listview, staan de " " er wel weer in uiteraard... Dat moet niet...
Anyone?
Thanx,
Martijn
Dim a() As String
Dim itemcount As Integer
Dim i As Integer
itemcount = lstCode.ListItems.Count
For i = 1 To itemcount
ReDim Preserve a(i) As String
a(i) = lstCode.ListItems(i).Text
Next i
Open "index.htm" For Output As #1
For i = 1 To itemcount
Write #1, a(i)
Next i
Close #1
Hij slaat wel op, maar hij plaatst elke regel in het htm-bestand tussen " " en dat bevordert, op z'n zachtst gezegd, niet echt de weergave van de opgeslagen htm...
Ligt dat probleem in dit stukje code? In de listview staan de html-coderegels namelijk niet tussen aanhalingstekens...
Als ik na het opslaan het bestand weer open in de listview, staan de " " er wel weer in uiteraard... Dat moet niet...
Anyone?
Thanx,
Martijn
