Divida num programa

[glbaptista 0]

olah gente, sou iniciante em programação e preciso fazer um programa q le as strings cm 5 char no max de um txt e diz se elas estao dentro de um padrao: - as letras seguintes tm de ser "maiores" q as anteriores, a<b<c<d<.....<z entao gostaria de fazer como faco para quebrar uma string em varios char e depois compara-los pelo seu valor, obrigado.

[Dennys Lopes 0]

Voce pode fazer um For usando o MID para ir separando as letras ... Por exemplo:

 

dim strLen as integerstrLen = len(StringALer)For conta = 1 to strLen	   msgbox mid(StringALer, conta, 1)Next

 

Assim voce vai passar por todos os caracteres .....

Se precisar de mais alguma coisa é só perguntar

[lcs_sp 0]

Olá...montei um código aki rapidinho nem sei se dá pra melhorar, mas acho q e isso que você querPrivate Sub Command1_Click() Dim temp(6) As String For i = 0 To Len(Text1.Text) temp(i) = Mid(Text1.Text, i + 1, 1) Next For i = LBound(temp) To UBound(temp) - 1 If temp(i + 1) <> "" Then If temp(i) > temp(i + 1) Then MsgBox "erro" End If End If NextEnd Sub