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

502

    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. Vesikin maksaa, miksei hengitysilma?

      Jatkuvasti itketään ettei ole rahaa mihinkään, mutta tilastojen mukaan rahaa on enemmän kuin koskaan, joten miksei asial
      Maailman menoa
      29
      1899
    2. Satuolennoista tarinointi ei kuulu peruskoulun tehtäviin

      Opetustunteja on muutenkin käytössä vain rajallinen määrä. Eli nämä satuhommat koulun ulkopuolelle vapaaehtoisiin harras
      Maailman menoa
      165
      1880
    3. Suomalainen perheenisä vaatii Suvivirren esittämisestä hyvityksiä

      Itse lapsena uskonnonopetuksesta vissiin traumoja saanut ihka suomalainen (!) perheenisä vaatii Espoon kaupungilta korva
      Maailman menoa
      375
      1738
    4. Mies profiloin sinut

      Etsit täysin hallittavaa mutta samalla poikkeuksellista ihmistä. Etsit jotain mitä et koskaan tule saamaan.
      Ikävä
      216
      1238
    5. Lahkokasteen ja kristillisen kasteen erot

      Raamatun mukaan Kristillisessä yhdessä kasteessa Jumala pesee ja puhdistaa ihmisen sydämen ja poistaa perisynnin kirouks
      Kaste
      422
      1148
    6. Känsäkoura ja hotelli

      Tietoa kuka ostanut?
      Kuhmo
      12
      1121
    7. Heikki Paasosen Marita-vaimo jätti tunteikkaat jäähyväiset: "Tällä kertaa me..."

      Heikki Paasonen on naimisissa Marita Paasosen (os. Alatalo) kanssa ja heillä on kaksi pientä lasta. Nyt koitti aika jätt
      Suomalaiset julkkikset
      8
      1066
    8. Nostetaanko nainen kissa pöydälle?

      Ja selvitetään nämä tunteet?
      Ikävä
      87
      1040
    9. Salainen kastekoulutus

      Millainen on helluntailainen kastekoulutus ja kauanko se kestää ?
      Kaste
      285
      1025
    10. Pirkanlinna yleisötapahtuma

      Oli todella hyvä tilaisuus. Ja EERO. L. Aivan mahtava tyyppi. Veti rennosti ja asiallisesti. Ja yleisöltä hyviä kysymyks
      Ähtäri
      50
      1001
    Aihe