NOME ARQUIVO

USUARIO.EXCLUIDOS 22/08/2007 15:53:28
#232088
PESSOAL,

DESENVOLVI UM MODULO QUE IMPORTA O ARQUIVO TEXTO PARA SQL 2000
SO QUE PRECISO PADRONIZAR OS NOMES DOS ARQUIVOS, EXEMPLO
O NOME DE TODOS ARQUIVOS DEVERIA SER
CARTEIRA_DATAENVIO_ID
FICARIA ASSIM
TESTE_22082007_01

COMO POSSO VERIFICAR SE O NOME ESTA NO PADRA QUE PRECISO...????

A SELEÇÃO DO ARQUIVO E PELO FILE

ATT,
MARCELO BRESSAN
USUARIO.EXCLUIDOS 22/08/2007 16:00:05
#232090 Resposta escolhida
Amigo, creio que vc já tem o nome do arquivo em uma string certo??

Se sim, basta vc dar um split nessa String... e verificar cada parte da mesma...

Algo do tipo:
Public Function VerificaPadrao(NomeArq As String) As Boolean
    VerificaPadrao = True
    
    Dim arNome As Variant
    
    arNome = Split(NomeArq, "_")
    
    If UBound(arNome) <> 2 Then
        VerificaPadrao = False
        Exit Function
    End If
        
    If arNome(0) <> CARTEIRA_VALIDA Then VerificaPadrao = False
    If arNome(1) <> DATAENVIO_VALIDA Then VerificaPadrao = False
    If arNome(1) <> ID_VALIDO Then VerificaPadrao = False
End Function


Só é necessário verificar o que vc deveria considerar uma carteira válida, uma data de envio válida e um ID válido.
USUARIO.EXCLUIDOS 22/08/2007 16:30:44
#232105
funcionou obrigado !!!

Att,

Marcelo Bressan
Tópico encerrado , respostas não são mais permitidas
Voltar