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

427

    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. Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa

      En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod
      Ikävä
      33
      7074
    2. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      38
      6474
    3. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      29
      3544
    4. Ei tämä etene ikinä

      Kun kumpikaan ei enää ota yhteyttä. Mä en ainakaan uskalla.
      Ikävä
      45
      3100
    5. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      34
      2744
    6. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      16
      2462
    7. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      2198
    8. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      16
      2086
    9. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

      Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
      Suomalaiset julkkikset
      48
      1957
    10. Koko ajan olet

      Senkin suhteen kiusannut. Halut on ihan mielettömät olleet jo pitkään
      Ikävä
      34
      1810
    Aihe