🚀 go-pugleaf

Bombardier wrote:

> Witam
> 
> mam problem z zawartosci textboxa do pliku
> 
> zapisuje Print #1, txtTresc
> 
> wczytuje Line input #1, txtTresc
> 
> wczytuje mi juz bez enterow ciagiem caly tekst
> 
> 
> jak to zrobic ?

Wczytuje ci bez enterów, bo czytasz linię po linii. Musiałbyś sobie po
każdej linii dokleić enter (vbCRLF).
Albo zrobić tak:
zapis:
Dim intFile&
Const FILE As String = "d:\test.txt"

intFile = FreeFile()

Open FILE For Output As #intFile
Print #intFile, Text1.Text
Close #intFile

odczyt:
Dim intFile&
Dim strFile$
Const FILE As String = "d:\test.txt"

intFile = FreeFile()

Open FILE For Input As #intFile
strFile = Input(LOF(intFile), #intFile)
Close #intFile
Text1.Text = strFile

pozdrawiaMM
-- 
Marcin M. Miga
"More matter with less art"