Array
(
)

Localizando caracter numa string

Dem_cris
   - 20 nov 2007

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
   - 22 nov 2007

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