- Então, o que fará se precisar encontrar as informações essenciais para a segurança da sua empresa ou site?
- E se os dados não estiverem disponíveis nesses mecanismos de pesquisa?
Propósito
✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
Pesquisadores de Segurança | 21 - Mecanismos de Busca de Dados da Internet
MS Access | Detectando e Extraindo Caracteres Invisíveis - UDF for Excel and Access that Extracts all Invisible and Special Characters
Não é raro precisarmos extrair caracteres invisíveis de uma string. E isso pode tomar um tempo enorme até descobrirmos qual é o real problema.
Conheça e faça download de uma planilha pronta do Excel que calcula o TEMPO e a DISTÂNCIA de viagem usando a API do Google Maps
Alguns caracteres especiais não podem ser vistos, pois atrapalham no momento em que agrupamos dados.
Como retirá-los?
Essa função abaixo foi melhorada, tem o escopo ampliado para pegar vários desses caracteres:
Aprenda: 17 Passos Essenciais para Melhorar seu Código VBA
Public Function ExtractInviChars (strCk As String, Optional strRepWith As String = "") As String
' co-Author: André Bernardes
' Date: 16.08.22
' Description: Extrai caracters invisíveis.
' Caracteres de nome de arquivo ilegais incluídos numa string padrão, entre outros, são: ? [ ] / = + < > :; * " , '
' MS EXCEL: A função TIRAR foi desenvolvida para remover os
' 32 primeiros caracteres não imprimíveis no código ASCII
' de 7 bits (valores de 0 a 31) do texto. O conjunto de
' caracteres Unicode contém outros caracteres não imprimíveis
' (valores 127, 129, 141, 143, 144 e 157). Por si própria, a
' função TIRAR NÃO remove esses caracteres adicionais não
' imprimíveis.
'From http://www.utteraccess.com/wiki/index.php?title=Strip_Illegal_Characters&diff=4158&oldid=4156
On Error GoTo StripIllErr
Dim intI As Integer
Dim intPassedString As Integer
Dim intCheckString As Integer
Dim strChar As String
Dim strIllegalChars As String
Dim intReplaceLen As Integer
If IsNull(strCk) Then Exit Function
'Adicione ou remova todos os caracteres que precisar na string abaixo que servirá de base comparativa:
Let strIllegalChars = "?[]/=+<>:;,*-" & Chr(34) & Chr(39) & Chr(32) _
& Chr(0) & Chr(1) & Chr(2) & Chr(3) & Chr(4) & Chr(5) & Chr(6) & Chr(7) & Chr(8) _
& Chr(9) & Chr(10) & Chr(11) & Chr(12) & Chr(13) & Chr(14) & Chr(15) & Chr(16) _
& Chr(17) & Chr(18) & Chr(19) & Chr(20) & Chr(21) & Chr(22) & Chr(23) & Chr(24) _
& Chr(25) & Chr(26) & Chr(27) & Chr(28) & Chr(29) & Chr(30) & Chr(31) & Chr(127) _
& Chr(129) & Chr(141) & Chr(143) & Chr(144) & Chr(157)
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() _
'& Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr() & Chr()
Let intPassedString = Len(strCk)
Let intCheckString = Len(strIllegalChars)
Let intReplaceLen = Len(strRepWith)
If intReplaceLen > 0 Then 'Caractere foi inserido para ser usado como caractere de substituição
If intReplaceLen = 1 Then 'verifique se o caractere em si não é um caractere ilegal
If InStr(strIllegalChars, strRepWith) > 0 Then
MsgBox "Você não pode substituir um caractere ilegal por outro caractere ilegal", _
vbOKOnly + vbExclamation, "Caractere inválido"
Let fStripIllegal = strCk
Exit Function
End If
Else 'apenas um caractere de substituição permitido
MsgBox "Apenas um caractere é permitido como caractere de substituição", _
vbOKOnly + vbExclamation, "String de substituição inválida"
Let fStripIllegal = strCk
Exit Function
End If
End If
If intPassedString < intCheckString Then
For intI = 1 To intCheckString
Let strChar = Mid(strIllegalChars, intI, 1)
If InStr(strCk, strChar) > 0 Then
Let strCk = Replace(strCk, strChar, strRepWith)
End If
Next intI
Else
For intI = 1 To intPassedString
Let strChar = Mid(strIllegalChars, intI, 1)
If InStr(strCk, strChar) > 0 Then
Let strCk = Replace(strCk, strChar, strRepWith)
End If
Next intI
End If
Let ExtractInviChars = Trim(strCk)
StripIllErrExit:
Exit Function
StripIllErr:
MsgBox "Ocorreu o seguinte erro: " & Err.Number & vbCrLf _
& Err.Description, vbOKOnly + vbExclamation, "Erro inesperado..."
Let fStripIllegal = strCk
Resume StripIllErrExit
End Function
ESTADOS BRASILEIROS | Respectivas Capitais e Siglas - Por Região Geográfica
A divisão político-administrativa do Brasil
O Brasil possui seu território dividido em estados. Atualmente o país está dividido em 26 estados e um Distrito Federal.
Baixe também:
Os estados estão divididos em municípios.
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Comente e compartilhe este artigo!
Baixe as versões abaixo, salvando como MS Excel:
- Google Sheets | 2030 - DOWNLOAD - LISTA COM TODOS OS DIAS DO ANO
- Google Sheets | 2029 - DOWNLOAD - LISTA COM TODOS OS DIAS DO ANO
- Google Sheets | 2028 - DOWNLOAD - LISTA COM TODOS OS DIAS DO ANO
- Google Sheets | 2027 - DOWNLOAD - LISTA COM TODOS OS DIAS DO ANO
- Google Sheets | 2026 - DOWNLOAD - LISTA COM TODOS OS DIAS DO ANO
- Google Sheets | 2025 - DOWNLOAD - LISTA COM TODOS OS DIAS DO ANO
- Google Sheets | 2024 - DOWNLOAD - LISTA COM TODOS OS DIAS DO ANO
- Google Sheets | 2023 - DOWNLOAD - LISTA COM TODOS OS DIAS DO ANO
- Google Sheets | 2022 - DOWNLOAD - LISTA COM TODOS OS DIAS DO ANO
- Google Sheets | 2021 - DOWNLOAD - LISTA COM TODOS OS DIAS DO ANO
- Google Sheets | 2020 - DOWNLOAD - LISTA COM TODOS OS DIAS DO ANO
Talvez precise de uma tabela com todos os estados (UF):
Baixe também:
Leia também:
Aprenda outros códigos:
Aprenda ainda outros códigos:
Série Piece of Cake:
- PIECE OF CAKE - MS Excel - Zipando - Compacte no formato Zip
- PIECE OF CAKE - MS Excel - Zipando - Escolha os Arquivos a Compactar
- PIECE OF CAKE - MS Excel - Zipando - Escolha uma Pasta e Compacte
- PIECE OF CAKE - MS Excel - Zipando - Compacte Todos os Arquivos da Pasta
- PIECE OF CAKE - MS Excel - Zipando - Compacte a Planilha Atual
- PIECE OF CAKE - MS Excel - Zipando - Compacte e Envie por e-Mail
- PIECE OF CAKE - Connecting to Oracle 12g with Excel VBA
- PIECE OF CAKE - Extract Path From String
- PIECE OF CAKE - Detecta se Arquivo Existe
- PIECE OF CAKE - MS Excel - Finding Last Row
- PIECE OF CAKE - Obtendo Endereço IP
- PIECE OF CAKE - Criando Arquivo Texto Externo
- PIECE OF CAKE - Criando Tabelas no SQL Server a partir do MS Excel
- PIECE OF CAKE - Notação Húngara
- PIECE OF CAKE - Usando Stored Procedures
- PIECE OF CAKE - Microsoft Access - Removendo Prefixo das Tabelas
- PIECE OF CAKE - MS Access e MS Word - Técnica de Automação
- PIECE OF CAKE - MS Access - 5 Formas Manuais de Reparo
- PIECE OF CAKE - Correção de Métricas
- PIECE OF CAKE - Convertendo Texto em Imagem
- PIECE OF CAKE - Excel - Manipule o Google Maps em sua Planilha
- PIECE OF CAKE - VBA Excel - Traduzindo Planilhas - Google Translate API
- PIECE OF CAKE - Defina a Latitude e a Longitude
Séries Donuts:
- DONUT PROJECT 2018 - VBA - 12 - Aumente sua Produtividade
- DONUT PROJECT 2018 - VBA - 11 - Os Benefícios do Controle de Versão
- DONUT PROJECT 2018 - VBA - 10 - Loop For-Each
- DONUT PROJECT 2018 - VBA - 09 - Método Count
- DONUT PROJECT 2018 - VBA - 08 - Referenciando Ranges
- DONUT PROJECT 2018 - VBA - 07 - Amostra de Macro
- DONUT PROJECT 2018 - VBA - 06 - Recursos Adicionais
- DONUT PROJECT 2018 - VBA - 05 - Gravando a Primeira Macro
- DONUT PROJECT 2018 - VBA - 04 - Opções de Solução
- DONUT PROJECT 2018 - VBA - 03 - Requisitos e Preparação
- DONUT PROJECT 2018 - VBA - 02 - Continua Cético
- DONUT PROJECT 2018 - VBA - 01 - Maximizando Sua Eficiência
- DONUT PROJECT 2018 - Excel - Gravando Macro Altere SELECT por RANGE
- DONUT PROJECT 2018 - O que Desenvolvedores Aprendem com Michael Jordan
- DONUT PROJECT 2018 - Excel - Macros - Mudando o Mindset
- DONUT PROJECT 2018 - Excel - Acelerando Macros
- DONUT PROJECT 2015 - Extraindo e-Mails
- DONUT PROJECT 2015 - Função - Extraindo Elementos da String
- DONUT PROJECT 2015 - Função - Retornando Nº de ocorrências de um Caractere
- DONUT PROJECT 2015 - Função - Retorna Conteúdo Delimitado por 2 Caracteres
- DONUT PROJECT 2015 - Função - Retorna Apenas o Conteúdo Entre Parênteses
- DONUT PROJECT 2015 - Função - Extrai Conteúdo entre Parênteses
- DONUT PROJECT 2015 - Excel - Report Layout
- DONUT PROJECT 2015 - Excel - Grand Totals - Inserindo Totais na Tabela Dinâmica
- DONUT PROJECT 2015 - Excel - Mudando a Fonte de Dados da Tabela Dinâmica
- DONUT PROJECT 2015 - Excel - Aplicando Refresh em Tabelas Dinâmicas
- DONUT PROJECT 2015 - Como Manter Informações parcialmente Anônimas
- DONUT PROJECT 2015 - Excel - Limpando o Filtro da Tabela Dinâmica
- DONUT PROJECT 2015 - Excel - Criando Filtros Múltiplos na Tabela Dinâmica
- DONUT PROJECT 2015 - Excel - Criando Filtro de Relatório na Tabela Dinâmica
- DONUT PROJECT 2015 - Excel - Remover Campos Calculados da Tabela Dinâmica
- DONUT PROJECT 2015 - Excel - Remover Campos da Tabela Dinâmica
- DONUT PROJECT 2015 - Excel - Adicionar Campos Calculados na Tabela Dinâmica
- DONUT PROJECT 2015 - Excel - Apagar todas as Tabelas Dinâmicas
- DONUT PROJECT 2015 - Excel - Apagar Tabela Dinâmica Específica
- DONUT PROJECT 2015 - Adicionar Rodapé de Confidencialidade no Office
- DONUT PROJECT 2015 - Excel - Criando uma Tabela Dinâmica
- DONUT PROJECT - Use os add-ins do MS Excel e dê um salto em sua performance
- DONUT PROJECT - VBA - Automatize o Outlook para enviar um e-mail com anexo
- DONUT PROJECT - VBA - Outlook - Salvando arquivos anexados nos e-mails
- DONUT PROJECT - VBA - Criando uma Matriz de Datas MAT - Moving Annual Total
- DONUT PROJECT - VBA - Excel - Atualize Tabelas Dinâmicas
- DONUT PROJECT - VBA - Excel - Removendo os Caracteres Alfabéticos e Especiais
- DONUT PROJECT 2014 - VBA - Access - Criando uma Query com Parâmetros
- DONUT PROJECT 2014 - VBA - Access - Atualizando o conteúdo de uma Query
- DONUT PROJECT - VBA - Access - Saiba o Número de Registro de cada tabela
- DONUT PROJECT - VBA - Access - Extraia Dados sem Problemas de TIMEOUT
- DONUT PROJECT - VBA - Access - Lista o Tamanho de Todas as Tabelas
- DONUT PROJECT - VBA - Excel - Populando um ListBox no seu Formulário
- DONUT PROJECT - VBA - Excel - Importando arquivos CSV
- DONUT PROJECT - VBA - Excel - Deletando Conexões de Dados
- DONUT PROJECT - VBA - Excel - Obtendo o Nome da Planilha sem a Extensão
- DONUT PROJECT - VBA - WORD - Exportação Automatizada - DOC para PDF