🚀 go-pugleaf

A ja bym zrobił funkcje wczytywania tak (u mnie przynajmniej dziala i nie
jestem pewien czy dokladnie o to Ci chodzi)

Dim Zdanie
Open "lol.txt" For Input As #2
Do Until EOF(2)
Line Input #2, Zdanie
Text1.Text = Text1.Text & Zdanie & vbCrLf
Loop
Close #2

wczytuje wszystkie linie pokolei dopolki sie plik nie skonczy. A do linni na
koncu dodaje enter. Jakos bardziej prosty sposob to dla mnie.
(text1.text powinien miec ustawiona funkcje "Multiline = True")


Marcin Miga wrote :

> 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"
>