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
615
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 oli439708Kaivatullesi viesti ensi vuoteen?
Kerro meneekö naiselle vai miehelle ja vähintään yksi tunniste, esim. kirjain.1035117"Mä elän vieläkin"
Ikurin turbiini vetäisi taannoin lainabiisin Topin (RIP också) ja kumppaneiden kanssa. Toivottavasti on yläkerrassa kunn594337Pate Mustajärvi on kuollut
Ihan pari tuntia sitten. Että sellaista. https://www.is.fi/viihde/art-2000011715177.html1382897Yksityinen sektori aiheuttanut Suomen taantuman
Investointien sijasta nostaneet voitot osinkoina omistajille. Ehdotan korjausliikkeenä yksityisen sektorin sosialisoimi1372689Nyt Yle otti silmätikukseen sisäministeri Rantasen
Aivan erinomaista työtä tehnyt sisäministeri Mari Rantanen on saanut paljon aikaiseksi. Maahanmuuttoon ja maahanmuuttaji1762519Miten ikinä kelpaisin sulle
Sinä saat niiltä muilta naisilta paljon enemmän, mitä minulta... Tai mihin minä olisin valmis. Enkä edes olisi niin tait271907- 201667
Edes vitamiinit eivät taanneet loputonta elämää
Nimittäin niistä rahaa itselleen taikonut tohtori siirtyi tuonpuoleiseen.361550Älä nyt ainakaan pelkää
että enää yritän lähelle. Kyllähän toisen rajoja on kunnioitettava. Olen ymmärtänyt täysin, että en kiinnosta sillä tava72990