Hejsan allesammans!
Använder nedanstående "formel" för att spara till en fil, men vbCrLf som bryter raden bryter raden även den sista gången så att markören kommer längre ner och då strular det till sig med att nästa gång jag startar programmet och skall spara går det inte. Men om jag öppnar textfilen och sätter markören längst ner och tar backåtknappen och sparar så går det bra. Hur gör man för att få väck den sista radbrytningen när programmet sparar till fil??

Dim strList As String ''''Sparar fil
Dim I As Long
Kill App.Path & "\textbok.txt"
Open App.Path & "\textbok.txt" For Output As #1
For I = 0 To List1.ListCount - 1
List1.ListIndex = I
strList = strList & List1.Text & vbCrLf < denna vbCrLf menar jag
Next I
Print #1, strList
Close #1

I detta fall kan du göra det enkelt för dig. Du vet att vbCrLf är 2 tecken lång. Ta då bort dessa från slutet innan du skriver:

<code>
Dim strList As String ''''Sparar fil
Dim I As Long
Kill App.Path & "\textbok.txt"
Open App.Path & "\textbok.txt" For Output As #1
For I = 0 To List1.ListCount - 1
List1.ListIndex = I
strList = strList & List1.Text & vbCrLf < denna vbCrLf menar jag
Next I

' Tar bort sista vbCrLf
strList = Left(strList, Len(strList) - 2)

Print #1, strList
Close #1
</code>

Tackar Pelle det var det som saknades.

Kan ju vara så att Print lägger till en rabrytning. Men om inte så borde denna koden funka. Desutom är den lite bättre.
<code>
Dim Data() As String
Dim I As Long
ReDim Data(0 To List1.ListCount - 1)
For I = 0 To List1.ListCount - 1
Data(I) = List1.List(I)
Next
Kill App.Path & "\textbok.txt"
Open App.Path & "\textbok.txt" For Output As #1
Print #1, Join(Data, vbCrLf)
Close #1
</code>

Redim tar kraft skippa det.

OptimerarJocke där.

/peter.h.

Hur skulle du lösa det då?

Det tar mycket mer kraft att lägga till mer text till en sträng, alltså:
strText = strText & "Min lilla text här"

så det så :)

/Egget

Det är därför Join() funktionen är mer effektiv.