Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB.NET: Tiedoston tallennus @ VB 2008

Short Php [10.03.2008 17:48:41]

#

Eli miten sen teksti- tekstikentässä olevan tekstin saisi tallennettua siihen haluttuun tiedostoon -_- Olen kokeillut allaolevaa mutta on kai tarkoitettu VB 6:selle O_o

Open CommonDialog.FileName For Output As #1
Print #1, Text1.Text
Close #1

K_L [10.03.2008 20:18:03]

#

Terve,

Tutkipa tuota System.IO nimiavaruutta http://msdn2.microsoft.com/en-us/library/system.io.aspx

Pikainen vinkki tuohon kysymykseesi.

Laita projektiisi Textbox1- ja SaveFileDialog1-komponentit.

'Virtamme tiedostoon
Dim sw As System.IO.StreamWriter
'Tiedoston polku
Dim path As String
'Dialogi
SaveFileDialog1.ShowDialog()
'Lieneen selvää mitä tässä tapahtuu
path = SaveFileDialog1.FileName
'Luodaan instanssi streamwriter luokkaan joka tarvitsee parametrina polun
sw = New System.IO.StreamWriter(path)
'Kirjoittaa yhden rivin
sw.WriteLine(textbox1.text)
'Muistetaan sulkea mitä on avattu
sw.Close()

neau33 [10.03.2008 20:42:59]

#

Heippa Short Php!

tässä toinen tapa...

Imports System.Windows.Forms
'...
  saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
  saveFileDialog1.FilterIndex = 2
  saveFileDialog1.RestoreDirectory = True
  If saveFileDialog1.ShowDialog() = DialogResult.OK Then
    FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
    Print(1, TextBox1.Text)
    FileClose(1)
  End If

Short Php [11.03.2008 15:20:03]

#

Kiitos paljon! Vielä haluttaisi tietää miten allaolevaan koodiin liitetään sellainen ominaisuus, että se kirjoittaisi tiedoston (.txt) sisällön kenttään. Vieläkin ohjelmana vb 2008.

EDIT: Kokeilen K_L:n mainitsemaa sivustoa, ja löysin StreamReader funktion, mutta miten allaolevan saisi täyttämään tekstikentän mainitun tiedoston tekstillä.

avaamisdialog1.Title = "Avaa tiedosto"
avaamisdialog1.Filter = "Tekstitiedostot (*.txt)|*.txt|Kaikki tiedostot (*.*)|*.*"
avaamisdialog1.ShowDialog()
Dim sr As StreamReader = New StreamReader(avaamisdialog1.FileName)

EDIT 2: Sain jotenkuten toimimaan

avaamisdialog1.Title = "Avaa tiedosto"
avaamisdialog1.Filter = "Tekstitiedostot (*.txt)|*.txt|Kaikki tiedostot (*.*)|*.*"
avaamisdialog1.ShowDialog()
Dim sr As StreamReader = New StreamReader(avaamisdialog1.FileName)
tb1.Text = ""
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
    line = sr.ReadLine()
    tb1.Text += line & vbCrLf
Loop Until line Is Nothing
sr.Close()

neau33 [11.03.2008 16:42:44]

#

Heippa tass Short Php!

avaaminen...

Imports System.Windows.Forms
'...
  openFileDialog1.Filter = _
  "Tekstitiedostot (*.txt)|*.txt|Kaikki tiedostot (*.*)|*.*"
  openFileDialog1.FilterIndex = 1
  openFileDialog1.RestoreDirectory = True
  If openFileDialog1.ShowDialog() = DialogResult.OK Then
    FileOpen(1, openFileDialog1.FileName, OpenMode.Input)
    textBox1.Text = InputString(1, LOF(1))
    FileClose(1)
  End If

Short Php [11.03.2008 17:36:10]

#

Heh. Tiedsin että joku löytää edellistä paremman ratkaisun. Kiitos erittäin paljon. Apu tuli tarpeeseen :)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta