I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2
mat635418
mat635418
il 23 marzo 2006 alle 10:43
30 messaggi dal 08 febbraio 2006
Ciao a tutti, vi espongo il mio problema:

Devo visualizzare a monitor il contenuto di un file di testo, costituito da 6 righe, la prima con dati anagrafici(quindi sensibili), le altre con 5 punteggi.. Devo far in modo di richiamare il file e visualizzare a monitor solo i punteggi, non i dati sensibili...

Suggerimenti?

    Dim FO 
    Set FO = Server.CreateObject("Scripting.FileSystemObject")
      
    utente = session("utenza")        
    nomefile = "utenza_(" & utente & ").txt" 
    
    If FO.FileExists(Server.MapPath(nomefile)) then
      Set controllo = FO.OpenTextFile(Server.MapPath(nomefile),1,False,0)
      Do While controllo.AtEndOfStream <> True
        Response.write "<font class='campi'><br>" & controllo.ReadLine & "<br></font>"
      Loop
      
      controllo.close
      Set controllo = nothing
      
    End If

    Set FO = Nothing


con questo procedimento riesco a fare tutto, ma mi visualizza tutte le 6 righe....

ciao
grazie
A.
RispondiQuoting
vitosulla
vitosulla
il 23 marzo 2006 alle 11:23
593 messaggi dal 09 ottobre 2002
www.dotnetside.org
Io risolverei inserendo un contatore che si incrementi ad ogni iterazione.

Prima dell'output testerei il contatore; se = 1 stamperei la stringa di oscuramento; diversamente procederei con la stampa del contenuto del file:

.....
i = 1
Do While controllo.AtEndOfStream <> True 
If i=1 Then
Response.write "<font class='campi'><br />"
Response.Write "*************************************"
Else
Response.write "<font class='campi'><br />" & controllo.ReadLine & "<br /></font>"
End If
i = i + 1
Loop 
.....

Ciao
Modificato da vitosulla il 23 marzo 2006 11.24 -
Pochi post. Anzi, quasi quasi spengo
http://www.dotnetside.org/
RispondiQuoting
mat635418
mat635418
il 23 marzo 2006 alle 11:45
30 messaggi dal 08 febbraio 2006
Dunque, innanzi tutto grazie per l'aiuto...

Premetto che anch'io avevo già pensato ad un contatore che si incrementa...

ho provato il tuo codice che mi hai suggerito, ma non funziona...nel senso che stampa cmq tutte le righe...forse un errore di indice?

dovrà forse partire da un altro valore?

A.
RispondiQuoting
mat635418
mat635418
il 23 marzo 2006 alle 12:00
30 messaggi dal 08 febbraio 2006
Cerco di essere più preciso:

scrive sì la riga di oscuramento, ma non al posto della prima, ma prima della prima riga, che visualizza comunque....

se avete altri suggerimenti...

grazie
ciao
A.
RispondiQuoting
vitosulla
vitosulla
il 23 marzo 2006 alle 12:12
593 messaggi dal 09 ottobre 2002
www.dotnetside.org
Piccola modifica:
..... 
i = 1
strOscura = "************************************"
Do While controllo.AtEndOfStream <> True 
If i=1 Then 
Response.write "<font class='campi'><br />" 
Response.Write Replace(controllo.Readline, controllo.ReadLine, strOscura) & "<br /></font>"
Else 
Response.write "<font class='campi'><br />" & controllo.ReadLine & "<br /></font>" 
End If 
i = i + 1 
Loop 
.....
Pochi post. Anzi, quasi quasi spengo
http://www.dotnetside.org/
RispondiQuoting
mat635418
mat635418
il 23 marzo 2006 alle 14:07
30 messaggi dal 08 febbraio 2006
Ho provato a inserire l'ultimo frammento di codice che hai postato, in questa forma:

    Dim FO 
    Set FO = Server.CreateObject("Scripting.FileSystemObject")
      
    utente = session("patente_controllo")        
    nomefile = "utenza_(" & utente & ").txt" 
    
    If FO.FileExists(Server.MapPath(nomefile)) then
      Set controllo = FO.OpenTextFile(Server.MapPath(nomefile),1,False,0)
      i = 1
      nascondi_dati_sensibili = " "
      Do While controllo.AtEndOfStream <> True
        if i = 1 then
          Response.write Replace(controllo.Readline, controllo.ReadLine, nascondi_dati_sensibili)        
        else
          Response.write "<font class='campi'><br>" & controllo.ReadLine & "<br></font>"
        end if
        i = i + 1
      Loop
    End If
      
    controllo.close
    Set controllo = nothing
    Set FO = Nothing


Il file di testo da cui legge è nella forma:
riga1\\ .....dati sensibili....
riga2\\ punteggio1
..
riga5\\ punteggio5

Con il codice che mi hai suggerito, la pagina restituisce solo le ultime due righe, mangiandosi il primo punteggio e scrivendo cmq i dati sensibili, anche se in nero su fondo nero sono nascosti, ma selezionabili se sottolineati....soluzione non accettabile...

io vorrei solo i punteggi (tutti, non senza il primo), e non i dati sensibili....

se mi dai ancora una mano sei un grande

grazie
A.
RispondiQuoting
mat635418
mat635418
il 23 marzo 2006 alle 14:30
30 messaggi dal 08 febbraio 2006
inizio seriamente a pensare che, invece della prima riga, sostituisca il valore nullo " " alla seconda riga, che invece contiene un record che deve essere visualizzato...

Ma la domada è: perchè? Mi sto sbattendo sulla sintassi del metodo Replace, ma nada....

HELP !

A.
RispondiQuoting
guidocaser
guidocaser
il 23 marzo 2006 alle 14:46
91 messaggi dal 04 gennaio 2002
----inizio seriamente a pensare che, invece della prima riga, sostituisca il valore nullo " " alla seconda riga, che invece contiene un record che deve essere visualizzato...

Ma la domada è: perchè? Mi sto sbattendo sulla sintassi del metodo Replace, ma nada....

HELP -----

OGNI VOLTA CHE CHIAMI IL METODO READLINE LEGGI UNA NUOVA RIGA REPLACE(CONTROLLO.READLINE,CONTROLLO.READLINE,"QUALCOSA")
nON è MAI VERIFICATA LA CONDIZIONE DI RICERCA........

dEVI VALORIZZARE DENTRO IL LOOP UNA VARIABILE TIPO:

Do While controllo.AtEndOfStream <> True
STRINGA=controllo.Readline
if i = 1 then
Response.write "DATI SENSIBILI"
else
Response.write "<font class='campi'><br>" & STRINGA & "<br></font>"
end if
STRINGA=""
i = i + 1
Loop
RispondiQuoting
1 2

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.