Visualizzazione dei risultati da 1 a 5 su 5
  1. #1

    Sondaggi con file di testo

    Sto cercando di creare delle pagine ASP con cui poter creare in poco tempo e facilmente un sondaggio che si avvale di un file di testo. Il problema č che quando apro i file di testo scritti appare questo:
    codice:
    ’žo
    Il codice che uso:
    codice:
    dim fs,f,fnew,fname
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set fname=fs.CreateTextFile(server.mappath("sondage/" & nome & ".txt"), ForWriting, true)
    
    riga = "opt1=" & opt1 & "&vot1=0&opt2=" & opt2 & "&vot2=0&opt3=" & opt3 & "&vot3=0&opt4=" & opt4 & "&vot4=0&opt5=" & opt5 & "&vot5=0&opt6=" & opt6 & "&vot6=0&opt7=" & opt7 & "&vot7=0&opt8=" & opt8 & "&vot8=0"
    fname.WriteLine riga
    
    set fnew=nothing
    set fname=nothing
    set fs=nothing

  2. #2

  3. #3
    codice:
    Metodo CreateTextFile
    Crea il nome di file specificato e restituisce un oggetto TextStream che č possibile utilizzare per leggere dal file o per scrivere sul file.
    
    oggetto.CreateTextFile(nomefile[, sovrascrittura[, unicode]])
    
    Argomenti
    oggetto
    
    Obbligatorio. Nome di un oggetto FileSystemObject o Folder.
    
    nomefile
    
    Obbligatorio. Espressione stringa che identifica il file da creare.
    
    sovrascrittura
    
    Facoltativo. Valore booleano che specifica se sovrascrivere o meno i file esistenti. Č True se i file possono essere sovrascritti, False in caso contrario. Se omesso, i file esistenti non vengono sovrascritti.
    
    unicode
    
    Facoltativo. Valore booleano che specifica se il file viene creato come file Unicode o ASCII. Č True se il file viene creato come file Unicode, False se viene creato come file ASCII. Se omesso, viene automaticamente creato un file ASCII.
    
    Osservazioni
    Nel codice seguente viene illustrato come utilizzare il metodo CreateTextFile per creare e aprire un file di testo: 
    
    Sub CreateAfile
       Dim fso, MyFile
       Set fso = CreateObject("Scripting.FileSystemObject")
       Set MyFile = fso.CreateTextFile("c:\fileprova.txt", True)
       MyFile.WriteLine("Questa č una prova".)
       MyFile.Close
    End Sub
    Se l'argomento sovrascrittura di nomefile gią esistente č False o non viene specificato, verrą generato un errore.

  4. #4
    A dire il vero non ho capito molto bene la tua prima parte non hai usato gli apici e non capisco come usarla

  5. #5
    chiudi il file con fname.close. probabilmente se distruggi l'oggetto fname senza chiuderlo, il server non riesce a fare il flush dei dati su disco, e ti ritrovi quelle schifezze dentro.

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.