[Upload Baol ] Elimina Caratteri !

[unreg]

Salve,

Ho il codice postato giu, che funziona bene

Solo che ora mi serve una modifica:

deve eliminare tutti caratteri stani compreso lo spazio, dal file che uppa sul server, permettendo solo lettere ed numeri.

esempio:

pro va#2.jpg

deve diventare: prova2.jpg

come si fa ?

Grazie !

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
   Dim oUpload
   
   Set oUpload = new cUpload
   
   With oUpload
      .EnabledAspUpload = False
      .EnabledImageSize = TRUE
      .EnabledLog = False
      .AutoRename = True
      .Overwrite = False
      .SetPath "grandi\"
      .Load
      .UploadOnly "Images"
	       
      While Not .Eof  
         If .Files("Width") <> 400 or .Files("Height") <> 300 Then
	        Response.Write("Errore !")
         Else
            .Save
         End If
            .MoveNext
      Wend
   End With

Set oUpload = Nothing
%>

[santino83]

ricava il nome del file, togligli i caratteri strani con i replace, e poi usa la funzione SaveAs col nuovo nome del upload di baol

[unreg]

Originariamente inviato da santino83
ricava il nome del file, togligli i caratteri strani con i replace, e poi usa la funzione SaveAs col nuovo nome del upload di baol

non ho capito come fare

per recuperare il nome:

Nome = .GetFileName()

ma per il resto ?

grazie !

[weppos]

Sostituisce le partci che non ti servono.
http://www.weppos.com/asp/vbsdocs/function_replace.asp

[unreg]

Originariamente inviato da weppos
Sostituisce le partci che non ti servono.
http://www.weppos.com/asp/vbsdocs/function_replace.asp

si, mi faccio una funzione:

   Function codifica(var1)
   	  var1 = Replace(var1,"&","_")
      var1 = Replace(var1,"à","_")
	  var1 = Replace(var1,"è","_")
	  var1 = Replace(var1,"é","_")
	  var1 = Replace(var1,"ò","_")
	  var1 = Replace(var1,"ù","_")
	  var1 = Replace(var1,"°","_")
	  var1 = Replace(var1,"'","_")
	  var1 = Replace(var1,"#","_")
	  var1 = Replace(var1," ","_")
	  
	  codifica = var1
   End Function

il problema ora è come la integro con upload ?

mi servirebbe una cosa così:

...

.Save(codifica(cosa ?))

...

come devo fare ?

grazie !

p.s. forse questa discussione è utile, ma io non ho capito come risolvere

[Baol74]

Prova così. Dove RepChars sostituisce i caratteri.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
   Dim oUpload
   
   Set oUpload = new cUpload
   
   With oUpload
      .EnabledAspUpload = False
      .EnabledImageSize = TRUE
      .EnabledLog = False
      .AutoRename = True
      .Overwrite = False
      .SetPath "grandi\"
      .Load
      .UploadOnly "Images"
	       
      While Not .Eof  
         If .Files("Width") <> 400 or .Files("Height") <> 300 Then
	        Response.Write("Errore !")
         Else
            Name = RepChars(.GetFileName())
            .SaveAs Name
         End If
            .MoveNext
      Wend
   End With

Set oUpload = Nothing
%>

[unreg]

grazie mille !