Replace Multipli

[Mr.UltraDev]

Ciao a tutti

ragazzi mi servirebbe un piccolo aiuto.
allora io ho bisogno di fare più replace x poter eleminare alcuni caratteri speciali. Stavo eseguendo più replace multipli quando poi ad un certo punto alla riga dell'Upload di Baoul precisamente la riga 290 che è:

Public Function GetCompletePathFile()
    Dim sGetCompletePathFile=""
                if Not Files.EOF then
                  s = Files("DestPath") & Files("Name")
                   if Files("Ext")<>"" then s = s & "." & Files("Ext")
GetCompletePathFile = Replace(Replace(Replace(Replace(s," ","_"),"'","_"),"%","_"),"&","_") 
            end if
        end function 

se vado ad aggiungere un ulteriore "Replace(" oltre a quelli esistenti ovvero il "quinto", l'immagine non viene più uploudata, quindi ritengo che qualcosa salti durante il processo

come posso ovviare a ciò? ovvero come posso aggiungere altri caratteri speciali che dovranno essere sostituiti con "_"

grazie

[Roby_72]

Usa le espressioni regolari.

Roby

[Mr.UltraDev]

scusa mi potresti fare capire meglio io non è che sia un asso!

cmq avevo provato anche a fare così x dividere i replace in due cioè ho fatto un tentativo

VarMia = Replace(Replace(Replace(Replace(s," ","_"),"'","_"),"%","_"),"&","_")

GetCompletePathFile = Replace(VarMia,"$","_") 

da quello che ho intuito che perde tempo e l'upload nn và a buon fine...

stò provando anche così ma nada!!!!

VarMac = s
    VarMac = Replace(VarMac," ","_")
    VarMac = Replace(VarMac,"'","_")
    VarMac = Replace(VarMac,"%","_")
    VarMac = Replace(VarMac,"&","_")
    VarMac = Replace(VarMac,"$","_")
    VarMac = Replace(VarMac,"..",".")
    GetCompletePathFile = VarMac 

[Mr.UltraDev]

ragazzi un aiuto...

[optime]

che vuol dire

stò provando anche così ma nada!!!!


???

[Mr.UltraDev]

che mettendo anche ciò che ho scritto il risultato è sempre lo stesso l'immagine non sò perchè si perde e non viene più caricata nella cartella mi sembra quasi che come ci fosse un timeout! oltre al quarto replace poi non carica più!

allora ho pensato addirittura di mettere una function

Public Function CodeToFileName(ByVal Data As String) As String

            Dim DataOut As New System.Text.StringBuilder, IdChar As Char

            For Each IdChar In Data
                Select Case IdChar
                    Case ".."
                        DataOut.Append(".")
                    Case "/", "\", ":", "*", "<", ">", "%", "$", "£","&", "!", "°"
                        DataOut.Append("_")
                    Case Else
                        DataOut.Append(IdChar)
                End Select
            Next

            Return DataOut.ToString

        End Function 

da richiamare quando serve ma non sò perchè poi mi dà errore

Expetc ')'

su questa riga

Public Function CodeToFileName(ByVal Data AS String) As String
--------------------------------------------------------^

aiuto!

x la cronaca il file è l' include_upload.asp di Baol
a me andrebbe bene anche che mi rinominasse tutto il file con es la parola "foto"
e poi col rename faccia "foto_0"; "foto_1" ecc ecc

[optime]

mr, asp non supporta la tipizzazione togli tutti gli "AS quassicosa"

[Roby_72]

Quello che hai scritto è asp.net...

Roby

[Mr.UltraDev]

e in ASP come la devo fare!

[optime]

un ciclo for...next lo sai fare... e lavori di MID