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
705
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
- 891017
- 55722
Huonoja uutisia-nyt lähtee höyrylaivat
https://www.ita-savo.fi/ Konkurssiin meni tämäkin yritys. Raja kiinni ja venäläiset turistit puuttuvat. Täällä menee pe35604Ei näytä hyvältä
Kyllä nyt Ähtäriä viedään vesikelkalla. Neuvotteliat untuvikkoja kaikki. Mikko tietty tapansa mukaan loikki puheenjohtaj39536- 31469
Älä itke rakas.
Tunnen sun kyyneleet silmissäni. Kaikki tulee menemään hyvin. Loppu häämöttää jo...48458- 34447
Jos vielä toivot...mies...
Saisinpa jonkun merkin sinulta, jos vielä odotat 📝➡️📱 Rohkeus on mennyt jos seurustelet vaikka nykyisin. En halua häi41429Olet hurmaava
Olet paras mies, joka on tullut vastaan. Sinussa on jotakin, mitä muissa ei ole. En vaan tiedä, mikä on oikein sinun su14421Dina on valittu virkaan Rovaniemelle
Kemijärven kaupunginjohtaja on pyrkinyt pois Kemijärveltä ja näyttää että näin tulee käymään.25418