Åbne filer

Hmmm.. Hvad med

richtextbox1.savefile("filename",filetype);

Det brude virke, og det er da vidst en del nemmere.

filetype er enten RTF eller PlainText hvis jeg husker rigtigt.

vil det sige at man også kan sige
richtextbox1.savefile("log.txt",rtfText);
og så henter den bare den fil som ligger i det bibliotek som applicationen ligger i ?

Noget i den stil...

Dit ovenstående eksempel er dog at gemme I en fil, og det er .savefile også.. Dog ville jeg bruge application.path (Eller er det application.apppath) og tilføje den til log.txt bare for en sikkerhedsskyld.

Hej.

For at åbne en fil i ét hug kan du skrive:

Open dinsti & "\filnavn.txt" For Input As #1
        richtextbox.Text = Input(FileLen(dinsti & "\filnavn.txt"), 1)
      Close #1

For at gemme tilsvarende:

Open dinsti & "\filnavn.txt" For Output As #1
    Print #1,  richtextbox.Text
Close #1

Det er også muligt at læse én linie ad gangen efter at have åbnet en fil for InPut.

Open dinsti & "\filnavn.txt" For Input As #1
  Do while EOF(1)= False   
    line input #1, var
    textbox.text = textbox.text & var
  Loop
Close #1 

Én linie er til næste VBCRLF  altså hårdt lineskift (Ascii(13) & Ascii(10)).

M.v.h.  Jørn

Eller når man nu bruger en richtextbox alligevel:

For at hente:
richtextbox1.LoadFile FileName

For at gemme i Plaintext:
RichTextBox1.SaveFile FileName, rtfText