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

    Cadeia de caracteres

    avatar
    mbtec
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 31/08/2015

    Cadeia de caracteres Empty Cadeia de caracteres

    Mensagem  mbtec 4/9/2015, 14:45

    Prezados,

    Tenho uma tabela em Access 2010  com títulos de softwares capturados nas máquinas da rede.
    Preciso separar o título dos softwares do número da versão que vem junto, lembrando que os títulos tem tamanhos diferentes, conforme abaixo:

    Software
    Adobe Photoshop Lightroom 2 64-bit
    Adobe Photoshop Lightroom 3.6 64-bit
    Adobe Photoshop Lightroom 4.4 64-bit
    Adobe Photoshop Lightroom 5.7 64-bit
    Adobe Photoshop Lightroom 5.7.1 64-bit
    Apache HTTP Server 2.2.15
    Apache HTTP Server 2.2.17
    Apache HTTP Server 2.2.21
    Apache HTTP Server 2.2.22
    Apache Tomcat 6.0
    Apache Tomcat 7.0
    Apache Tomcat 7.0
    Apache Tomcat 7.0
    Apache Tomcat 7.0
    Apache Tomcat 7.0

    Obrigado,

    Mbtec.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8251
    Registrado : 05/11/2009

    Cadeia de caracteres Empty Re: Cadeia de caracteres

    Mensagem  Alexandre Neves 6/9/2015, 09:46

    Bom dia, e bem-vindo ao fórum
    Código:
    Function Titulo(strNome As String) As String
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Titulo = Mid(strNome, 1, Len(strNome) - Len(Versao(strNome)) - 1)
    End Function

    Function Versao(strNome As String) As String
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim I As Integer, Caracter As String
        For I = 1 To Len(strNome)
            Caracter = Mid(strNome, I, 1)
            If InStr(1, "0123456789", Caracter) > 0 Then Exit For
        Next
        Versao = Mid(strNome, I)
    End Function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    mbtec
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 31/08/2015

    Cadeia de caracteres Empty Agradecimento

    Mensagem  mbtec 8/9/2015, 12:33

    Olá Alexandre ,

    Agradeço o retorno.
    Vou implementar...
    Abraço.

    mbtec.

      Data/hora atual: 3/12/2022, 03:52