streng behandling

åben filen som Binary i stedet for og brug put istedet for write.

Måske såden her:

dim beholder as streng

beholder = chr(65)
open \"textfil\" for output as #1
write #1, beholder
close #1

Som en lille yderligere kommentar til mit svar kan jeg lige tilføje at du selv skal styre ny-linie osv, dvs i slutningen af hver linie du ønsker i filen skal du tilføje vbCrLf:

put #1, , vbCrLf

Ja, jeg kan da også lige lave et fikst og færdigt eksempel hvis du skulle være i tvivl om noget:

Private Sub Command1_Click()
\'Skriver teksten \"ab\" på linie 1 efterfulgt af \"c\" på linie to (uden anførselstegn)

Dim ch As String
Dim filename As String

filename = \"C:\\test.txt\"
Open filename For Binary As #1
ch = \"a\"
Put #1, , ch
ch = \"b\"
Put #1, , ch
Put #1, , vbCrLf
ch = \"c\"
Put #1, , ch
Close
End Sub

Tak for hjælpen, det er bare helt perfekt.

*lol*

Totalt besværlige måder ...


open \"textfil\" for output as #1
print #1, chr(65);
close #1

WRITE #[filehandle], content - skriver \"content\"
PRINT #[filehandle], content - skriver content

tdaugaard: bliver der ikke indsat vbCrLf efter hver Print? Det mener jeg - så hvis man vil skrive mere på samme linie har man et problem (indrømmet, det står ikke i oplægget)