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á.
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
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)