Miten vois tehä, niin että ku pistää ohjelmaan textboxin ja commandin, nii minkälaisen koodauksen pistän että se tallentaa sen minkä on textboxiin kirjottanut.
eli teen textboxin ja commandin ja ku painaa commandista, nii se mitä on kirjottanut textboxiin tallentuu ja sen tallennetun tiedoston voi avata ohjelmasta!
minkälainen koodaus tollaseen pitäs pistää?
tallennus juttu
1
612
Vastaukset
- VeeBee
Oletan että käytät VB2005:sta.
Tässä luku ja kirjoitus funktiot. Kerro jos tarvitset apua niiden käyttämisessä?
Public Function ReadFromFile(ByVal FilePath As String) As String
'Declare any variables
Dim myFileStream As New System.IO.FileStream(FilePath, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Read, System.IO.FileShare.ReadWrite)
'Create the StreamReader and associate the filestream with it
Dim myReader As New System.IO.StreamReader(myFileStream)
'Read the entire text, and set it to a string
Dim sFileContents As String = myReader.ReadToEnd()
'Close everything when you are finished
myReader.Close() : myFileStream.Close()
Return sFileContents
End Function
Public Sub WriteToFile(ByVal TextToWrite As String, ByVal FilePath As String)
'Ensure that the target does not exist.
System.IO.File.Delete(FilePath)
'Declare those variables!
Dim sFileName As String = FilePath
Dim myFileStream As New System.IO.FileStream(sFileName, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write, System.IO.FileShare.ReadWrite)
'Create the stream writer
Dim myWriter As New System.IO.StreamWriter(myFileStream)
'Write in the text
myWriter.Write(TextToWrite)
'Flush before we close
myWriter.Flush()
'Close everything
myWriter.Close(): myFileStream.Close()
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suomen markka otettiin käyttöön vuonna 1860
Suomi käytti vuoteen 1840 asti rahayksikkönään rinnakkain Ruotsin riikintaalareita ja Venäjän ruplaa. Tämän jälkeen oli209144"Mä elän vieläkin"
Ikurin turbiini vetäisi taannoin lainabiisin Topin (RIP också) ja kumppaneiden kanssa. Toivottavasti on yläkerrassa kunn253622Yksityinen sektori aiheuttanut Suomen taantuman
Investointien sijasta nostaneet voitot osinkoina omistajille. Ehdotan korjausliikkeenä yksityisen sektorin sosialisoimi432194Pate Mustajärvi on kuollut
Ihan pari tuntia sitten. Että sellaista. https://www.is.fi/viihde/art-2000011715177.html921952Kylläpä asiat onkin nyt hyvin verrattuna Sannan aikaan
Sannan aikana aähkön alv oli 10%, nyt 25,5%. Ajatelkaa nytkin pörssisähkö on ilmaista, keskellä talvea! Bensan hinta on131842Miten ikinä kelpaisin sulle
Sinä saat niiltä muilta naisilta paljon enemmän, mitä minulta... Tai mihin minä olisin valmis. Enkä edes olisi niin tait121445Edes vitamiinit eivät taanneet loputonta elämää
Nimittäin niistä rahaa itselleen taikonut tohtori siirtyi tuonpuoleiseen.241288- 711167
Esko ja Martina viettävät joulua
Entisen avioparin joulunvietto on ylittänyt IS uutiskynnyksen168836- 66804