VisBasic Excel: Gemme data fra textbox til en .txt-fil

Hejsa.
I stedet for: Open FilNavn For Input As #FilNummer
Hedder det output...altså: Open FilNavn For Output As #FilNummer.

Og i stedet for "Line Input #FilNummer" bruges "Print #Filnummer" for hver linje.

Jeg er ingen VB-haj, så du må prøve at rode lidt med det :D

det er jeg desværre heller ikke...

din løsning er ikke perfekt... noget mangler... jeg får i hvert fald en fejlmeddelelse...

Prøv at paste din kode herind.

Nå ja...og hvor får du fejl og hvad siger den?

Forresten...du kan heller ikke bruge "Loop Until EOF(FilNummer)" når du skriver til en fil. Du bliver nød til at bruge en anden tæller.
Eller undlade løkken hvis der kun skal skrives 1 linje.

Private Sub Command1_Click()
Dim FilNummer As Integer
Dim FilNavn As String
Dim Linje As String

'Unikt filnummer findes
FilNummer = FreeFile
FilNavn = "F:\VBTest.txt"

Open FilNavn For Output As #FilNummer
  Linje = Text1.Text
  Print #FilNummer, Linje
Close #FilNummer

End Sub

Følgende BURDE skrive indholdet af en tekstboks til en fil. Hvis multiline=true så tror jeg at den skriver til hver sin linje.
NB: det er ikke testet da jeg er på ferie.
Hvis det skal være fra en listbox bliver du nok nød til at bruge en løkke, med antallet af linjer i boksen som tæller.

Open FilNavn For Append As #1
  Print #1, "En tekst"
  Print #1, "Noget mere tekst"
Close #1

Append tilføjer i bunden af tekstfilen. Output nulstiller den hvergang du åbner den..

Og Filnavn kunne så f.eks. være:

Filnavn = app.path & "\tekstfil.txt"

Private Sub Command1_Click()
    FilNummer = FreeFile
    FilNavn = "P:\test.txt"

Open FilNavn For Output As #FilNummer
    Text1 = Text1.Text
    Write #FilNummer, Text1
    Text1.Text = ""
    Close #FilNummer
   
End Sub

hvis du laver en txt fil der heder test.txt
skulle denne virke
jeg har ikke prøvet din kasper_knaldperle

mvh

mvhansen

kasper_knaldperle
er beder den opretter selv en fil

mvh

mvhansen

mvhansen>

Det gør min kode nu også.

Filnavn = App.Path & "\filnavn.txt"

Open FilNavn For Append As #1
  Print #1, "En tekst"
  Print #1, "Noget mere tekst"
Close #1

ok jeg har ikke prøvet

mvh

mvhansen