找回密码
 立即注册

QQ登录

只需一步,快速开始

PropellerAds
Google-Bing-Mediago-Criteo开户
⚡️按条S5代理⚡️静态⚡️独享⚡️5G广告专用虚拟卡/U充值/高返点皇家代理IP⚡️#1性价比⚡️
Mediabuy⚡️玩家开户首选【鲁班跨境通-自助充值转账】FB/GG/TT❤️官方免费开户Affiliate 全媒体流量资源⚡️
Taboola/Outbrain /Bing⚡️一级代理开户投流-7*24h❤️人工在线【官方】❤️搜索套利买量投流开户独立站⚡️开户投放
Google FB TK游戏代投⚡️E.PN 虚拟卡⚡️BINOM TRACKER 60% OFF!比Adplexity还好用的Spy工具
ADPLEXITY + ADVERTCN7200W全球动态不重复住宅IP代理虚拟信用卡+独立站收款全球虚拟卡, 支持U充值
Facebook 批量上广告尤里改 - FB 稳定投放免费黑五教程(持续更新、欢迎交流)FB 三不限源头 - 自助下户充值转款
各种主页、账单户、BM户(优势)IPCola原生住宅IP⚡️$1.8/条双ISPFB资源,账单户,分享户,国内一手TK加白户/二解户/FB海外户/GG老户
最大欧洲Nutra网盟BA找量 FB高权重耐操个号⚡️稳定过审FB企业户海外户,授信户,TK加白户联盟收款/海外资金下发/服贸结汇
✔Taboola海外户源头广告位出租虚拟卡返佣1%,国内持牌机构 
查看: 10248|回复: 7

[业界] 求推荐一个一键提取网站里面的URL且根据域名去重复的小...

[复制链接]

36

主题

215

广告币

298

积分

初级会员

积分
298
发表于 2016-2-26 16:08:04 | 显示全部楼层 |阅读模式
回复

使用道具 举报

2

主题

1487

广告币

1829

积分

高级会员

积分
1829

社区QQ达人

发表于 2016-2-26 16:17:11 | 显示全部楼层
  1. #region 抓取全站链接
    + A* H* d" b4 V0 A- @; L
  2.         public static List<string> GetAllHref(string url)
    6 _$ q( x2 g$ r) T  u
  3.         {
    % S3 i- K6 j7 j" e. ^
  4.             List<string> allHref = new List<string>();
    # A/ ?* \7 U) i
  5.             try
    + m5 l  X4 e: t8 t) K
  6.             {% }5 _, ?) g8 |, J2 K$ V- {
  7.                 string strhtml = soso.getHtml(url, "", true);) `  e. N# K9 ^& l8 r
  8.                 if (strhtml != "error")
    : @) e4 E/ y4 a% S9 \  h
  9.                 {
    2 s" R9 d9 t1 L/ Y* {  k/ U/ C
  10.                     Regex reg = new Regex(@"(?is)<a[^>]*?href=(['""]?)(?<url>[^'""\s>]+)\1[^>]*>(?<text>(?:(?!</?a\b).)*)</a>");  n) j& L0 `- S4 c! v, T
  11.                     MatchCollection mc = reg.Matches(strhtml);
    2 y6 w3 B( p  r6 @/ f/ B  I
  12.                     foreach (Match m in mc)7 x9 `3 `. ~, _/ W+ E- D' a
  13.                     {
      r8 A9 o6 C1 t2 A' }0 T
  14.                         Uri uri = new Uri(url);
    4 M3 Y8 A, s& f8 T
  15.                         Uri thisUri = new Uri(uri, m.Groups["url"].Value);# O6 Q  m7 I' h! x2 L& K
  16.                         string fullUrl = "";
    5 n& P1 {$ Q; {" _) B
  17.                         if (m.Groups["url"].Value.StartsWith("http"))
    3 z) p; v- w( V/ [
  18.                         {
      w/ E1 k* G8 J8 O
  19.                             fullUrl = m.Groups["url"].Value;  t) _3 P0 c! C! N" s( U
  20.                         }
    3 A  {+ _. C" g5 A
  21.                         else
    0 P9 |0 q/ A& P9 i8 g
  22.                         {. k! M5 O. d: I1 `) S
  23.                             fullUrl = thisUri.ToString();
    7 J7 W+ {; e0 n$ n/ u, _
  24.                         }" \4 M+ u" t: r: Z
  25.                         allHref.Add(fullUrl);/ ~' @* E2 P4 [# b2 N' L+ c& D: I& C
  26.                         //Console.WriteLine("原链接:" + m.Groups["url"].Value);
    # d, g3 x; x2 f4 B
  27.                         //Console.WriteLine("文本标记:" + m.Groups["text"].Value);4 _( H+ A- X% M
  28.                         //Console.WriteLine("补全链接:" + fullUrl);
    7 M9 T) k; {8 b
  29.                         //Console.WriteLine("…………………………………………");# o4 `8 p" R4 G0 J2 s5 s" Q
  30.                     }
    8 j( ?$ L6 K2 P
  31.                 }1 r1 f6 N" P& U, f
  32.             }/ a& _  Y8 i& g
  33.             catch (Exception ex)
    3 \2 K; G! r( J9 L5 H
  34.             { }
    * N0 a: ~8 o" p3 }* ]
  35.             return allHref;
    9 C8 G- `% a. i4 E/ o% ^
  36.         }
    : u7 i" w6 n6 A
  37.         #endregion
复制代码

* X/ k9 E" E" B% p1 B" F8 m8 r' A/ ~7 z; d: A
  1. 8 s; @$ f3 {9 C/ \& G6 q" _- i0 C
  2. 1 C7 g0 [5 t% [, C
  3. ' f" a( v) m* s' L; @7 m. j. V" K5 @
  4. #region 数据去重
    ) r' S6 G+ u% E9 G$ F! r0 F
  5.         /// <summary>
    ; Y# l3 t9 q5 f) ?
  6.         /// List<string>去重1 o$ b5 E6 B8 e2 N. u4 ^% J3 |7 P
  7.         /// </summary>% x( l' J$ E/ O1 @" H' P
  8.         /// <param name="list"></param>: z% R+ b+ K; c+ p. o& }" k2 k
  9.         /// <returns></returns>
    6 M3 G& ]  E' @) h) f0 q3 F
  10.         public static List<string> getUnqueList(List<string> list)
    4 B6 b5 g2 ~* R) U/ i! X7 J5 F
  11.         {
    5 Y! R, E" \$ E: m2 l# W' @' {
  12.             List<string> list1 = new List<string>();
    ! d2 h* R9 c2 h+ R" }3 u/ c
  13.             Hashtable hash = new Hashtable();$ X' N( Q5 U% O, m0 b. P0 V2 ]( [
  14.             foreach (string s in list)' t+ K$ b2 f5 b
  15.             {$ k6 @" P% f' N$ |1 Q( E
  16.                 if (!hash.ContainsKey(s))8 @2 b) s% v7 ]# ]7 o; r# }/ J
  17.                 {% e: d& P/ v9 \- f& v
  18.                     hash.Add(s, s);
    8 D1 q; ^$ s/ T# d2 u
  19.                     list1.Add(s);  r4 l1 F3 x& `6 _5 l
  20.                 }
    # f% R+ {$ x) Y7 M. D* _5 i
  21.             }8 [9 Y$ p0 q' k8 |6 Y7 u! I1 b
  22.             hash.Clear();- _3 Z$ c/ }/ a
  23.             hash = null;
    : i% n6 e# O* a; K+ L
  24.             return list1;+ ~* J; d& Q1 _7 D
  25.         }
    , U; \% e' V. l1 K9 t9 K
  26.         #endregion
复制代码
9 r+ ]3 Y! X9 f, }/ Y' i" z

. ^3 m$ }" x' n: N" a

点评

谢谢分享  发表于 2016-2-27 15:15
十分感谢!!!非常感谢!!  详情 回复 发表于 2016-2-26 16:20
回复 支持 反对

使用道具 举报

36

主题

215

广告币

298

积分

初级会员

积分
298
 楼主| 发表于 2016-2-26 16:20:16 | 显示全部楼层

4 G! H7 b# J: F5 }十分感谢!!!非常感谢!!

点评

缺少一个gethtml,用下面这个:  详情 回复 发表于 2016-2-26 16:23
回复 支持 反对

使用道具 举报

2

主题

1487

广告币

1829

积分

高级会员

积分
1829

社区QQ达人

发表于 2016-2-26 16:23:12 | 显示全部楼层
guys 发表于 2016-2-26 16:20  k& e2 Q) @3 i) V6 S1 d9 g% z
十分感谢!!!非常感谢!!

0 i  }: F2 D; [% ^8 f* A缺少一个gethtml,用下面这个:7 c" b/ t+ ]4 f( d- Y  T8 H6 \
  1.      public string getHtml(string url, string charSet, bool UseUTF8CharSet)//url是要访问的网站地址,charSet是目标网页的编码,如果传入的是null或者"",那就自动分析网页的编码
    : j; @. _% P" |, _& ~& j5 s
  2.         {4 I# J4 i6 I7 }; d7 i
  3.             string strWebData = "error";  J6 \$ }' S" F! k- u8 _
  4.             try
    ) M/ i% B2 j) U0 w' v/ I
  5.             {/ v- M7 y: Z7 h" _* T" a' D
  6.                 WebClient myWebClient = new WebClient(); //创建WebClient实例myWebClient
    & l0 ]0 j# j3 F: A$ R
  7.                 // 需要注意的:
    1 j+ o' g9 j: W( K, w  B! o/ s
  8.                 //有的网页可能下不下来,有种种原因比如需要cookie,编码问题等等 + u/ v: B) a, L* g- I
  9.                 //这是就要具体问题具体分析比如在头部加入cookie % k+ G0 }$ x6 b5 F$ u
  10.                 // webclient.Headers.Add("Cookie", cookie);
    ( O2 v- g* W/ @! `& y' R* p* b
  11.                 //这样可能需要一些重载方法。根据需要写就可以了
    . q; [  k  @  F& R) Y8 N+ S
  12.                 myWebClient.Headers.Add("User-agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; .NET4.0C; .NET4.0E)");
    " X- Q, }# `) X5 J$ l( ]
  13.                 //myWebClient.Headers.Add("User-agent", "Mozilla/5.0 (compatible; Baiduspider/2.0; +http://www.baidu.com/search/spider.html)");. i7 j6 C, g; d" Y  `1 g- U5 P
  14.                 //获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。 3 R9 e" q; H9 y  F: o: E/ x  V, \
  15.                 myWebClient.Credentials = CredentialCache.DefaultCredentials;
    . d3 D& [" J4 r8 ]
  16.                 //如果服务器要验证用户名,密码   ?+ K$ U0 e6 `7 m
  17.                 //NetworkCredential mycred = new NetworkCredential(struser, strpassword); , O. X% Q# u& B3 w8 F
  18.                 //myWebClient.Credentials = mycred; % O5 N- q: Z0 I, K
  19.                 //从资源下载数据并返回字节数组。(加@是因为网址中间有"/"符号) 9 a) t$ W. s$ A
  20.                 byte[] myDataBuffer = myWebClient.DownloadData(url);" y; e4 _1 t2 ~  {0 |9 V6 ^
  21.                 strWebData = Encoding.Default.GetString(myDataBuffer);/ b; ^- C$ Z* @7 k
  22. % v4 J; t6 B+ L; L/ Y2 V
  23.                 //获取网页字符编码描述信息 - J- @- m  u0 a7 L4 L
  24.                 Match charSetMatch = Regex.Match(strWebData, "<meta([^<]*)charset=([^<]*)"", RegexOptions.IgnoreCase | RegexOptions.Multiline);5 X0 q' N7 s( [9 S% Z
  25.                 string webCharSet = charSetMatch.Groups[2].Value;& N2 _3 f9 k' z. M0 U
  26.                 if (charSet == null || charSet == ""): X9 Y! X- A9 h3 U# d
  27.                     charSet = webCharSet;
    9 {) U- g/ m9 D9 j4 {! U
  28.                 if (charSet.Length > 0)3 D* I. N! ^5 `# r
  29.                 {
    % ?. d+ A, [8 o8 u
  30.                     charSet = charSet.Replace(""", "");
    / j1 v1 m4 T) Z; Q* {( x  |/ g, t( A3 Y
  31.                 }8 p/ D8 }' |  Q( U
  32.                 if (UseUTF8CharSet)5 K! V3 p/ b$ p
  33.                 {
    , A2 p  C8 b: o# `& s
  34.                     if (charSet == null || charSet.Length == 0)5 L/ k, z$ u; ?- D4 A2 R, I# l
  35.                     {
    7 x( p; @" K. E4 W& H
  36.                         charSet = "utf-8";/ d; |2 |; J4 b4 Q& J: j
  37.                     }
    * S, ?( ~, j) B
  38.                 }3 [% P9 C& c; F5 t& ]; ^5 G1 j
  39.                 if (charSet != null && charSet != "" && Encoding.GetEncoding(charSet) != Encoding.Default)
    4 n# k1 R  f# w) o4 I1 d
  40.                     strWebData = Encoding.GetEncoding(charSet).GetString(myDataBuffer);
    , t( ]2 d/ o, [6 k& U; j* D5 C: e

  41. 3 u9 F! ?( J* H1 m1 f: `( I( I$ K
  42.             }1 W, D5 c! z% J- z. n
  43.             catch (Exception)
    * J3 l" W* G% x/ u4 g
  44.             {+ _% H7 l. O1 f9 }
  45.                 strWebData = "error";
    - k3 j' H5 e# `  S- ~
  46.             }5 v4 |' @) {2 r* h

  47. 0 R) u4 y; O6 V$ h8 U$ }( u
  48.             return strWebData;$ G1 s3 j' q) r- w. g) W: {6 z+ `
  49.         }
复制代码
. l  [* e6 ?/ R, M2 a) |4 w
. ]1 A. {% d. K# h/ C8 e+ u
回复 支持 反对

使用道具 举报

0

主题

0

广告币

13

积分

新手上路

积分
13
发表于 2016-2-26 19:05:59 | 显示全部楼层
weishaneweishane
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于我们|联系我们|DMCA|广告服务|小黑屋|手机版|Archiver|Github|网站地图|AdvertCN

GMT+8, 2026-10-4 13:49 , Processed in 0.078046 second(s), 27 queries , Gzip On.

Copyright © 2001-2026, AdvertCN

Proudly Operating in Hong Kong.

快速回复 返回顶部 返回列表