Een TXT bestand aanmaken met VB.Net

[Danielxmovies]

Hallo,

Ik wil in mijn programmaatje maken dat als je op een button drukt dat er een txt file met tekst wordt gemaakt in een folder.

Kan iemand me alsjeblieft helpen?

 

[wampier]

Dim oFile as System.IO.File
Dim oWrite as System.IO.StreamWriter
oWrite = oFile.CreateText(“C:\voorbeeld.txt”)
oWrite.WriteLine(“hoi ik ben een regel text”)
oWrite.Close()

 

[JoZ1]

Of:

[CPP]Dim Writer As New IO.StreamWriter("Pad_Naar_Bestand",False)
Writer.WriteLine("Regel tekst")
Writer.Close()[/CPP]

 

[Danielxmovies]

Oke dan heb ik og een vraag,

Kan je bij een bestand manager zorgen dat je als je op een bestand klikt dat ej daar ziet je via vb kan zien wat er in het txt bestand zit

 

[JoZ1]

[CPP]Dim Reader As New IO.StreamReader("Pad_Naar_Bestand")
MsgBox(Reader.ReadToEnd)
Reader.Close()[/CPP]

 

[Danielxmovies]

Dat doet het niet Ik zal eveneen screenshot nemen:

Kijk in bovenste box is de bestand manager.

Daar onder zie je een textbox En ik wil dat als je op eenbestand klikt in die manager dat je de tekst dat daaar in zit daaronder ziet

Kan dit?

 

[JoZ1]

Vreemd, die code zou gewoon moeten werken (mits goed geplaatst).

Kun je je huidige code even plaatsen?

 

[Danielxmovies]

Hier

[CPP]Public Class Form5

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim FlderBrwse As New WebBrowser
Panel1.Controls.Add(FlderBrwse)
FlderBrwse.Dock = DockStyle.Fill
CType(Panel1.Controls.Item(0), WebBrowser).Navigate("C:\Users\Public\Users")
Dim Reader As New IO.StreamReader("C:\Users\Public\Users")
MsgBox(Reader.ReadToEnd)
Reader.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
CType(Panel1.Controls.Item(0), WebBrowser).GoBack()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CType(Panel1.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
CType(Panel1.Controls.Item(0), WebBrowser).GoForward()
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objwriter As New System.IO.StreamWriter("C:\Users\Public\Users\hello.txt")
objwriter.Write(RichTextBox1.Text)
objwriter.Close()
End Sub
End Class[/CPP]

 

[JoZ1]

2 fouten:

• Je moet een pad opgeven, met een bestandsnaam dus;
• Je moet de tekst van de RichTextBox aanpassen.

Dat hoort er dan zo uit te zien:
[CPP]Dim Reader As New IO.StreamReader("C:\Users\Public\Users\test.txt")
RichTextBox1.Text=Reader.ReadToEnd
Reader.Close()[/CPP]

 

[Danielxmovies]

Maar kan het niet als je in de panel iets aanklikt dat het dan opent in de Richtextbox.

Nu moet je een bestand opgeven ik wil dat die degene pakt die je aanklikt,

Kan dit?

 

[ReneDirks]

Je code bij Button 4 klopt sowieso niet, je hebt twee eventhandlers gekoppeld aan button1 en geen aan button4:

Private Sub Button4_Click(...) Handles [B]Button1[/B].Click

Het zou de duidelijk ten goede komen als je de knoppen namen gaf die wat meer beschrijvend waren, bijvoorbeeld btnOpen, btnBack, btnForward

 

[Danielxmovies]

Ja maar dat maakt me niet uit.

Ik wil gewoon dat ie werkt. Hoeft niet simpeler te worden ofso

 

[JoZ1]

Waar is het pad naar het bestand te vinden? In die ListView?

 

[Danielxmovies]

Hoezo?

Ik kan anders wel programma sturen?

Maar je ziet daar zo'n panel en daaronder een richtextbox en kan het als je op het bestand in de panel klikt het niet opent in word ofso maar je de tekst onderin ziet in de richtextbox

 

[JoZ1]

Ik snap het, maar je hebt een pad naar het bestand nodig om deze te lezen. Kun je niet nog een SubItem toevoegen met de directory waar het instaat?

 

[Danielxmovies]

Ik snap het niet?

Ja een pad maar kan dat pad niet zijn waar je op klikt en ziet in de Panel.

Subitem>?

 

[JoZ1]

Nee. Stel:

Je hebt het volgende bestand:

C:\Users\Helpmij\Documents\test.txt

En jij beschikt alleen over deze informatie:

test.txt

Dan kun je daar dus niets mee. Daarom stelde ik voor om een apart SubItem met de Directory te plaatsen. Dus in dit geval met:

C:\Users\Helpmij\Documents\

Snap je me?

 

[Danielxmovies]

Een beetje

Zal ik anders projecft sturen

 

[JoZ1]

Is goed. Post hier de link maar.

 

[Danielxmovies]

Ow sorry verkeerd KLik hier