Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 15
  1. #1

    Modificare un file di testo

    Come da oggetto...

    Avrei la necessità di aprire un file .asp, aggiungere una riga in fondo,e richiuderlo..


    Qualcuno mi da un consiglio?

    Grazie mille!

  2. #2
    Utente di HTML.it L'avatar di fraude
    Registrato dal
    Feb 2004
    Messaggi
    2,870
    Temo di non aver capito... utilizzare l'oggetto FSO?
    codice:
    dim fs, f
    set fs = Server.CreateObject("Scripting.FileSystemObject")
    set f = fs.OpenTextFile(Server.MapPath("/public/tuapagina.asp"),8,true)
    f.WriteLine("quello che ti pare")
    f.Close
    set f = Nothing
    set fs = Nothing

  3. #3
    Si perfetto, scusa se non ero stato chiaro.

    E per cancellare invece l'ultima riga?

  4. #4
    i file di testo non possono essere modificati. va letto l'originale e riscritto (modificato) in un file temporaneo. poi si cancella l'originale e si rinomina il temporaneo.

  5. #5
    Originariamente inviato da optime
    i file di testo non possono essere modificati. va letto l'originale e riscritto (modificato) in un file temporaneo. poi si cancella l'originale e si rinomina il temporaneo.
    Si finquì non ci sono problemi...

    Ma come faccio a eliminira una riga?
    Ovvero a copiare il testo su un altro file senza copiare l'ultima riga?

    (x optime: adesso mi tiri fuori un array )

  6. #6

  7. #7
    Utente di HTML.it L'avatar di Luis33
    Registrato dal
    May 2003
    Messaggi
    975
    :maLOL: :maLOL: :maLOL:
    ... Sono graditi codes, esempi pratici, suggerimenti, consigli e critiche...
    "Ai posteri l'ardua sentenza..."
    Tante grazie
    Saluti
    Luis 33

  8. #8
    A parte gli scherzi...

    Mi sapete aiutare?

  9. #9
    Utente di HTML.it L'avatar di fraude
    Registrato dal
    Feb 2004
    Messaggi
    2,870
    Si ci vuole un array (mitico Optime)
    Forse questo?:
    codice:
    <%
    
    Dim objFileToRead, objFileToWrite, objFSO, strPathRead, strPathWrite
    strPathRead = Server.MapPath("alpha.txt")
    strPathWrite = Server.MapPath("beta.txt")
    
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objFileToRead = objFSO.OpenTextFile(strPathRead, 1)
    Set objFileToWrite = objFSO.OpenTextFile(strPathWrite, 2, True)
    
    Dim strTemp
    Do While Not objFileToRead.AtEndOfStream
      strTemp = objFileToRead.ReadLine
      If strTemp <> "" Then
        objFileToWrite.WriteLine(strTemp)
      End If
    Loop
    
    objFileToRead.Close
    objFileToWrite.Close
    Set objFileToRead = Nothing
    Set objFileToWrite = Nothing
    Set objFSO = Nothing
    
    Response.Write("finito")
    
    %>

  10. #10
    così skippi l'ultima? senza array?

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.