AdvertCN - 广告中国

 找回密码
 立即注册

QQ登录

只需一步,快速开始

PropellerAds
Google-Bing-Mediago-Criteo开户
⚡️按条S5代理⚡️静态⚡️独享⚡️5G广告专用虚拟卡/U充值/高返点皇家代理IP⚡️#1性价比⚡️
Mediabuy⚡️玩家开户首选【鲁班跨境通-自助充值转账】FB/GG/TT❤️官方免费开户Affiliate 全媒体流量资源⚡️
Taboola/Outbrain /Bing⚡️一级代理开户投流-7*24h❤️人工在线【官方】❤️搜索套利买量投流开户独立站⚡️开户投放
⚡️AdsPower:安全不封号,高效自动化Google FB TK游戏代投⚡️E.PN 虚拟卡⚡️BINOM TRACKER 60% OFF!
比Adplexity还好用的Spy工具ADPLEXITY + ADVERTCN7200W全球动态不重复住宅IP代理Facebook 批量上广告
尤里改 - FB 稳定投放免费黑五教程(持续更新、欢迎交流)FB 三不限源头 - 自助下户充值转款各种主页、账单户、BM户(优势)
IPCola原生住宅IP⚡️$1.8/条双ISPTK加白户/二解户/FB海外户/GG老户海外CL企业户源头 FB高权重耐操个号⚡️稳定过审
TikTok2审户/老户/国内外端口/加白GG,FB,TK, 欧美源头, 欢迎合作❤️FB企业户海外户,授信户,TK加白户域名防红⚠斗篷工具/可试用3天
广告位出租8500万高质量住宅IP,助力各种需求虚拟卡返佣1%,国内持牌机构 
查看: 10119|回复: 7

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

[复制链接]

36

主题

213

广告币

297

积分

初级会员

Rank: 2

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

使用道具 举报

2

主题

1482

广告币

1824

积分

高级会员

Rank: 4

积分
1824

社区QQ达人

