Skip to main content
adicionou 42 caracteres ao conteúdo
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

O IsDate pode causar alguns erros (Pois tenta verificar se é data em formatos universais, de vários países...), refira a esta resposta para outra forma de verificar se é data.

O IsDate pode causar alguns erros, refira a esta resposta para outra forma de verificar se é data.

O IsDate pode causar alguns erros (Pois tenta verificar se é data em formatos universais, de vários países...), refira a esta resposta para outra forma de verificar se é data.

adicionou 3 caracteres ao conteúdo
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

Este padrão somente pega uma string no formato 2números/2números/4números e a validação da Data, para verificar se a mesma é válida, é realizada pelo Excel com o IsDate().

O IsDate pode causar alguns erros, refira a esta resposta para outra forma de verificar se é data.

Com estes dados encontrados num teste no txt:

Este padrão somente pega uma string no formato 2números/2números/4números e a validação da Data, para verificar se a mesma é válida, é realizada pelo Excel com o IsDate()

Com estes dados encontrados:

Este padrão somente pega uma string no formato 2números/2números/4números e a validação da Data, para verificar se a mesma é válida, é realizada pelo Excel com o IsDate().

O IsDate pode causar alguns erros, refira a esta resposta para outra forma de verificar se é data.

Com estes dados encontrados num teste no txt:

adicionou 3 caracteres ao conteúdo
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32
Sub ValidarDados()

    Dim objStream As Object
    Dim strData As String
    Dim fileName As String, textData As String, fileNo As Integer
    sFilename = "temp.txt"
    sFilepath = ThisWorkbook.Path & "\" & sFilename
    fileNo = FreeFile                            'Get first free file number
 

Inicio:
    If Dir(sFilepath) <> "" Then
        Open sFilepath For Input As #fileNo
        strData = Input$(LOF(fileNo), fileNo)

        Dim objMatches As Object, objRegExp As Object
        Set objRegExp = CreateObject("VBScript.RegExp")
        'Regex
        objRegExp.Pattern = "\d{2}\/\d{2}\/\d{4}"
        objRegExp.Global = True

        Set objMatches = objRegExp.Execute(strData)
        If objMatches.Count <> 0 Then
            For Each m In objMatches
                If IsDate(m) Then MsgBox m 'Debug.Print m
            Next m
        End If
    Else
        MsgBox "A"O imagemarquivo não pôde ser carregadacarregado - Escolha ao imagemarquivo."
        strPath = EscolherImagemEscolherCaminho
        GoTo Inicio
    End If
    'Close
    Close #fileNo

End Sub
Sub ValidarDados()

    Dim objStream As Object
    Dim strData As String
    Dim fileName As String, textData As String, fileNo As Integer
    sFilename = "temp.txt"
    sFilepath = ThisWorkbook.Path & "\" & sFilename
    fileNo = FreeFile                            'Get first free file number
 

Inicio:
    If Dir(sFilepath) <> "" Then
        Open sFilepath For Input As #fileNo
        strData = Input$(LOF(fileNo), fileNo)

        Dim objMatches As Object, objRegExp As Object
        Set objRegExp = CreateObject("VBScript.RegExp")
        'Regex
        objRegExp.Pattern = "\d{2}\/\d{2}\/\d{4}"
        objRegExp.Global = True

        Set objMatches = objRegExp.Execute(strData)
        If objMatches.Count <> 0 Then
            For Each m In objMatches
                If IsDate(m) Then MsgBox m 'Debug.Print m
            Next m
        End If
    Else
        MsgBox "A imagem não pôde ser carregada - Escolha a imagem."
        strPath = EscolherImagem
        GoTo Inicio
    End If
    'Close
    Close #fileNo

End Sub
Sub ValidarDados()

    Dim objStream As Object
    Dim strData As String
    Dim fileName As String, textData As String, fileNo As Integer
    sFilename = "temp.txt"
    sFilepath = ThisWorkbook.Path & "\" & sFilename
    fileNo = FreeFile                            'Get first free file number
 

Inicio:
    If Dir(sFilepath) <> "" Then
        Open sFilepath For Input As #fileNo
        strData = Input$(LOF(fileNo), fileNo)

        Dim objMatches As Object, objRegExp As Object
        Set objRegExp = CreateObject("VBScript.RegExp")
        'Regex
        objRegExp.Pattern = "\d{2}\/\d{2}\/\d{4}"
        objRegExp.Global = True

        Set objMatches = objRegExp.Execute(strData)
        If objMatches.Count <> 0 Then
            For Each m In objMatches
                If IsDate(m) Then MsgBox m 'Debug.Print m
            Next m
        End If
    Else
        MsgBox "O arquivo não pôde ser carregado - Escolha o arquivo."
        strPath = EscolherCaminho
        GoTo Inicio
    End If
    'Close
    Close #fileNo

End Sub
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32
Carregando