3 Maneras de Extraer Direcciones de Correo Electrónico de Cadenas o Archivos TXT
Tuesday, April 28, 2020Ahora tiene un archivo de texto mezclado con direcciones de correo electrónico y cadenas de texto, y desea extraer las direcciones de correo electrónico. En este artículo, le mostraré cómo extraer todas las direcciones de correo electrónico de archivos o cadenas TXT utilizando Expresión regular. (Regular Expression)
Tabla de Contenido
Fuente: Regular Expressions (RegEx) in 100 Seconds
Opción#1: Fórmula de Excel
=TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND (" ",A1&" ",FIND("@",A1))-1)," ", REPT(" ",LEN(A1))),LEN(A1))).
Esta fórmula es frustrante si tiene dificultades para usar Excel. Excel tiene reglas estrictas para escribir. Es frecuente que copie y pegue una fórmula compleja, pero Excel no la aceptará a menos que escriba la expresión en la celda. Otro problema asociado con la fórmula de Excel es que debe dedicar una cierta cantidad de tiempo para depurar la expresión, especialmente esto lleva mucho tiempo.
Opción#2: Excel VBA code
Paso 1: Presione las teclas "ALT + F11", y lo llevará a Microsoft Visual Basic para la ventana de la aplicación
Paso 2: haga clic en Insertar> Módulo, copie y pegue lo siguiente en la ventana Módulo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
Sub ExtractEmail()
'Update 20130829
Dim WorkRng As Range
Dim arr As Variant
Dim CharList As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
CheckStr = "[A-Za-z0-9._-]"
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
extractStr = arr(i, j)
outStr = ""
Index = 1
Do While True
Index1 = VBA.InStr(Index, extractStr, "@")
getStr = ""
If Index1 > 0 Then
For p = Index1 - 1 To 1 Step -1
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = Mid(extractStr, p, 1) & getStr
Else
Exit For
End If
Next
getStr = getStr & "@"
For p = Index1 + 1 To Len(extractStr)
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = getStr & Mid(extractStr, p, 1)
Else
Exit For
End If
Next
Index = Index1 + 1
If outStr = "" Then
outStr = getStr
Else
outStr = outStr & Chr(10) & getStr
End If
Else
Exit Do
End If
Loop
arr(i, j) = outStr
Next
Next
WorkRng.Value = arr
End Sub
|
Paso 3: Presiona "OK" para continuar con el proceso
Paso 4: Seleccione el rango que le gustaría aplicar al código anterior. En este caso rango A1: A4
Opción#3: Regular Expression
La expresión regular es muy difícil de aprender si no tienes ningún conocimiento de programación. Sin embargo, puede aplicar esta expresión simple para filtrar la dirección de correo electrónico.
[a-zA-Z0-9-_]{1,}@[a-zA-Z0-9-_]{1,}.[a-zA-Z]{1,}
Octoparse tiene una herramienta RegEx incorporada, que es muy conveniente para que las personas limpien los datos extraídos. Especialmente para los profesionales que no son de TI, es una ventaja adicional que no tienes que pasar tiempo para aprender Python. Con la herramienta de web scraping Octoparse, ahora es posible tener extracción de datos, limpieza y exportación todo en uno.
Paso 1: Abrir la aplicación Octoparse
Paso 2: Copie la cadena de texto en el Source Text. En este caso, la cadena de texto es:
This email address is valid: web@email.net and this email address is not valid web@email. Same as what_ever@public.com is a valid email address and address test@test. is not valid! OCTOPARSE@test.com is also valid
Paso 3: Copie y pegue la expresión en el cuadro "Expresión regular".
Paso 4: Elige la opción "Hacer coincidir todo" en la parte inferior y haz clic en "Hacer coincidir".
9 Desafíos de Web Scraping que Debes Conocer
Cómo Scrapear Datos de una Web a Gran Escala
9 Raspadores Web GRATIS que No Te Puedes Perder en 2021
25 Maneras de Web Scraping Técnicas para Crecer Negocio
10 Malentendidos sobre el Web Scraping
20 Herramientas de Web Scraping para Extraer Datos Rápidamente
Posts más populares
- 1 . Extraer los Datos de Entrega de Alimentos de Uber Eats de Forma Gratuita
- 2 . Las 20 Mejores Herramientas de Web Scraping para 2021
- 3 . Los 30 Mejores Software Gratuitos de Web Scraping en 2021
- 4 . Importancia del Web Scraping en el Comercio Electrónico
- 5 . Extracción de Datos Dinámicos en Tiempo Real
¡Descarga Octoparse para comenzar con el web scraping o contáctanos para cualquier
pregunta sobre el web scraping!