BeautifulSoup 4 HTML网页抓取查找Mailto链接并导出到电子表格

Question

我正在尝试从该索引页中删除所有电子邮件地址-http://www.uschess.org/assets/msa_joomla/AffiliateSearch/clubresultsnew.php?st=AL

我修改了python脚本来定义字符串，用BS4解析内容，并将每个唯一地址保存到xls文件中：

import requests
from bs4 import BeautifulSoup
import xlwt

wb = xlwt.Workbook()
ws = wb.add_sheet('Emails')
ws.write(0,0,'Emails')

emailList= []
r=0

#add url of the page you want to scrape to urlString
urlString='http://www.uschess.org/assets/msa_joomla/AffiliateSearch/clubresultsnew.php?st=AL'

#function that extracts all emails from a page you provided and stores them in a list
def emailExtractor(urlString):
getH=requests.get(urlString)
h=getH.content
soup=BeautifulSoup(h,'html.parser')
mailtos = soup.select('a[href^=mailto]')
for i in mailtos:
    href=i['href']
    try:
        str1, str2 = href.split(':')
    except ValueError:
        break
    
    emailList.append(str2)
    
   emailExtractor(urlString)
   #adding scraped emails to an excel sheet
   for email in emailList:
   r=r+1
   ws.write(r,0,email)

    wb.save('emails.xls')

xls文件按预期导出，但没有电子邮件值。如果有人能解释为什么或如何简化此解决方案，将不胜感激

Answer 1

您可以使用pandas进行此操作。以下是完整的代码：

from bs4 import BeautifulSoup
import requests
import re
import pandas as pd

urlString = 'http://www.uschess.org/assets/msa_joomla/AffiliateSearch/clubresultsnew.php?st=AL'


# function that extracts all emails from a page you provided and stores them in a list
def emailExtractor(urlString):
   
    emailList = []
    getH = requests.get(urlString)
    h = getH.content
    soup = BeautifulSoup(h, 'html.parser')

    mailtos = soup.find_all('a')

    href_lst = []
    for i in mailtos:
        href_lst.append(i['href'])

    for href in href_lst:
        if ':' in href:
            emailList.append(href)
    print(emailList)

    s = pd.Series(emailList)

    s = s.rename('Emails')
    
    s.to_excel('D:\\Emails.xls',index=False)

emailExtractor(urlString)

输出：

['http://msa.uschess.org/AffDtlMain.php?T6006791', 'https://alabamachess.org', 'http://msa.uschess.org/AffDtlMain.php?A6029262', 'http://www.caesarchess.com/', 'http://msa.uschess.org/AffDtlMain.php?A6045660', 'http://msa.uschess.org/AffDtlMain.php?H6046485', 'http://msa.uschess.org/AffDtlMain.php?A6040580']

Excel工作表屏幕截图：

如果希望将链接作为hyperlinks输出到excel工作表（单击链接后将重定向到网站），则将emailList.append(href)更改为emailList.append('=HYPERLINK("'+href+'")')。 同时，您还应该将文件扩展名更改为.xlsx。只有这样，你才能得到超链接的链接

输出：

希望这有帮助