Localizando caracter numa string

20/11/2007

0

Pessoal,
Achei uma função semelhante aqui no forum, para verificar a repetição de caracteres numa string. Em DELPHI e em VB.

Preciso de uma coisa mais simples.
Explico:

Numa string com o FullFilename,
Exemplo = ´c:\arquivos de programas\cejio\1234-09-789.jpg´

Necessito cortar todo o nome ate a ultima barra ´\ ´.
Ficando Exemplo=1234-09-789.jpg

Problemas encontrados:
1 -É que o nome muda a quantidade de carateres.
2 -É que o caminho nem sempre é o mesmo.

Então o que pensei foi manter todos os caracteres ate o primeiro caracter ´\´, de tras pra frente.

tem como?

Obrigado desde já.


Dem_cris

Dem_cris

Responder

Posts

22/11/2007

Dem_cris

Já consegui. Obrigado Fabio.

Segue o codigo.

Function fcn_NomeArquivo(wFullFileName$) As String

Dim Dir$, i¬

For i¬ = Len(wFullFileName$) To 1 Step -1
If Mid(wFullFileName$, i¬, 1) = ´\´ Then
Dir$ = Mid(wFullFileName$, i¬ + 1, Len(wFullFileName$))
Exit For
End If
Next

fcn_NomeArquivo = Dir$

End Function

Function fcn_NomeDiretorio(wFullFileName$) As String

Dim Dir$, i¬

For i¬ = Len(wFullFileName$) To 1 Step -1
If Mid(wFullFileName$, i¬, 1) = ´\´ Then
Dir$ = Mid(wFullFileName$, 1, i¬ - 1)
Exit For
End If
Next

fcn_NomeDiretorio = Dir$

End Function


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar