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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.