Replace di più caratteri

[Jupy64]

hehehe si si, me ne ero accorto errore di scrittura.. non ho fatto un copia e incolla!!
ma penso sempre, sbagliando, che uno si legga un'attimino il codice che usa..

[meganoide]

Originariamente inviato da Jupy64
si, se hai usato l'esempio che ti ho fatto io, allora si, alla fine c'è una parentesi in più.. toglila e vedrai che funzia

Type mismatch: '[string: "-"]'

non gli piace avere più di un carattere da rimpiazzare

payment_date = replace(replace(sValue, "%3A", ":"),"%2C", ",", "+", "-")

[willybit]

tu cosa devi sostituire e con cosa?

[Jupy64]

Originariamente inviato da meganoide
Type mismatch: '[string: "-"]'

non gli piace avere più di un carattere da rimpiazzare

payment_date = replace(replace(sValue, "%3A", ":"),"%2C", ",", "+", "-")

mmm.. :master: è non l'hai scritta bene!
ogni volta che richiami la "replace" gli devi passare solo 3 parametri!!!
ora non so cosa vuoi fare tu, ma quello che hai scritto cosi funziona:
payment_date = replace(replace(replace(sValue, "%3A", ":"),"2C",","),"+","-")

in pratica devi usare tanti replace per quante sostituzioni diverse vuoi fare

[meganoide]

08%3A03%3A48+Nov+05%2C+2004+PST

devo farci uscire la data in questo formato

08:03:48 Nov 5 2004

%3A corrisponde ai due punti e %2C corrisponde alla virgola

[meganoide]

Originariamente inviato da Jupy64
mmm.. :master: è non l'hai scritta bene!
ogni volta che richiami la "replace" gli devi passare solo 3 parametri!!!
ora non so cosa vuoi fare tu, ma quello che hai scritto cosi funziona:
payment_date = replace(replace(replace(sValue, "%3A", ":"),"2C",","),"+","-")

in pratica devi usare tanti replace per quante sostituzioni diverse vuoi fare

ora modifico

[rixx]

ancora questa data wow

[Jupy64]

Originariamente inviato da meganoide
08%3A03%3A48+Nov+05%2C+2004+PST

devo farci uscire la data in questo formato

08:03:48 Nov 5 2004

%3A corrisponde ai due punti e %2C corrisponde alla virgola

Replace(Replace(Replace(Replace(mia, "%3A", ":"), "+", " "), "%2C", " "), "PST", " ")

[meganoide]

infatti, ora con questo va bene

Ancora quella data... mi sache dovrò poi modificarla ancora per inserirla in formato sql

[paolo bosani]

Originariamente inviato da deivnet
Potresti fare una funzioni che accetta 2 parametri,
un dictionary che contiene come Key il caratattere da sostituire
e come Item il carattare da usare per la sostituzione,
la stringa su cui applicare il tutto.

Ciclare sul dictionary e applicare il replace alla stringa in base al dictionary ... un esempio è meglio

Set objDic = server.createobject("Scripting.Dictionary")
'Aggiungo i caratteri ovviamente ho inventato
objDic.Add "%3A", ":"
objDic.Add "%3B", ";"
objDic.Add "%2C", "("

'la mia stringa
vStr="Stringa %3A di %3B prova %2C "

vStr = myReplace(objDic, vStr )

'la mia funzione
function myReplace(OggettoDictionary, Stringa)
   ' Recupero le chiavi che sono i caratteri da sostituire
   a = OggettoDictionary.Keys   
   
   'Ciclo su ogni chiave
   For i = 0 To OggettoDictionary.Count -1 
      'Replace
      Stringa = Replace(Stringa, a(i), OggettoDictionary.Item(a(i)))
   Next

  myReplace = Stringa
end function

Interessante, ma perchè non mi funziona?