Hvordan lagre tekst filer i VB 2005?

[.com]

ok, har så vidt begynt å lage en liten notepad, men har ikke peiling på hva slags kode jeg trenger for å lagre det som står i en rich text box, hva slags kode trenger jeg?

 

bruker visual basic 2005 express edition

 

btw, hvordan få flere linjer i en MsgBox?

Endret 14. februar 2006 av .com

[ze5400]

Imports System.IO

 

Dim Writer As New StreamWriter("Dittfilnavn.txt")

Writer.Writeline("Linjen som skal skrives, denne må kalles for hver linje, kodene under skal først kalles når du er ferdig med å skrive linjer")

Writer.Flush()

Writer.Close()

[.com]

skjønte ikke det helt, litt forklaring om hvordan koden fungerer mottas med takk

[Gjakmarrja]

Imports System.IO

 

Dim Writer As New StreamWriter("Dittfilnavn.txt")

Writer.Writeline("Linjen som skal skrives, denne må kalles for hver linje, kodene under skal først kalles når du er ferdig med å skrive linjer")

Writer.Flush()

Writer.Close()

5606032[/snapback]

 

Imports System.IO 'denne går på toppene

 

Dim Writer As New StreamWriter("Dittfilnavn.txt") 'husk filnavn pluss hele lissom plasseringen.

 

Writer.Writeline("Linjen som skal skrives, denne må kalles for hver linje, kodene under skal først kalles når du er ferdig med å skrive linjer")

'de han sier er du må lage en loop eller for next eller en for each loop så du kan kjøre den biten likte med likt antall linjer du har i programmet... skjønner?

 

Writer.Flush() 'tømmer

Writer.Close() 'stenger

[.com]

tror jeg skjønner, men får syntax error på imports system.IO

[Gjakmarrja]

tror jeg skjønner, men får syntax error på imports system.IO

5606446[/snapback]

 

Heeelt øverst.. Over public class?

[.com]

ok, helt øverst ja, da var det greit, men kan du fikse eksempelet over så det lagrer en fil på skrivebordet?

[Gjakmarrja]

ok, helt øverst ja, da var det greit, men kan du fikse eksempelet over så det lagrer en fil på skrivebordet?

5606527[/snapback]

 

Dette er testa og funker:

 

Imports System.IO
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       SF1.Filter = "Som txt fil|*.txt"
       SF1.ShowDialog()
   End Sub

   Private Sub SF1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SF1.FileOk
       savefile(SF1.FileName)
   End Sub
   Public Sub savefile(ByVal adress As String)
       Dim Writer As New StreamWriter(adress)
       Dim i As Integer = 0
       For i = 0 To RT1.Lines.LongLength - 1
           Writer.WriteLine(RT1.Lines(i))
       Next
       Writer.Flush()
       Writer.Close()
   End Sub
End Class

 

Ligg til følgene kontroller på formet:

Riktextbox ved navn RT1

Savefiledialog ved navn SF1

En knapp ved navn button1

[Gjakmarrja]

Kan alltids kommentere koden og laste opp hele prosjektet viss du hadde noen problemer?

 

Svein

[Gjakmarrja]

btw, hvordan få flere linjer i en MsgBox?

5605840[/snapback]

 

Veldig enkelt gjør følgene der lissom innholde i boksen er.. ikke i tittel ikke i utseende men jah den første.. :

 

"linje1" & vbnewline & "linje2 & vbnewline & "linje3"

Endret 14. februar 2006 av chills

[ze5400]

Det går også an å bruke vbCr

[.com]

Takker chills, nå funker det!!

ze5400, vbCr?

[ze5400]

Skal ikke garentere det; men er ganske sikker på at du kan bruke vbCr isteden for vbnewline, mulig det var vbCr(10) husker ikke helt.

 

 

Edit: vbCr virka fett det!

Endret 15. februar 2006 av ze5400

[Moskus]

vbCr og VbNewLine er egentlig for VB6.0, og vil nok fases ut etterhvert. Jeg ville gått over til "Controlchars.NewLine" (og her har du en del andre valg, som "ControlChars.Tab" og så videre).

[ze5400]

Det var kjekt å vite moskus, synd om vbCr fases ut da, det er jo mye kortere enn Controlchars.NewLine...

[Moskus]

Nei, det er kjapt å skrive. Skriv "contr" og trykk punktum og skriv "ne" og trykk f.eks. tab.

[oyvind_b]

Du bruker VB 2005, da kan du rett og slett skrive dette:

 

File.WriteAllText("minfil.txt", tekst)

eller

File.WriteAllLines("minfil.txt", arrayAvLinjer)

 

Bruk også heller Environment.NewLine for linjeskift, da blir det riktig utfra miljøet ditt.

 

Øyvind

Endret 16. februar 2006 av oyvind_b

[Moskus]

GENIALT!

Endelig har Microsoft gjort noe for dette!

Finnes File.ReadallWhatever også?

[oyvind_b]

Jepp i tillegg til File.AppendAllWhatever

 

http://msdn2.microsoft.com/en-us/library/3...8eh(VS.80).aspx

 

Øyvind

[Moskus]

Hjertelig takk! Her har det skjedd ting siden .NET 2003. Og det har gått den rette veien!