Eliminare Carattere Speciale in Stringa

massimo

unread,

Jul 19, 2006, 6:10:05 AM7/19/06

to

Ciao
ho trovato questa funzione per determinare ed eliminare dei caratteri
speciali in una stringa ma mi segnala: "tipo non definito"?
qualcuno sa aiutarmi?
grazie

Function xls_clean(in_put As String)

Dim clean_and_clear() As String

Dim x As Integer

clean_and_clear() = Array(",", "%", "/", "'", ".", "(", ")", ";", "!", "+",
"^", "&", "\", "?", "]", "[", "{", "}")

For x = 0 To UBound(clean_and_clear()) - 1

in_put = Replace(in_put, clean_and_clear(x), "")

Next x
in_put = Trim$(in_put)

End Function

--------------------------------
Inviato via http://arianna.libero.it/usenet/

Carmine [www.thetotalsite.it]

unread,

Jul 19, 2006, 6:23:12 AM7/19/06

to

massimo wrote:
> Function xls_clean(in_put As String)
>
> Dim clean_and_clear() As String
>
> Dim x As Integer
>
> clean_and_clear() = Array(",", "%", "/", "'", ".", "(", ")", ";",
> "!", "+", "^", "&", "\", "?", "]", "[", "{", "}")
>
> For x = 0 To UBound(clean_and_clear()) - 1
>
> in_put = Replace(in_put, clean_and_clear(x), "")
>
> Next x
> in_put = Trim$(in_put)

Molto strana... ma è VB?
Io la riscriverei così:

Sub clean(ByVal in_put As String)

Dim clean_and_clear() As String = {",", "%", "/", "'", ".", "(", ")", ";",

"!", "+", "^", "&", "\", "?", "]", "[", "{", "}"}

For i As Integer = 0 To clean_and_clear.Length

in_put = Replace(in_put, clean_and_clear(i), "")

Bye,

--
Carmine ( pikachu...@gmail.com (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : http://www.thetotalsite.it
My Blog: http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno

Fabio

unread,

Jul 19, 2006, 6:51:31 AM7/19/06

to

"Carmine [www.thetotalsite.it]" <pika...@gmail.com> ha scritto nel
messaggio

> massimo wrote:

> Molto strana... ma č VB?

Perchč strana? A me pare classico VB6.

> Io la riscriverei cosě:

[snip]

Beh, decidiamoci: o scrivi codice VB.Net o codice VB6 ;)

Ciao

Carmine [www.thetotalsite.it]

unread,

Jul 19, 2006, 7:04:12 AM7/19/06

to

Fabio wrote:
> Beh, decidiamoci: o scrivi codice VB.Net o codice VB6 ;)

Ah ecco...
Mi confondo sempre :-P
Ormai non uso VB6 da tantissimo tempo...

Fabio

unread,

Jul 19, 2006, 7:06:44 AM7/19/06

to

"Carmine [www.thetotalsite.it]" <pika...@gmail.com> ha scritto nel
messaggio

> Fabio wrote:

>> Beh, decidiamoci: o scrivi codice VB.Net o codice VB6 ;)
>
> Ah ecco...
> Mi confondo sempre :-P
> Ormai non uso VB6 da tantissimo tempo...

Non sembrerebbe ;)
L'appunto era per te :)

Ciao

Melchiade Bedrosian Baol

unread,

Jul 19, 2006, 7:06:39 AM7/19/06

to

massimo ha scritto:

> Ciao
> ho trovato questa funzione per determinare ed eliminare dei caratteri
> speciali in una stringa ma mi segnala: "tipo non definito"?
> qualcuno sa aiutarmi?

se tu ci dicessi in corrispondenza di quale riga ottieni questa
segnalazione, potresti aiutarci moltissimo ad aiutarti.

--
Salutoni
Sergio

C'è il giorno in cui nasci e quello in cui scegli di vivere

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad ab...@newsland.it

massimo

unread,

Jul 19, 2006, 7:28:49 AM7/19/06

to

Ciao
mi da errore subito alla riga 1

clean_and_clear() = Array(",", "%", "/", "'", ".", "(", ")", ";", "!", "+",
"^", "&", "\", "?", "]", "[", "{", "}")

runtime 13
tipo non definito
grazie

Il 19 Lug 2006, 13:06, news...@cssoft2001.com (Melchiade Bedrosian Baol)
ha scritto:

--------------------------------
Inviato via http://arianna.libero.it/usenet/

massimo

unread,

Jul 19, 2006, 7:31:40 AM7/19/06

to

ciao fabio
non ho mica capito come riscriveresti la funzione

Fabio

unread,

Jul 19, 2006, 7:48:27 AM7/19/06

to

"massimo" <gre...@libero.it> ha scritto nel messaggio
news:85Z36Z37Z44Y1...@usenet.libero.it...

> ciao fabio

> non ho mica capito come riscriveresti la funzione

Toh, prova cosě:

Function CleanStr(ByVal strIn As String) As String

Dim ch As Variant
For Each ch In Array(",", "%", "/", "'", ".", "(", ")", ";", "!", "+",

"^", "&", "\", "?", "]", "[", "{", "}")

strIn = Replace(strIn, ch, "")
Next ch
CleanStr = Trim$(strIn)

End Function

Ciao

Melchiade Bedrosian Baol

unread,

Jul 19, 2006, 7:51:37 AM7/19/06

to

massimo ha scritto:

> Ciao
> mi da errore subito alla riga 1
> clean_and_clear() = Array(",", "%", "/", "'", ".", "(", ")", ";", "!", "+",
> "^", "&", "", "?", "]", "[", "{", "}")
> runtime 13
> tipo non definito
> grazie

E se togli la coppia di parentesi dopo clean_and_clear che succede?
Anche quando cerchi il limite superiore con ubound mi paiono non
necessarie.

Sempre che si stia parlando di vb6, naturalmente

Fabio

unread,

Jul 19, 2006, 8:04:36 AM7/19/06

to

"Melchiade Bedrosian Baol" <news...@cssoft2001.com> ha scritto nel
messaggio news:e9l6c9$h69

> E se togli la coppia di parentesi dopo clean_and_clear che succede?
> Anche quando cerchi il limite superiore con ubound mi paiono non
> necessarie.

Array non restituisce un array di stringhe!

Ciao

massimo

unread,

Jul 19, 2006, 8:06:50 AM7/19/06

to

ciao
ho tolto le parentesi dopo clean_and_clear e mi ritorna lo stesso errore!!
cmq si è vb6

Il 19 Lug 2006, 13:51, news...@cssoft2001.com (Melchiade Bedrosian Baol)
ha scritto:

--------------------------------
Inviato via http://arianna.libero.it/usenet/

massimo

unread,

Jul 19, 2006, 8:13:57 AM7/19/06

to

ok grazie 1000