MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Separar textos

    Compartilhe
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 216
    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.
    avatar
    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...
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 216
    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.
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Separar textos

    Mensagem  biligo em Ter 09 Dez 2014, 19:31

    Very Happy Não havia fechado
    avatar
    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: Seg 20 Nov 2017, 13:36