|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Separar o Path do Nome do Arquivo e Extensão
|
 |
|
|
|
Postada em 3/2/2003 por Felipe
' Essa função irá retornar apenas o path de uma string que
' contenha o path e o nome do arquivo
Function ParsePath (sPathIn As String) As String
Dim I As Integer
For I = Len(sPathIn) To 1 Step -1
If InStr(":\", Mid$(sPathIn, I, 1)) Then Exit For
Next
ParsePath = Left$(sPathIn, I)
End Function
' Essa função irá retornar apenas o nome do arquivo de uma
' string que contenha o path e o nome do arquiva
Function ParseFileName (sFileIn As String) As String
Dim I As Integer
For I = Len(sFileIn) To 1 Step -1
If InStr("\", Mid$(sFileIn, I, 1)) Then Exit For
Next
ParseFileName = Mid$(sFileIn, I + 1, Len(sFileIn) - I)
End Function
' E essa função retorna a extensão de uma determinada string
Function GetFileExt (sFileName As String) As String
Dim P As Integer
For P = Len(sFileName) To 1 Step -1
'Find the last ocurrence of "." in the string
If InStr(".", Mid$(sFileName, P, 1)) Then Exit For
Next
GetFileExt = Right$(sFileName, Len(sFileName) - P)
End Function
'Exemplo:
Sub Command1_Click ()
Dim sTargetString As String
' armazenando em uma string
sTargetString = Text1.Text
'Mostrando o path
Label1 = ParsePath(sTargetString)
'Mostrando o nome do arquivo
Label2 = ParseFileName(sTargetString)
'Mostrando a extensão
Label3 = GetFileExt(sTargetString)
End Sub
|
|
|
|
|
