Laad tekst uit txtfile in textbox

Status
Niet open voor verdere reacties.

senna98

Gebruiker
Lid geworden
14 jun 2011
Berichten
47
Weeral een vraagje over Visual Basic :)
Ik heb 1 textbox en 1 button, en als je op die button klikt, wordt de tekst in de textbox naar een txt bestand geschreven. Onder button 1 heb ik de code:

Code:
Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem. _
        OpenTextFileWriter(mfileName, True)
        file.WriteLine(TextBox1.Text)
        file.Close()

Onder public class form1 heb ik:

Const mfileName As String = "C:\Users\...\Documents\test.txt"

Nu wil ik dat wanneer je het programma opent, de tekst uit het txt bestand automatisch in de textbox wordt geladen...

Hoe doe ik dit?

Groeten, senna98 :p
 
Laatst bewerkt door een moderator:
Uit de losse hand (schrijf C# dus zou niet erg lijken of vb.net maar doe me best)
Code:
If (file.exists(mfileName)) then
 File.writealltext(mfilename, Textbox1.Text
end if
 
Laatst bewerkt door een moderator:
@wicherh: 't Zal toch echt zoiets moeten worden ;)

[cpp]Dim reader As New IO.StreamReader(mfileName)
TextBox1.Text = reader.ReadToEnd
reader.Close()[/cpp]
 
En hoe kan ik nu nog een knop maken waardoor het hele txt bestand leeg gemaakt wordt?
 
Gebruik dan deze code:

[cpp]Dim writer As New IO.StreamWriter("Pad")
writer.Write("")
writer.Close()[/cpp]

Nu wordt je TXT overschreven met een leeg bestand. :)
 
Ik heb onder public class form1:

Code:
Const mfileName As String = "C:\Users\...\Documents\test.txt"

Als ik wil dat het txt bestand geschreven wordt in de map van het exe'tje, had ik deze code:

Code:
Const mfileName As String = Application.StartupPath & "blabla\iets.txt"

Dit blijkt niet te werken, wat moet ik eraan veranderen? :o

Greets, senna98 :d
 
Je kan constantes niet veranderen. Ze zijn "constant". Gebruik gewoon Dim.
 
Volgens mij zo:

Code:
Const mfileName As String = Application.StartupPath & "[B][COLOR="red"]\[/COLOR][/B]blabla\iets.txt"
 
Of beter nog:

Code:
Dim mfileName As String = Application.StartupPath & "\blabla\iets.txt"

Dan kun je 'm nog veranderen.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan