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.
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.
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"Oimagemarquivo não pôde ser carregadacarregado - Escolha aoimagemarquivo."
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 "Aimagem não pôde ser carregada - Escolha aimagem."
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 "Oarquivo não pôde ser carregado - Escolha oarquivo."
strPath = EscolherCaminho
GoTo Inicio
End If
'Close
Close #fileNo
End Sub