tallennus juttu

miteén?

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ää?

1

577

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      87
      1863
    2. Perusmuotoiset TV-lähetykset loppu

      Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia
      Apua aloittelijalle
      157
      1331
    3. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      68
      1141
    4. No ei sun asunto eikä mikään

      muukaan sussa ole erikoista. 🤣 köyhä 🤣
      Ikävä
      65
      1012
    5. Hyvin. Ikävää nainen,

      Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan
      Ikävä
      82
      941
    6. Uskomaton tekninen vaaliliitto poimii rusinoita pullasta

      Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli
      Pyhäjärvi
      87
      862
    7. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      128
      850
    8. Linnasuolla poliisi operaatio

      Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/8646060
      Imatra
      29
      836
    9. Katsoin mies itseäni rehellisesti peiliin

      Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.
      Ikävä
      47
      827
    10. Mitä mietit Honey?

      Kulta nainen ❤️❤️
      Ikävä
      57
      810
    Aihe