Como contar caracteres maiusculos em uma frase?

.NET

26/03/2007

[quote:912122600b=´Moderação´][color=red:912122600b]Título editado por Massuda

Por favor, não use apenas letras maiúsculas no título/texto.

Leia as :arrow: [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.[/color:912122600b][/quote:912122600b]
e ae galera.. blz??
to precisando muito contar caracteres de uma uma frase digitada pelo usuário, porém não consigo achar nenhum função que faça, será que alguém sabe ou pelo menos me de as coordenadas de como fazer??

abraços!!!


Jimisl

Jimisl

Curtidas 0

Respostas

Carlosrodrigop

Carlosrodrigop

26/03/2007

claro que existe um metodo para a classe char.

Um objeto do tipo String, em sua origem mais primaria é um array de char basta fazer um looping conforme abaixo usando os metodos da classe char para testar se o char é letra e se caso for se a letra é maiuscula ou minuscula

Dim contador As Integer = 0
            For Each c As Char In Me.PASSWORD
                If Char.IsLetter(c) Then
                    If Char.IsUpper(c) Then
                        contador += 1
                    End If
                End If
            Next



GOSTEI 0
Jimisl

Jimisl

26/03/2007

vou testar esse fonte amigão......
volto aki pra te falar......
brigadãooooooooooooooooooo

(deixa eu te falar.. tenho outros 3 programinha basicos que meu professor passou..... vc podeira me ajuda a fazer????


vlwwwwwwwww


GOSTEI 0
Carlosrodrigop

Carlosrodrigop

26/03/2007

que mal tem


GOSTEI 0
Jimisl

Jimisl

26/03/2007

fera... qual seu e-mail.... pra mim te passar os exercicios....???


abraço!!


GOSTEI 0
Jimisl

Jimisl

26/03/2007

migão....
nessa linha do fonte:
For Each c As Char In Me.PASSWORD

o VB não está achando o comando Me, tenho que habilitar alguma coisa no programa???


vlww..


GOSTEI 0
Jimisl

Jimisl

26/03/2007

migão. consegui fazer..ficou assim:

Module Module1

Sub Main()
Dim password As String
Dim contador As Integer = 0
Console.WriteLine(´Digite uma frase´)
password = Console.ReadLine

For Each c As Char In password
If Char.IsLetter(c) Then
If Char.IsUpper(c) Then
contador += 1
End If
End If
Next

Console.WriteLine(contador)
Console.ReadKey()
End Sub

End Module




qual seu email para te mostrar o resto?


GOSTEI 0
Carlosrodrigop

Carlosrodrigop

26/03/2007

carlosrodrigop@gmail.com


GOSTEI 0
Jimisl

Jimisl

26/03/2007

foi enviado fera... abraço!!!


GOSTEI 0
POSTAR