manipolazione stringhe

[biocco]

Ciao, ho un problemino e non so come venirne fuori.....

Io ho una stringa cosi composta: MELA, BANANA, PESCA, ARANCIA

e devo trasformarla cosi:

FRUTTA='MELA' OR FRUTTA='BANANA' OR FRUTTA='PESCA' OR FRUTTA='ARANCIA'

Come posso automatizzare questo processo?

Grazie

[optime]

myStr = "MELA, BANANA, PESCA, ARANCIA"
myStr = Replace(myStr, " ", "")
myQRY = "FRUTTA='" & Replace(MyStr, "," "' OR FRUTTA='") & "'"

scritta al volo, non garantisco

[biocco]

Funziona anche se ho solo "MELA"? devo mettere la virgola in tutti i casi o solo se ce due voci?

[Mems]

Originariamente inviato da biocco
Funziona anche se ho solo "MELA"? devo mettere la virgola in tutti i casi o solo se ce due voci?

Funziona con tutti i tipi di frutta

frutta = "MELA, PESCA, BANANA, ARANCIA"
frutta = replace(frutta,"'","''")
if inStr(frutta,", ") > 0 then
elementiFrutta = split(frutta, ", ")
for i = 0 to uBound(elementiFrutta)
condizioneRicerca = condizioneRicerca & " campoFrutta = '" & elementiFrutta(i) & "'"
if i < uBound(elementiFrutta) then condizioneRicerca = condizioneRicerca & " OR"
next
else
condizioneRicerca = " campoFrutta = '" & frutta & "'"
end if
sql = "SELECT * FROM tabellaFrutta WHERE" & condizioneRicerca

La virgola seguita da uno spazio va messa se ci sono almeno 2 voci, altrimenti:

frutta = "MELA"

[optime]

mems, sei sicuro di non aver complicato una cosa semplice?

[Mems]

Originariamente inviato da optime
mems, sei sicuro di non aver complicato una cosa semplice?

Tranquillo.

[optime]

Originariamente inviato da Mems
Tranquillo.

tranquillo nel senso che l'hai fatto davvero