AJUDA COM STRING
http://vbmania.com.br/images/smile/sml3.gifEstou desenvolvendo um programinha, gostaria que alguém desse uma conferida para ver se é assim mesmo o código porque meu código esta ficando muito grande to meio me perdendo para desenvolver o programa.
Segue um exemplo do código.
Text1.text ‘ eu digito e ele procura no text2, se encontra ele seleciona a string no text2 e retorna um valor true se não ele retorna um valor false
‘xxxxxxxxxxxxxxxxxxxxxxxx
no Text2.text ‘contém o seguinte texto:
[Ô]AA, AK, AKS, AQ, AQS, AJ, AJS, AT, ATS, A9, A9S, A8, A8S, A7, A7S, A6, A6S, A5, A5S, A4, A4S, A3, A3S, A2, A2S,[Ô]
[Ô]KK , KQ, KQS, KJ, KJS, KT, KTS, K9, K9S, K8, K8S, K7, K7S, K6, K6S, K5, K5S, K4, K4S, K3, K3S, K2, K2S, [Ô]
[ô][ô]QQ , QJ, QJS, QT, QTS, Q9, Q9S, Q8, Q8S, Q7, Q7S, Q6, Q6S, Q5, Q5S, Q4, Q4S, Q3, Q3S, Q2, Q2S, [Ô]
[ô][ô]JJ, JT, JTS, J9, J9S, J8, J8S, J7, J7S, J6, J6S, J5, J5S, J4, J4S, J3, J3S, J2, J2S,[Ô]
[ô][ô]TT, T9, T9S, T8, T8S, T7, T7S, T6, T6S, T5, T5S, T4, T4S, T3, T3S, T2, T2S,[Ô]
[ô][ô]99, 98, 98S, 97, 97S, 96, 96S, 95, 95S, 94, 94S, 93, 93S, 92, 92S,[Ô]
[ô][ô]88, 87, 87S, 86, 86S, 85, 85S, 84, 84S, 83, 83S, 82, 82S,[Ô]
[ô][ô]77, 76, 76S, 75, 75S, 74, 74S, 73, 73S, 72, 72S,[Ô]
[ô][ô]66, 65, 65S, 64, 64S, 63, 63S, 62, 62S,[Ô]
[ô][ô]55, 54, 54S, 53, 53S, 52, 52S,[Ô]
[ô][ô]44, 43, 43S, 42, 42S,[Ô]
[ô][ô]33, 32, 32S,[Ô]
[ô][ô]22,[Ô]
‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
IF text1 = “AA†Then
Msgbox “AA encontradoâ€
Elseif text1 = “KK†Then
Msgbox “KKk encontradoâ€
[ô]O código segue para todas as string que estão no text2(até a ultima 22), e cada string que estão no text2 tem um [ô]valor(mensagem). Portanto esse código esta ficando muito grande
Else
MsgBox text1 & “ Não consta na lista.[Ô]
End if
A pergunta é: ta certo esse código, ou tem uma maneira diferente para encurtalo.
Se alguém souber poste ai, ou de o seu comentário, por favor.
Segue um exemplo do código.
Text1.text ‘ eu digito e ele procura no text2, se encontra ele seleciona a string no text2 e retorna um valor true se não ele retorna um valor false
‘xxxxxxxxxxxxxxxxxxxxxxxx
no Text2.text ‘contém o seguinte texto:
[Ô]AA, AK, AKS, AQ, AQS, AJ, AJS, AT, ATS, A9, A9S, A8, A8S, A7, A7S, A6, A6S, A5, A5S, A4, A4S, A3, A3S, A2, A2S,[Ô]
[Ô]KK , KQ, KQS, KJ, KJS, KT, KTS, K9, K9S, K8, K8S, K7, K7S, K6, K6S, K5, K5S, K4, K4S, K3, K3S, K2, K2S, [Ô]
[ô][ô]QQ , QJ, QJS, QT, QTS, Q9, Q9S, Q8, Q8S, Q7, Q7S, Q6, Q6S, Q5, Q5S, Q4, Q4S, Q3, Q3S, Q2, Q2S, [Ô]
[ô][ô]JJ, JT, JTS, J9, J9S, J8, J8S, J7, J7S, J6, J6S, J5, J5S, J4, J4S, J3, J3S, J2, J2S,[Ô]
[ô][ô]TT, T9, T9S, T8, T8S, T7, T7S, T6, T6S, T5, T5S, T4, T4S, T3, T3S, T2, T2S,[Ô]
[ô][ô]99, 98, 98S, 97, 97S, 96, 96S, 95, 95S, 94, 94S, 93, 93S, 92, 92S,[Ô]
[ô][ô]88, 87, 87S, 86, 86S, 85, 85S, 84, 84S, 83, 83S, 82, 82S,[Ô]
[ô][ô]77, 76, 76S, 75, 75S, 74, 74S, 73, 73S, 72, 72S,[Ô]
[ô][ô]66, 65, 65S, 64, 64S, 63, 63S, 62, 62S,[Ô]
[ô][ô]55, 54, 54S, 53, 53S, 52, 52S,[Ô]
[ô][ô]44, 43, 43S, 42, 42S,[Ô]
[ô][ô]33, 32, 32S,[Ô]
[ô][ô]22,[Ô]
‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
IF text1 = “AA†Then
Msgbox “AA encontradoâ€
Elseif text1 = “KK†Then
Msgbox “KKk encontradoâ€
[ô]O código segue para todas as string que estão no text2(até a ultima 22), e cada string que estão no text2 tem um [ô]valor(mensagem). Portanto esse código esta ficando muito grande
Else
MsgBox text1 & “ Não consta na lista.[Ô]
End if
A pergunta é: ta certo esse código, ou tem uma maneira diferente para encurtalo.
Se alguém souber poste ai, ou de o seu comentário, por favor.
nossa meio confuso eim...
comesse explicando melhor amigo, tem como melhorar isso sim, e muito, mas precisamos de maiores informaçoes tipo:
o que são essas strings que estaum na text2?
não dá pra gravar isso num arquivo texto ou banco de dados? (assim vc tira isso dos códigos e possibilita uma busca generica)
depois de dar um geito nessas strings fica facil facil eliminar essa infinidade de if e esleif que vc tem ai
comesse explicando melhor amigo, tem como melhorar isso sim, e muito, mas precisamos de maiores informaçoes tipo:
o que são essas strings que estaum na text2?
não dá pra gravar isso num arquivo texto ou banco de dados? (assim vc tira isso dos códigos e possibilita uma busca generica)
depois de dar um geito nessas strings fica facil facil eliminar essa infinidade de if e esleif que vc tem ai
A finalidade desse programa é sobre poker, string que esta no text2 equivale o valor de uma carta. por exemplo: se eu digitar no text1 [Ô]aj[Ô] faz a pesquiza no text2 e seleciona a string se for verdadeira, e retorna uma mensagem tipo: [Ô]aj encontrado[Ô] e assim para todas as strings que estão no text2 até a ultima que é [Ô]22[Ô]
o que são essas strings que estaum na text2?
essa string que estão no text2 são valores de cartas de poker.
não dá pra gravar isso num arquivo texto ou banco de dados? (assim vc tira isso dos códigos e possibilita uma busca generica)
Sim toda essa string do text2 está gravada num .txt.
no form o código para abrir o .txt e carregar no text2
Open App.Path & [Ô]\banco\CPR.TXT[Ô] For Input As #1
txtTexto.Text = Input(LOF(1), 1)
Close #1
na verdade eu estou desenvolvendo esse programa, mais estou meio fraco na programação.
o que são essas strings que estaum na text2?
essa string que estão no text2 são valores de cartas de poker.
não dá pra gravar isso num arquivo texto ou banco de dados? (assim vc tira isso dos códigos e possibilita uma busca generica)
Sim toda essa string do text2 está gravada num .txt.
no form o código para abrir o .txt e carregar no text2
Open App.Path & [Ô]\banco\CPR.TXT[Ô] For Input As #1
txtTexto.Text = Input(LOF(1), 1)
Close #1
na verdade eu estou desenvolvendo esse programa, mais estou meio fraco na programação.
Colega vc não precisa de um monte de comparaçãao, apenas esta
If InStr(1, UCase(Text2.Text), UCase(Text1.Text)) <> 0 Then
MsgBox Text1.Text & [Ô] encontrada![Ô]
Else
MsgBox Text1.Text & [Ô] não consta na lista.[Ô]
End If
Muito bem...
agora ta melhor explicado, nesse caso o código do amigo Marcelo-treze resolve o seu problema
agora ta melhor explicado, nesse caso o código do amigo Marcelo-treze resolve o seu problema
Obrigado Marcelo pela atenção, mais o problema é que cada string que esta no text2 contem um valor(uma mensagem), por exemplo:
AA = msgbox [Ô]pode apostar forte com este par[Ô]
KK = msgbox [Ô]aposte duas vezes com esse par de KK[Ô]
QQ = msgbox [Ô]aposte pouco com esse par de QQ[Ô]
AK = msgbox [Ô] iguale ou aumente com AK[Ô]
AQ = msgbox [Ô]apenas iguale a aposta com AQ[Ô]
segue uma mensagem para cada string que esta no text2 até a ultima que é o [Ô]22[Ô]
você entendeu agora como funciona!
AA = msgbox [Ô]pode apostar forte com este par[Ô]
KK = msgbox [Ô]aposte duas vezes com esse par de KK[Ô]
QQ = msgbox [Ô]aposte pouco com esse par de QQ[Ô]
AK = msgbox [Ô] iguale ou aumente com AK[Ô]
AQ = msgbox [Ô]apenas iguale a aposta com AQ[Ô]
segue uma mensagem para cada string que esta no text2 até a ultima que é o [Ô]22[Ô]
você entendeu agora como funciona!
então o ideal é colcar isto tudo em um banco de dados
Valeu amigo(s), muito obrigado pela ajuda.
Tópico encerrado , respostas não são mais permitidas