15. marts 2003 - 09:22Der er
2 kommentarer og 1 løsning
Skriv til fil uden linieskift
Hej eksperter
Jeg har følgende:
Open cdl_dialog.FileName For Output As #1 For i = 0 To lst_data.ListCount - 2 Step 1 If i = 0 Then Print #1, lst_data.List(i) Else Print #1, "," & lst_data.List(i) End If Next i Close #1
Prøv at lave strengen først og så 'printe' den til filen: For i = 0 To lst_data.ListCount - 2 Step 1 If i = 0 Then Print #1, lst_data.List(i) Else str = str & lst_data.List(i) & "," End If Next i og så print #1, str
For i = 0 To lst_data.ListCount - 2 Step 1 If i = 0 Then str = lst_data.List(i) Else str = str & lst_data.List(i) & "," End If Next i og så print #1, str
Synes godt om
Ny brugerNybegynder
Din løsning...
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.