Como verificar se nome digitado é composto ?

[webfuture 0]

Galera, estou montando um sisteminha aqui e para o usuário ter acesso ele somente consegue a partir de um nome composto e uma senha, porém este nome composto tem que seguir um padrão, como abaixo:programador-aspforum-imastersso-ferasNão pode ter mais do que dois blocos ou seja aqui-so-tem-fera, somente dois so-feras, como validar um campo com asp e fazer isto, verificar se tem dois blocos ou não ?Alguém sabe como fazer isto ?WebFuture

[Ratu 0]

faz um split por "-" e se o UBound for maior que 1 você dah mensagem de erro !

[Salgado 4]

Pode-se usar Split ou InStr e InStrRev juntos e comparar se os resultados deles são iguais.

[Ratu 0]

Opa, eu vi sua msg agora Salgado, acho melhor a forma que disse, eh + prática !

[Salgado 4]

Opa, eu vi sua msg agora Salgado, acho melhor a forma que disse, eh + prática !

Acho que postamos praticamente juntos, eu estava pesquisando algo antes de submeter a resposta.

[Ratu 0]

sem crise !!

[webfuture 0]

Olá pessoal, seria mais ou menos isto ?

 

For i = 1 To Int(UBound(Split(nome_composto, ",")) + 1) With Response if Int(UBound(Split(nome_composto, "-"))) > 1 then 	Response.Write "ERRO" End if  End With Next

Pergunto pois não manjo muito deste tipo de verificação, esta rolando mas não sei se esta 100% correto...

 

WebFuture

[Ratu 0]

ué?! teste, se funfar esta certo, senaum naum esta, teste inserindo

 

sei-lah

 

sei-lah-sei

 

e veja se esta funcionando corretamenteparece estar correto

 

mas tire isso aki

 

For i = 1 To Int(UBound(Split(nome_composto, ",")) + 1)if Int(UBound(Split(nome_composto, "-"))) > 1 then	Response.Write "ERRO"End ifNext

 

você nem usou o With... desnecessario neste caso

[webfuture 0]

Valeu Ratu,WebFuture

[Salgado 4]

Fazendo de cabeça:

Falso = "aqui-so-tem-fera"
Verdadeiro = "so-fera"

Function Testa_Composto(texto)
If InStr(texto,"-") <> InStrRev(texto,"-") Then
	Testa_Composto = False
Else
	Testa_Composto = True
End If
End Function
Response.Write Falso &" contém 1 hifem? "& Testa_Composto(Falso) &"<br>"
Response.Write Verdadeiro &" contém 1 hifem? "& Testa_Composto(Verdadeiro) &"<br>"

Acredito qté que consuma menos do servidor.