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

384

    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. Millä voin

      Hyvittää kaiken?
      Ikävä
      96
      2605
    2. Jotain puuttuu

      Kun en sinua näe. Et ehkä arvaisi, mutta olen arka kuin alaston koivu lehtiä vailla, talven jäljiltä, kun ajattelen sinu
      Ikävä
      101
      2223
    3. Haluan sut

      Haluatko sinä vielä mut?
      Ikävä
      84
      1927
    4. Hei A, osaatko

      sanoa, miksi olet ihan yhtäkkiä ilmestynyt kaveriehdotuksiini Facebookissa? Mitähän kaikkea Facebook tietää mitä minä en
      Ikävä
      44
      1661
    5. Ampuminen Iisalmessa

      Älytöntä on tämä maailman meno.
      Iisalmi
      11
      1655
    6. Haluaisin aidosti jo luovuttaa ja unohtaa

      Ei tästä mitään tule koskaan.
      Ikävä
      78
      1616
    7. Pohjola kadulla paukuteltu

      Iltasanomissa juttua.
      Iisalmi
      35
      1589
    8. 89
      1530
    9. Synnittömänä syntyminen

      Helluntailaisperäisillä lahkoilla on Raamatunvastainen harhausko että ihminen syntyy synnittömänä.
      Helluntailaisuus
      116
      1403
    10. Mitä tämä tarkoittaa,

      että näkyy vain viimevuotisia? Kirjoitin muutama tunti sitten viestin, onko se häipynyt avaruuteen?
      Ikävä
      41
      1264
    Aihe