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
689
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
Sebastian Tynkkynen (pers.) ei vastusta raiskauksia
"Sebastian Tynkkynen oli ainoa 14 suomalaismepistä, joka vastusti uutta suostumuksen puuttumiseen perustuvaa raiskauslak1304646Purra jäi kiinni valehtelusta, Heinäluoma ei
Ja heti alkoi Purra joukkoineen maalittamaan Heinäluomaa. Niin toimii äärioikeistoa edustava putinistipersulauma, jonka703422Missä viipyy persujen lupaama euron bensa?
En edes muista milloin bensapumpussa olisi ollut ykkösellä alkava litrahinta. Missä siis viipyy persujen lupaama euron b161472- 931248
Alkuperäinen kristillinen kaste on uskoville annettava upotuskaste
Kreikan sana BAPTIZO merkitsee upottamista. Alkuseurakunta kastoi upottamalla Apostolien tekojen kirjan mukaan: Ap.t 2552959- 177912
Me, Suomen kansa, vaadimme Riikka Purraa jatkamaan valtiovarainministerinä!
Ja jollei valtiovarainministerinä, niin sitten pääministerinä. Purra on nostanut Suomen talouden nyt komeaan kasvuun Ma88866Pitäisikö naisen haluta "puolisomies"?
Toivottavasti saan nyt tämän idean purettua hyvin sanoiksi? Mutta tuossa eräässä aloituksessa tuli vastaan tälläinen tek156855- 59825
Miksi piti uhota naapuri Venäjälle ja tehdä itsestä heidän vihollinen?
https://www.iltalehti.fi/kotimaa/a/f0eee963-3605-47e6-9989-a21347ce7757 "Jos sota syttyy Suomessa, näin tapahtumat vois197792