pulire stringhe

[jartuf]

Ciao a tutti,
ho un elenco di indirizzi in db dove c'è però sia l'indirizzo email sia la descrizione, talvolta anche l'indirizzo civico perchè il db l'ho recuperato da un vecchio software.

Per rintracciare le email ho letto che con InStr posso rintracciare il carattere @, ma poi come faccio ad eliminare tutte le parole prima e dopo? l'identificatore in questo caso potrebbe essere lo spazio? grazie

[kalosjo]

Si, credo che lo spazio sia l'unico modo.....

[jartuf]

Mi sapresti dire che componente utilizzare xcaso?
molte grazie

[Roby_72]

Componente?
Bastra usare la Instr, la InstrRev e la mid

Roby

[jartuf]

grazie Roby, ho provato a selezionare le email così ma ho un Type Mismatch proprio alla riga dell' Instr.
In pratica sostituisco i <> con spazi, incolonno per spazi e vorrei eliminare le stringhe che non contengono la "@". Premetto che senza la funzione Instr il codice va...grazie!

str = oRst("email")
str = replace(str,"<","")
str = replace(str,">","")
arr_str = split(str," ")
    If InStr(arr_str, "@") > 0 Then
        arr_str = arr_str
    else
        arr_str = ""    
    end if
    
for xElem = 0 to Ubound(arr_str)

response.write(trim(arr_str(xElem)) &"
")
next 

[Roby_72]

arr_str è un array a quel punto e quindi la Instr devi usarla sui suoi singoli elementi non direttamente sull'array.,

Roby

[jartuf]

Uhm...grazie, ho provato cos'ì

str = oRst("email")
str = replace(str,"<","")
str = replace(str,">","")
arr_str = split(str," ")
    

    
for xElem = 0 to Ubound(arr_str)
    
    if InStr(arr_str(xElem)), "@") > 0 Then
        response.write(trim(arr_str(xElem)) &"
")
    else
    response.write &"
")
    End if
next 

ma ho il seguente errore:

Expected 'Then'
...
if InStr(arr_str(xElem)), "@") > 0 Then

[br1]

Conta le parentesi... aperte e chiuse.

ciao

[jartuf]

ok. molte grazie ora funziona il response.write, ma vorrei a questo punto fare un UPDATE sul db, ho provato così ma mi aggiorna tutti i campi con il primo valore dell'array

str = oRst("email")
str = replace(str,"<","")
str = replace(str,">","")
arr_str = split(str," ")
    

    
for xElem = 0 to Ubound(arr_str)
    
    if InStr(arr_str(xElem), "@") > 0 Then
        'response.write(trim(arr_str(xElem)) &"
")
        
        strSQL = "UPDATE newsletter set email = '" & arr_Str(xElem) & "'"

        oConn.execute strSQL 
        
    else
    
    End if
next 

[Roby_72]

email = oRst("email") 
str = replace(email,"<","") 
str = replace(str,">","") 
arr_str = split(str," ") 
     

     
for xElem = 0 to Ubound(arr_str) 
     
    if InStr(arr_str(xElem), "@") > 0 Then 
        'response.write(trim(arr_str(xElem)) &"
") 
         
        strSQL = "UPDATE newsletter set email = '" & arr_Str(xElem) & "' WHERE email = "'& email &"'" 

        oConn.execute strSQL 
         
    else 
     
    End if 
next

Roby