sapere se le lettere che compongono una stringa....

[saltodifondi]

Ciao,
mi serve un modo per capire se una stringa (composta di caratteri alfabetici senza spazio) di 6 o + lettere e comosta da almeno 6 lettere differenti.

per intenderci la stringa "passerella" è composta da sei elttre differenti, p-a-s-e-r-l che si ripetono, quindi dovrei ricevere TRUE da questa funzione alla quale do in pasto las stringa. con la parola "nocciolo" invece ricevo FALSE perchè è composta da 5 lettere differenti.

spero sia chiaro e che sappiate aiutarmi. grazie.

[imente]

splitta la stringa...

poi fai un controllo sull'array uno a uno...

---

'spe che ci penso...

oppure...

per ora non mi viene nulla

ma c'è qualcosa di più elegante
ci scommetto

[saltodifondi]

ci sto su da 3 ore. oramai sono andato in tilt

[longline]

Devi fare una funzione che conta il numero delle lettere utilizzate in una parola. Le lettere vengono accodate in una stringa, solo se non sono già nella stringa stessa. Poi alla fine conti quante lettere hai accodato.

Function NumeroLettere(ByVal strParola)
  Dim lngContatore
  Dim strLettereTrovate
  Dim strLetteraEsaminata
  strLettereTrovate = ""
  For lngContatore = 1 To Len(strParola)
    strLetteraEsaminata = Mid(strParola, lngContatore, 1)
    If InStr(strLettereTrovate, strLetteraEsaminata) = 0 Then
      strLettereTrovate = strLettereTrovate & strLetteraEsaminata
    End If
  Next
  NumeroLettere = Len(strLettereTrovate)
End Function

Poi ti fai una funzione per ottimizzare il controllo.

Function ControllaLettere(ByVal strStringa, ByVal lngNumeroLettereMin)
  If NumeroLettere(strStringa) > lngNumeroLettereMin Then
    ControllaLettere = True
  Else
    ControllaLettere = False
  End If
End Function

[imente]

questa funziona

ma non è elegante


EDIT: funzione migliore più in basso :P

<%

function controllaparola(parola)

dim ii,ii2,flag

flag = false
for ii=1 to len(parola)
	for ii2=ii to len(parola)
		
		if ii2 <> ii then
			
			if mid(parola,ii2,1) =  mid(parola,ii,1) then flag = true
			
		end if
		
		if flag then exit for
		
	next
	
	if flag then exit for
next
controllaparola = flag
end function

miaparola = "abba"

if controllaParola(miaparola) then
	response.write "ripetizione"
else
	response.write "nessuna ripetizione"
end if

%>

se mi dai ancora 5 minuti la ripulisco :P

[saltodifondi]

troppa grazia sant'antonio!
grazie, lo faresti?

[longline]

Originariamente inviato da saltodifondi
troppa grazia sant'antonio!
grazie, lo faresti?

Edit: non avevo capito che ti riferivi a me...

[imente]

che stupido :P

lascia perdere quella di prima

così è più semplice...
longline ha ragione

<%

function controllaparola(parola)

	dim ii,flag,temp
	
	flag = false
	for ii=1 to len(parola)
	
		if instr(temp,mid(parola,ii,1)) <> 0 then
			flag = true
			exit for
		end if
		temp = temp & mid(parola,ii,1)
	
	next
	controllaparola = flag
	
end function

miaparola = "simone"

if controllaParola(miaparola) then
	response.write "ripetizione"
else
	response.write "nessuna ripetizione"
end if

%>

[saltodifondi]

sono commosso, grazie. era per un gioco onLine.
se volete farvi una partita... grazie a voi ce l'ho fatta.

http://www.ultimavera.it/paroliamo/

[imente]

diciamo che mi ha risvegliato la voglia del "ALGORITMO PIU' EFFICIENTE ED ELEGANTE"

grazie

---

"e lettere che si ahnno a disposizione"