Como contar caracteres maiusculos em uma frase?

26/03/2007

0

[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

Responder

Posts

27/03/2007

Carlosrodrigop

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



Responder

30/03/2007

Jimisl

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


Responder

30/03/2007

Carlosrodrigop

que mal tem


Responder

30/03/2007

Jimisl

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


abraço!!


Responder

30/03/2007

Jimisl

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..


Responder

30/03/2007

Jimisl

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?


Responder

02/04/2007

Carlosrodrigop

carlosrodrigop@gmail.com


Responder

02/04/2007

Jimisl

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


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar