Convertire stringa caratteri ascii separati da punto e virgola ;

Question

Salve a tutti.

Ho provato, ma la ricerca non ha dato i frutti sperati.

Ho necessità di convertire una stringa di questo tipo:

{'86';'101';'110';'101';'122';'105';'97';'32';'83';'76';'32';'32';'32';'32';'32';'32';'32';'32';'32';'32';'32';'32';'32';'32';'32';'32';'32';'32';'32';'32'}

in

Venezia (non mi interessano gli spazi alla fine)

Avete qualche idea su come fare con una singola formula ricorsiva?

Non ho dimestichezza con le macro.

Grazie mille a tutti!

Answer 1

sapevi che non avrei resistito eh? :-)

Function Join_re(s As String) As String

Dim re, M, i As Long, t As Long

Set re = CreateObject("vbscript.regexp")

re.Pattern = "\d+"

re.Global = True

Set M = re.Execute(s)

t = M.Count

If t = 0 Then Exit Function

ReDim v(t - 1)

For i = 0 To t - 1

v(i) = Chr(M(i))

Next

Join_re = Trim(Join(v, ""))

End Function

Answer 2

Vedo che sono riuscito a scomodare il top dei top, grazie Roberto soluzione molto elegante.

Grazie a te!

Answer 3

sapevi che non avrei resistito eh? :-)

<cut>

Conosco le debolezze altrui e ne approfitto... ;-)

Answer 4

@Mauro:

viste le previsioni, prima di tirar fuori il 'ferro', mi sa che devi mettere gli pneumatici da neve o meglio le rotelle come i bambini. ;)

Domenica era bello. Il vero biker *sa* quando può... ;-)

E il prossimo fine settimana (lungo perché qui lunedì è il patrono), tiro fuori i *legni* e via a sciare!

Answer 5

ciao,

@Paolo grazie per la stima che sempre mi dimostri, ma ahimè dovresti saperlo che un supporto è necessario anche senza mie conferme :-)

Le alternative sono una UDF come già detto.

Ci sarebbe la possibilità di usare il calcolo iterativo ma è davvero l'ultima soluzione che vorrei suggerire (anche se senza supporto).

propongo quindi una soluzione alternativa a quella di Andrea ...

...

Vedo che sono riuscito a scomodare il top dei top, grazie Roberto soluzione molto elegante.

Andrea.

@Mauro:

viste le previsioni, prima di tirar fuori il 'ferro', mi sa che devi mettere gli pneumatici da neve o meglio le rotelle come i bambini. ;)