tiedoston alkuun kirjoittaminen

minä

eli mulla on tän näkönen koodi jolla kirjotan tiedostoon:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(tiedosto.txt, 8, True)
objFile.Write "tekstiä"
objFile.WriteLine ""
objFile.Close

Eli tuossa on vain se ongelma että kun seuraavan kerran kirjoittaa tiedostoon niin se tulee seuraavalle riville. Mutta haluaisin että seuraava teksti mikä kirjoitetaan, tulisi ylemmälle riville kuin se aikaisempi. Eli vanhempi teksti siirtyisi yhden rivin alemmas ja uusi teksti tulisi ylimmälle riville. Mitenkäs tällainen oikein onnistuu?

2

410

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • it-duunari

      Ei onnistu ilman aputiedostoa.

      Eli:
      1. Nimeä alkuperäinen toiselle nimelle (esim. FileSystemObject.GetTempName() )
      2. Tee aputiedosto, jonka nimeksi laitat alkuperäisen tiedoston nimen
      3. Kirjoita uusi rivi aputiedostoon
      4. Kopioi alkuperäisen tiedoston sisältö aputiedoston perään.
      5. Poista alkuperäinen

      Kopiointi onnistuu esim. näin:

      option explicit

      const FSO_FOR_READING = 1
      const FSO_FOR_WRITING = 2
      const FSO_FOR_APPENDING = 8

      dim fso
      dim fin
      dim fout

      set fso = server.createobject("scripting.filesystemobject")
      set fin = fso.opentextfile("vanha.txt", FSO_FOR_READING)
      set fout = fso.opentextfile("uusi.txt", FSO_FOR_APPENDING)
      fout.write fin.readall
      fin.close
      fout.close
      set fso = nothing

      Toinen vaihtoehto on käyttää komentorivityökaluja ja shell.run():ia, mutta se ajautuu saitin IWAM_tunnuksen oikeuksilla, jotka eivät välttämättä riitä tiedostojen käsittelyyn.

      • minä

        Eli siis asp:ssä ei ole sellaista write systeemiä joka palauttais kursorin aina tekstitiedoston alkuun kirjoittamisen jälkeen? PHP:ssä tällainen muistaakseni oli, mutta piti tyytä asp:iin kun ei tueta php:tä :/


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Miehille kysymys

      Onko näin, että jos miestä kiinnostaa tarpeeksi niin hän kyllä ottaa vaikka riskin pakeista ja osoittaa sen kiinnostukse
      Tunteet
      132
      3787
    2. Miksi kaivattusi on

      erityinen? ❤️‍🔥
      Ikävä
      85
      1885
    3. Olen tosi outo....

      Päättelen palstajuttujen perusteella mitä mieltä minun kaipauksen kohde minusta on. Joskus kuvittelen tänne selkeitä tap
      Ikävä
      15
      1731
    4. Haluaisin jo

      Myöntää nämä tunteet sinulle face to face. En uskalla vain nolata itseäni enää. Enkä pysty elämäänkin näiden kanssa jos
      Ikävä
      54
      1402
    5. Ylen uutiset Haapaveden yt:stä.

      Olipas kamalaa luettavaa kaupungin irtisanomisista. Työttömiä lisää 10 tai enempikin( Mieluskylän opettajat). Muuttavat
      Haapavesi
      123
      1264
    6. VENÄJÄ muuttanut tänään ydinasetroktiinia

      Venäjän presidentti Vladimir Putin hyväksyi tiistaina päivitetyn ydinasedoktriinin, kertoo uutistoimisto Reuters. Sen mu
      Maailman menoa
      95
      1251
    7. Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornosta

      https://www.kymensanomat.fi/paikalliset/8081054 Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornon hallussapi
      Kotka
      35
      1209
    8. Nainen olet valoni pimeässä

      valaiset tietäni tietämättäsi ❤️
      Ikävä
      69
      1134
    9. Mitä toivot

      Tulevilta päiviltä?
      Ikävä
      68
      1014
    10. Hommaatko kinkkua jouluksi?

      Itse tein pakastimeen n. 3Kg:n murekkeen sienillä ja juustokuorrutuksella. Voihan se olla, että jonkun pienen, valmiin k
      Sinkut
      102
      985
    Aihe