Array
(
)

Como contar caracteres maiusculos em uma frase?

Jimisl
   - 26 mar 2007


Citação:
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.

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

Carlosrodrigop
   - 27 mar 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

#Código

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


Jimisl
   - 30 mar 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

Carlosrodrigop
   - 30 mar 2007

que mal tem

Jimisl
   - 30 mar 2007

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

abraço!!

Jimisl
   - 30 mar 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..

Jimisl
   - 30 mar 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?

Carlosrodrigop
   - 02 abr 2007

carlosrodrigop@gmail.com

Jimisl
   - 02 abr 2007

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