Upload Baol74: Rinominare i file

[unreg]

Salve,

Uso la mitica classe di Upload fatta Baol74, tutto funziona in modo corretto,

solo che ora ho l'esigenza di rivuovere gli spazi e eventuali caratteri "stani" del file uppato sul server.

es. ho un file che si chiama: prova#web.ext

deve diventare prova_web.ext

ho un file che si chiama: prova#web 2.ext

deve diventare prova_web_2.ext

come posso fare per favore ?

grazie !

[mame01]

Originariamente inviato da unreg
Salve,

Uso la mitica classe di Upload fatta Baol74, tutto funziona in modo corretto,

solo che ora ho l'esigenza di rivuovere gli spazi e eventuali caratteri "stani" del file uppato sul server.

es. ho un file che si chiama: prova#web.ext

deve diventare prova_web.ext

ho un file che si chiama: prova#web 2.ext

deve diventare prova_web_2.ext

come posso fare per favore ?

grazie !

riga 625 del file upload.asp

Files("Name")= replace(lCase(Left(tmpName ,InstrRev(tmpName,".")-1)),"#","_")

[unreg]

grazie !

ma non c'è un nmodo per non toccare la classe ?

[mame01]

Originariamente inviato da unreg
grazie !

ma non c'è un nmodo per non toccare la classe ?

quando l'ho fatto io ho toccato la classe

avevo il problema che la gente aveva file che si chiamavano


"io sono stato in ferie qui con la mia ragazza il ventuno marzo del sessanta.jpg"

[mame01]

non c'è altro sistema se vuoi

rinominare salvare e poi recuperare il nome per scriverlo su DB

[agenti]

rialzo questo vecchio post...

io ho un problema diverso.

Ottengo il nome del file dall'ultimo id inserito in uan tabella.
ad esempio ho "00023"
come posso nominare il file uploadato con ad esempio "00023.ext"

quale variabile devo sostituire?


Private sub AddNewRs(Name,FileName,ContentType,StreamType,ByRe f RequestBin)
Dim tmpName,ar
tmpName = Right(FileName,Len(FileName)-InstrRev(FileName,"\"))
Files.AddNew
Files("InputName") = Name
Files("FileName") = lCase(FileName)
If InstrRev(tmpName,".")=0 then tmpName = tmpName & "."
Files("ext") = lCase(Right(tmpName,Len(tmpName)-InstrRev(tmpName,".")))
Files("Name") = lCase(Left(tmpName ,InstrRev(tmpName,".")-1))

[santino83]

NON SI TOCCANO LE CLASSI!!!!!!!!!!

Dim oUpload
Set oUpload= new cUpload
With oUpload

.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = False
.Overwrite			 = true

path="...."

.SetPath path
.Load()

nomeFile="th_" & codiceID & .Files("ext")

.SaveAs(nomeFile)
End With
Set oUpload = Nothing

se invece dovete togliere dei caratteri dal file

nomeFile=replace(.Files("name"),"carattere_da_togl iere","carattere_in_sost")




...non si modificano le classi a meno che non serva a risolvere un bag...

[agenti]

qualcuno, come vedi, diceva il contrario...

ora lo testo.
Grazie.

[agenti]

funzica.....

[fabiodm75]

Originariamente inviato da santino83
NON SI TOCCANO LE CLASSI!!!!!!!!!!

Dim oUpload
Set oUpload= new cUpload
With oUpload

.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = False
.Overwrite			 = true

path="...."

.SetPath path
.Load()

nomeFile="th_" & codiceID & .Files("ext")

.SaveAs(nomeFile)
End With
Set oUpload = Nothing

se invece dovete togliere dei caratteri dal file

nomeFile=replace(.Files("name"),"carattere_da_togl iere","carattere_in_sost")




...non si modificano le classi a meno che non serva a risolvere un bag...

Ciao a me così non funziona dove sbaglio? :master:

<%
' Dichiarazione delle variabili
Dim oggetto
Dim data
Dim priorita
Dim corpo
Dim footer
Dim idadmin
Dim flgImmagine
Dim flgAllegato

' Recupero variabili di sessione
oggetto = session("oggetto")
data = session("data")
priorita = session("priorita")
corpo = session("corpo")
footer = session("footer")
idadmin = session("idadmin")
flgimmagine = session("flgimmagine")
flgallegato = session("flgAllegato")

Set rsMax =  Server.CreateObject("ADODB.recordset")
' Creo una stringa SQL per controllare il valore massimo presente nel DB
sql= "SELECT Max(ARCHIVIO_NEWSLETTER.IDNEWSLETTER) AS ValoreMax FROM ARCHIVIO_NEWSLETTER"

rsMax.Open sql, conn
    
id_newsletter_in_inserimento = rsMax("ValoreMax").Value
%>

<%
Dim oUpload
Set oUpload = new cUpload
With oUpload

.EnabledAspUpload    = False
.EnabledImageSize    = False
.EnabledLog         = False
.AutoRename         = False
.Overwrite            = true

path="\public\mailing\"

.SetPath path
.Load()

nomeFile="ImgMail_" & id_newsletter_in_inserimento & .Files("ext")

.SaveAs(nomeFile)
End With

sql = "UPDATE ARCHIVIO_NEWSLETTER SET " & "IMMAGINE = '" & nomeFile & "', " & "ALLEGATO='" & nomeFile & "' " & " WHERE IDNEWSLETTER = " & id_newsletter_in_inserimento
conn.execute (sql)    
    
    
Set oUpload=Nothing
%>