Hvordan åpne og lagre txt filer.

[MemorY]

Jeg driver å lager min egen notepad nå. Og da må man kunne åpne txt filer.

Jeg har denne koden fra før:

Private Sub mny_open_Click(Index As Integer)
   CommonDialog1.CancelError = True
   On Error GoTo BrukerAvbrøt
   CommonDialog1.Filter = "Alle filer (*.*)|*.*| Tekst filer (*.txt) |*.txt"
   CommonDialog1.FilterIndex = 2
   CommonDialog1.ShowOpen
   txt_hoved = CommonDialog1.
BrukerAvbrøt:
   Exit Sub
End Sub

men den bare åpner en txt fil og jeg vil at innholdet skal bli vist i en textbox.

Kode på hvordan man lagrer til en fil tas også i mot med takk.

 

PS VB 6.0 hvis noen lurer.

Endret 14. februar 2006 av rkg1000

[Harald Staff]

Private Sub Btn1_Click()
'READ TXT
Dim Lest As String
Dim lFileLength As Long
Dim iFileNum As Integer
iFileNum = FreeFile
Open "C:\Temp\Super.txt" For Input Shared As iFileNum
lFileLength = LOF(iFileNum)
Lest = Input(lFileLength, #iFileNum)
Close iFileNum
Me.Txt1.Text = Lest
End Sub


Private Sub Btn2_Click()
'WRITE TXT
Dim iFileNum As Integer
iFileNum = FreeFile
Open "C:\Temp\Written.txt" For Output As iFileNum
Print #iFileNum, Txt1.Text
Close iFileNum
End Sub

HTH. Beste hilsen Harald

[.com]

leste i vb boka om åpning av filer, og skulle prøve ut det som sto der, men får feilmelding om at strFileName ikke er "declared", noen som ser feil i koden?

   Public Class frmDialogs
       Inherits System.Windows.Forms.Form
       Private strFileName As String = "C:\Temp\Text Document.txt"
   End Class
________________________________________________________________

   Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
       With OpenFileDialog1
           .Filter = "Text files (*.txt)|*.txt|All files (.)|*.*"
           .FilterIndex = 1
           .InitialDirectory = "C:\Temp\"
           .Title = "Åpne"
       End With

       If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
           strFileName = OpenFileDialog1.FileName
           Dim objReader As StreamReader = New StreamReader(strFileName)
           RTxtBox.Text = objReader.ReadToEnd()
           objReader.Close()
           objReader = Nothing
       End If
   End Sub

Endret 17. februar 2006 av .com

[Harald Staff]

Javisst. strFileName er ikke declared, hvilket feilmeldingen forteller deg. Dermed mangler du

Dim strFileName as String

-hvilket innrømmet ikke er fullt så åpenbart. Men dette går litt utover hva en forumposting kan ta mål av seg på å lære bort. Les og pugg:

 

http://www.pixel2life.com/twodded/t_vb6_va...now_about_them/

 

HTH. Beste hilsen Harald

[ze5400]

Hehe, det var dagens beste!

[.com]

jaja

rart det ikke stod i det tjukke visual basic "leksikonet" da...

[Harald Staff]

Særdeles rart. Hvilket leksikon har du skaffet deg ?. Nå er det mye manglende deklarering i eksemplene på MSDN også, så ikke vær lei deg.

 

Det er gode grunner til å deklarere skikkelig: Editoren gir deg hjelpsomme relevante feilmeldinger, koden blir raskere og tar mindre plass, du får vaner som gjør at du kan lære og forstå andre programmeringsspråk uten store omstillingsproblemer. Og du blir klokere.

 

VB6 er en liberal dame, hun kjører nærmest alt uten protester om du fjerner "option explicit" fra modulene. Jeg anbefaler ikke den løsningen, resultatet er gjerne oppblåst kode, ubegripelige problemer og ingen hjelp til å løse dem. Variabler er vel anvendt tid.

 

Beste hilsen Harald

 

(Dagens beste ? Det var dagens eneste. Av alle døde fora er denne nesten i særstilling død )

[.com]

bruker vb 2005 express edition, den boka heter visual basic.NET, en relativt tjukk rød bok, med bilde av noen programmerere foran og bak, norsk versjon