Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminare Carattere Speciale in Stringa

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/

 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), "")
Next
End Sub
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 

 Io la riscriverei cosě:
[snip]
Beh, decidiamoci: o scrivi codice VB.Net o codice VB6 ;)
Ciao

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

 Ormai non uso VB6 da tantissimo tempo...
Non sembrerebbe ;)
L'appunto era per te :)
Ciao 

 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

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/


ciao fabio
non ho mica capito come riscriveresti la funzione


 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 

 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


 necessarie.
Array non restituisce un array di stringhe!
Ciao 

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/


ok grazie 1000