发表于 2016-2-26 16:17:11 | 显示全部楼层
  1. #region 抓取全站链接
    ' x: _, C" @8 B3 O( M
  2.         public static List<string> GetAllHref(string url)
    " j  c$ t8 f  v7 d7 F
  3.         {
    % o. |- S: y. v" P
  4.             List<string> allHref = new List<string>();- x5 W0 o( M) \) A! L" G
  5.             try" q: g9 R7 r8 a9 R: y2 E  p
  6.             {, H6 h" t( H- [2 t- K
  7.                 string strhtml = soso.getHtml(url, "", true);
    ( T: a* `4 t- c8 K3 c
  8.                 if (strhtml != "error")  \' v- v+ b* p9 X3 P
  9.                 {
    , {* j0 y1 N: \! Q  @* A
  10.                     Regex reg = new Regex(@"(?is)<a[^>]*?href=(['""]?)(?<url>[^'""\s>]+)\1[^>]*>(?<text>(?:(?!</?a\b).)*)</a>");( a; @9 {% W6 m: }
  11.                     MatchCollection mc = reg.Matches(strhtml);+ c3 x4 f* c- i) Q$ g( o3 A$ r
  12.                     foreach (Match m in mc)
    $ y6 n# A% ~  m, S
  13.                     {2 G# A  ]) \: g/ j4 N0 _
  14.                         Uri uri = new Uri(url);) P& f9 d5 _5 u8 Z! v2 k; X
  15.                         Uri thisUri = new Uri(uri, m.Groups["url"].Value);& K. W; \/ Q- u. t! w7 M
  16.                         string fullUrl = "";
    6 t4 y( i) c2 h' d: t3 x4 {& Y# S
  17.                         if (m.Groups["url"].Value.StartsWith("http"))) x, S7 t. R0 x( e3 p) g
  18.                         {
    $ A% g5 M& J# l8 N$ [
  19.                             fullUrl = m.Groups["url"].Value;. I" i9 s, R) j8 ^& n, }* l% a7 ]9 I
  20.                         }0 g1 L" W2 v4 E3 ]6 O  Y
  21.                         else! |1 x: c- X7 w" K" b1 h
  22.                         {
    9 j2 q# ^% n: I$ z- c
  23.                             fullUrl = thisUri.ToString();; G8 X; ~  x4 t2 i$ H5 z
  24.                         }
      D# X/ E+ X0 `5 f% n
  25.                         allHref.Add(fullUrl);
    # I6 `6 L) w6 Y
  26.                         //Console.WriteLine("原链接:" + m.Groups["url"].Value);
    1 x3 u( P3 s% ^' Y1 X
  27.                         //Console.WriteLine("文本标记:" + m.Groups["text"].Value);
    , n8 E5 H% Q+ f0 M! Y3 l
  28.                         //Console.WriteLine("补全链接:" + fullUrl);5 g3 |# W8 k& c( N- k
  29.                         //Console.WriteLine("…………………………………………");
    ! q) \+ t* R9 h3 w
  30.                     }& G4 A' g' a0 L3 @6 a- L3 ^# g
  31.                 }
    ( x& @3 x- h$ t9 j7 ?4 P
  32.             }
    . R* D, I* I6 d* O
  33.             catch (Exception ex)
    % r5 H7 U4 v+ H0 k3 b! e: _  D" S
  34.             { }
    . ~5 a6 @0 F3 t  S
  35.             return allHref;
    % T  [' ~. a% v: D
  36.         }
    & \4 _  ?$ @6 ~7 n( V
  37.         #endregion
复制代码
8 C& b. t  r8 k/ U

# U& M5 i9 \! U+ G) ^9 I& H, C& N9 n) z
  1. 7 Y8 `, c3 v' [. Y' ~& ]. G7 Y9 N

  2. - e$ x& k% G  z$ b! j( k

  3. ' `$ z0 V$ t. @) e- Z
  4. #region 数据去重' u6 L* }& F) S3 A
  5.         /// <summary>
    ; v) Y9 {$ B( {
  6.         /// List<string>去重( G' q% m5 c* S% C* }9 f
  7.         /// </summary>
    $ U& u7 s, J, ~& g0 l
  8.         /// <param name="list"></param>
    ' |* ]# I3 K/ Q
  9.         /// <returns></returns>5 p1 U; I; ^& h1 h
  10.         public static List<string> getUnqueList(List<string> list)
    8 Q0 F  K* x& S) Z5 m
  11.         {' }4 Z: F* M! ~& K0 i  A9 {( @. P  |
  12.             List<string> list1 = new List<string>();
    $ M6 ^( |+ [" w% e
  13.             Hashtable hash = new Hashtable();
      ]- `( F  t3 S  M  j; f6 ^# R
  14.             foreach (string s in list)/ |% D- P7 Y( ]
  15.             {& B7 A6 l) \6 }. {7 P. H
  16.                 if (!hash.ContainsKey(s))
    # z/ x4 t' w/ ~3 t4 z4 x
  17.                 {
    1 d% q+ `! T0 Q, m% I/ w
  18.                     hash.Add(s, s);) b: p3 k9 W' x; \; {8 x( B0 Q
  19.                     list1.Add(s);
    / z& G7 Q( @4 j/ X$ |4 [
  20.                 }
    8 u/ @% {2 v% o1 I& |
  21.             }
    3 n. L8 }8 L) Y. y. j/ i' n% g
  22.             hash.Clear();
    7 p8 S0 K0 f$ A# J$ S, [2 r1 {+ s
  23.             hash = null;
    $ M. n$ z9 V% H& M$ S
  24.             return list1;
    ' r* K" t7 w+ T# H+ s9 H
  25.         }
    " F2 _4 m2 F* w
  26.         #endregion
复制代码
. O- P/ t7 [/ M, U9 K" I' U
( p) S2 N: Q$ P+ W* l1 l

点评

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

使用道具 举报

36

主题

213

广告币

297

积分

初级会员

Rank: 2

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

* `# H. H2 F) C* C; g# B& I十分感谢!!!非常感谢!!

点评

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

使用道具 举报

2

主题

1482

广告币

1824

积分

高级会员

Rank: 4

积分
1824

社区QQ达人

发表于 2016-2-26 16:23:12 | 显示全部楼层
guys 发表于 2016-2-26 16:20, B, T3 Y+ D' I7 e& i& n
十分感谢!!!非常感谢!!
5 e4 |5 A; \4 I2 Z" x
缺少一个gethtml,用下面这个:) }$ K4 z- Z. t. R; ~( V, S
  1.      public string getHtml(string url, string charSet, bool UseUTF8CharSet)//url是要访问的网站地址,charSet是目标网页的编码,如果传入的是null或者"",那就自动分析网页的编码 9 x. z" x9 i& ~5 v" p+ ^7 f
  2.         {
    . m. ?/ a9 W" U( a* c9 [% P
  3.             string strWebData = "error";* X' K2 e, |; R$ j& {( w  R
  4.             try" A! Q, U! J7 h5 i
  5.             {4 Q* S% X- s2 \6 \
  6.                 WebClient myWebClient = new WebClient(); //创建WebClient实例myWebClient
    8 ]7 a; n! a7 F
  7.                 // 需要注意的:
    8 a7 X7 f7 C/ |% }  d$ D
  8.                 //有的网页可能下不下来,有种种原因比如需要cookie,编码问题等等
    / A" G6 t  ~6 d$ E, n+ J
  9.                 //这是就要具体问题具体分析比如在头部加入cookie : `- d: D# x4 k+ v
  10.                 // webclient.Headers.Add("Cookie", cookie);
    5 z. u* A: Y' C
  11.                 //这样可能需要一些重载方法。根据需要写就可以了. K5 F2 S/ s' y, \) b
  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)");
    3 b8 o9 f1 Y/ R6 I
  13.                 //myWebClient.Headers.Add("User-agent", "Mozilla/5.0 (compatible; Baiduspider/2.0; +http://www.baidu.com/search/spider.html)");
    6 T* N( F* m$ ?* \9 S( n
  14.                 //获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。
    5 |  s2 U+ k' L% u9 x
  15.                 myWebClient.Credentials = CredentialCache.DefaultCredentials;0 G% z6 r! t( {9 D) P( n
  16.                 //如果服务器要验证用户名,密码 : P. C7 m7 ]. R6 }* _
  17.                 //NetworkCredential mycred = new NetworkCredential(struser, strpassword);
    / N4 A8 \2 W3 v
  18.                 //myWebClient.Credentials = mycred;
    ( `9 o9 Z- l0 f0 R5 M
  19.                 //从资源下载数据并返回字节数组。(加@是因为网址中间有"/"符号)
    ' `9 k1 [" `& @  i- u5 \" f
  20.                 byte[] myDataBuffer = myWebClient.DownloadData(url);
    ( U# B0 E; V6 Q1 E, m" R5 x' }$ I! \
  21.                 strWebData = Encoding.Default.GetString(myDataBuffer);, n8 V1 J: E0 }

  22. - h0 {8 B7 r9 a' D
  23.                 //获取网页字符编码描述信息 # }5 N+ w7 E- K% n- j7 N
  24.                 Match charSetMatch = Regex.Match(strWebData, "<meta([^<]*)charset=([^<]*)"", RegexOptions.IgnoreCase | RegexOptions.Multiline);
    7 F$ t& G2 w( R3 q0 R0 V& K
  25.                 string webCharSet = charSetMatch.Groups[2].Value;
    + n3 c. h$ Q6 y. P. w
  26.                 if (charSet == null || charSet == "")1 _8 ^# [1 L5 D/ c' m
  27.                     charSet = webCharSet;9 B; I- W4 s* Q8 J/ Q9 M
  28.                 if (charSet.Length > 0)9 C; j6 P5 J* j. u0 C
  29.                 {7 e1 n; d' r* [$ ]& v4 B, U& ]
  30.                     charSet = charSet.Replace(""", "");5 `4 |/ ]8 _: b
  31.                 }% y  I* H/ Y# g9 A, d% L* v+ V: [
  32.                 if (UseUTF8CharSet)
    . J( }' B) R7 C' S
  33.                 {
    ; ?4 ]# s9 E+ Y1 |! p8 x" }
  34.                     if (charSet == null || charSet.Length == 0)
    8 ~' a3 C. s2 h  H) g$ n( U/ z# ?6 S" l
  35.                     {, G; P: N6 M4 q! Z8 u3 t
  36.                         charSet = "utf-8";
    % f) V( c2 x4 s* {+ U* x
  37.                     }
    . H* }6 M, U6 J% V% ]5 h
  38.                 }
    1 d2 _8 L3 A5 a
  39.                 if (charSet != null && charSet != "" && Encoding.GetEncoding(charSet) != Encoding.Default)
    5 B+ c, o3 o2 M7 h  s, a( @, N
  40.                     strWebData = Encoding.GetEncoding(charSet).GetString(myDataBuffer);4 ]5 m8 i8 h! d

  41. ; ]3 x: i( X4 U- B9 b
  42.             }
      C; Q# N" q  J0 v$ |; b
  43.             catch (Exception)
    5 e3 P( v* i# u' Z0 e# A
  44.             {& K, R1 k+ H7 I3 P% A3 g1 I! y5 `
  45.                 strWebData = "error";3 o! l8 N6 h7 C2 h: W/ O
  46.             }
    2 F2 C; p) [. A

  47. * f, y) M! U) H% Q5 _
  48.             return strWebData;
    : o1 I9 b# c9 [) O  x
  49.         }
复制代码

; g8 A5 N0 r, L2 c6 Z! p# r2 G1 D3 z4 A3 W
回复 支持 反对

使用道具 举报

0

主题

0

广告币

13

积分

新手上路

Rank: 1

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2026-6-21 22:18 , Processed in 0.055914 second(s), 17 queries , Gzip On, MemCache On.

Copyright © 2001-2023, AdvertCN

Proudly Operating in Hong Kong.

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