MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Separar textos

    Compartilhe

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    [Resolvido]Separar textos

    Mensagem  biligo em Ter 09 Dez 2014, 16:04

    Boas pessoal,

    Estou a utilizar a função do mestre JPaulo para separar textos qualquer, segue caso não tenham conhecimento.

    Código:
    Public Function SeparaNomes(strFrase As String, QualSimboloVaiPartir As String, QualParteVaiSeparar As Integer) As String
    'By@JPaulo2009 Dezembro
    'Função separa uma frase pelas virgulas ou outro símbolo
    'Exemplo: SeparaNomes("Esta é uma função\feita para separar palavras.", "\", 1)
    'O 1 vai mostrar a primeira parte da frase, "Esta é uma função"

    Dim strArray() As String
    Dim strParteInteira As Integer

    On Error GoTo Err_SeparaNomes

    strArray = Split(strFrase, QualSimboloVaiPartir)

    strParteInteira = UBound(strArray) + 1

    If strParteInteira = 0 Then
    SeparaNomes = strFrase
    Exit Function
    End If

    If QualParteVaiSeparar = 0 Then
    SeparaNomes = strFrase
    Exit Function
    ElseIf QualParteVaiSeparar < strParteInteira Then
    QualParteVaiSeparar = strParteInteira
    End If

    SeparaNomes = Trim(strArray(QualParteVaiSeparar - 1))

    Exit_SeparaNomes:
    Exit Function

    Err_SeparaNomes:
    MsgBox Err & " - " & Error$, vbExclamation, "Função SeparaNomes"
    Resume Exit_SeparaNomes
    Resume

    Bom a questão é que, posso não estar sabendo utilizá-la corretamente ou talvez não seja o caso de estar utilizando-a.
    Preciso separar um determinado local exemplo: "C:\Users\Usuário\Desktop\Primeira Pasta\Segunda Pasta\Terceira Pasta\Arquivo.txt"
    E o que preciso pegar é apenas o que vem antes do arquivo, "C:\Users\Usuário\Desktop\Primeira Pasta\Segunda Pasta\Terceira Pasta\"
    Não sera sempre que estará neste formato, pode haver mais pastas.
    Se houver alguma forma de utilizar esta função para separar baseando-me em "\" do ultimo para traz agradeço se me falarem.

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Separar textos

    Mensagem  Roberto_1977 em Ter 09 Dez 2014, 16:22

    Boa tarde,

    Veja se código abaixo serve?

    Para teste cria 2 campos (CampoComCaminhoCompleto + CampoComCaminhosemnomeficheiros) e um botão (Command2).

    Private Sub Command2_Click()
    CampoComCaminhoCompleto = left(CampoComCaminhosemnomeficheiros, InStrRev(CampoComCaminhosemnomeficheiros, "\") + 0)
    End Sub


    Abraço...

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    Re: [Resolvido]Separar textos

    Mensagem  biligo em Ter 09 Dez 2014, 19:30

    Boas Roberto,

    Muito obrigado, funcionou perfeitamente para o que eu esperava. Não funcionou a funcionalidade, mais isto é outro caso XD

    Grato.

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    Re: [Resolvido]Separar textos

    Mensagem  biligo em Ter 09 Dez 2014, 19:31

    Very Happy Não havia fechado

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Separar textos

    Mensagem  Roberto_1977 em Qua 10 Dez 2014, 08:33

    Obrigado pelo retorno.....

    O Forum agradece...

    Abraço.. Cool

      Data/hora atual: Sex 09 Dez 2016, 07:43