MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido] Contar caracteres ">" ou "<"

    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 291
    Registrado : 24/02/2013

    [Resolvido] Contar caracteres ">" ou "<" Empty [Resolvido] Contar caracteres ">" ou "<"

    Mensagem  brunogor 11/2/2016, 14:07

    Viva,

    O código que se segue serve para contar os "Espaços" existentes numa String:
    Código:
    Function SpaceCount(myData) As Integer
    Dim intChr As Integer
    Dim intCount As Integer
    For intChr = 1 To Len(myData)
    If Mid(myData, intChr, 1) = Space(1) Then
    intCount = intCount + 1
    End If
    ' allow for window events in loop
    DoEvents
    Next intChr
    SpaceCount = intCount
    End Function

    Mas o que eu queria era contar o número de caracteres ">" ou "<" existentes.

    Podem-me ajudar?

    Obrigado

    Bruno Gordino


    Última edição por brunogor em 11/2/2016, 17:27, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido] Contar caracteres ">" ou "<" Empty Re: [Resolvido] Contar caracteres ">" ou "<"

    Mensagem  JPaulo 11/2/2016, 14:20

    Ola;

    Assim conta de certeza os ">";

    If Mid(myData, intChr, 1) = ">" Then

    Assim conta ambos;

    If Mid(myData, intChr, 1) = ">" Or Mid(myData, intChr, 1) = "<" Then


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Contar caracteres ">" ou "<" Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Contar caracteres ">" ou "<" Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Contar caracteres ">" ou "<" Folder_announce_new Instruções SQL como utilizar...
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 291
    Registrado : 24/02/2013

    [Resolvido] Contar caracteres ">" ou "<" Empty Contar caracteres ">" ou "<"

    Mensagem  brunogor 11/2/2016, 15:09

    Viva Sr, João Paulo

    Funciona, muito obrigado mais uma vez pela sua disponibilidade.

    Cumprimentos

    Bruno Gordino

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido] Contar caracteres ">" ou "<" Empty Re: [Resolvido] Contar caracteres ">" ou "<"

    Mensagem  JPaulo 11/2/2016, 15:15

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Contar caracteres ">" ou "<" Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Contar caracteres ">" ou "<" Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Contar caracteres ">" ou "<" Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido] Contar caracteres ">" ou "<" Empty Re: [Resolvido] Contar caracteres ">" ou "<"

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 21:53