AdvertCN - 广告中国

 找回密码
 立即注册

QQ登录

只需一步,快速开始

 谷歌+Bing+TT+MSN官方代理 
⚡️按条S5代理⚡️静态⚡️独享⚡️5G⚡️最干净<Wifi住宅+5G移动>IP代理泰国仓储,本土仓发货2-3元/单
指纹浏览器,就用AdsPower谷歌/FB/Bing/Yahoo代理商开户7200W全球动态不重复住宅IP代理BINOM TRACKER 60% OFF!
出售Facebook,友缘号,FB广告号,insFB/TT/KW 加白开户ADPLEXITY + ADVERTCN比Adplexity还好用的Spy工具
广
FB/Google/TK海外多媒体极速下户
MediaGo+Taboola+Ob开户百度国际MediaGo⚡️让产品狂奔全球百度国际,高点击转化,快速放量百度国际MediaGo,独家原生流量
虚拟信用卡+独立站收款行业首创新型指纹Cloak, 谷歌奇效!⚡IPFoxy住宅代理全场88折⚡全球虚拟卡, 支持U充值
各种主页、账单户、BM户(优势)⚡️个人户,bm户不限额,账单户Adsterra 的CPA/CPM/CPC 网站流量在线注册美国/英国/香港等海外公司
FB二三解1元/个9Proxy ⚡️ $0.04/IP, 无限带宽 cloak斗篷/ss/nutra/cpa/Dating《全新虚拟卡+全球收付款》
广告位出租全球低价纯净住宅/移动IP-免费试用广告代投, 东南亚物流, 虚拟信用卡VMLogin指纹浏览器+多账号防关联
查看: 7181|回复: 7

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

[复制链接]

36

主题

138

广告币

225

积分

初级会员

Rank: 2

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

使用道具 举报

2

主题

1354

广告币

1715

积分

高级会员

Rank: 4

积分
1715

社区QQ达人

发表于 2016-2-26 16:17:11 | 显示全部楼层
  1. #region 抓取全站链接
      `1 I& }& H6 ?' o$ \
  2.         public static List<string> GetAllHref(string url)
    . p% |1 K% ]$ A3 U8 s
  3.         {
    ) C! ~+ G/ t' k
  4.             List<string> allHref = new List<string>();/ x% n' ]2 D# B" h, W  E
  5.             try7 V, ^1 e- ]$ D4 l
  6.             {1 M* O8 ^( E4 Q! Y4 S
  7.                 string strhtml = soso.getHtml(url, "", true);
    1 j; ?2 k/ v8 f1 q
  8.                 if (strhtml != "error")' ~! G0 ^. J) A$ i7 B" A. q: h5 z
  9.                 {8 ~: M  G7 c; y9 L
  10.                     Regex reg = new Regex(@"(?is)<a[^>]*?href=(['""]?)(?<url>[^'""\s>]+)\1[^>]*>(?<text>(?:(?!</?a\b).)*)</a>");# g' \% G1 F6 U# ^
  11.                     MatchCollection mc = reg.Matches(strhtml);5 b( k3 m% I3 T: C/ o
  12.                     foreach (Match m in mc)$ I. I. r+ R. a6 b, [; Z8 ?
  13.                     {
    ! u# F  f; ?  z! K* p
  14.                         Uri uri = new Uri(url);1 T; Q, F3 a  k/ t( T3 q8 Z+ a6 r
  15.                         Uri thisUri = new Uri(uri, m.Groups["url"].Value);- D% l% [" s7 y6 J8 z
  16.                         string fullUrl = "";
    3 F3 u: _7 h* S
  17.                         if (m.Groups["url"].Value.StartsWith("http"))
    ; {7 o- u0 z- A' w5 ^$ X6 R
  18.                         {8 h! g7 h# [8 b/ r' C0 `) a
  19.                             fullUrl = m.Groups["url"].Value;% l0 n8 A7 b+ }6 B( x2 R
  20.                         }
    7 k) Q4 J4 S) G% ]7 ?9 A' F
  21.                         else( a0 ]9 Y9 j4 K& \3 K* f
  22.                         {
    ' R9 k* ?0 i" p" ?
  23.                             fullUrl = thisUri.ToString();9 p8 v5 [7 D. ]5 X
  24.                         }' p) O( f5 C) Y$ @4 j
  25.                         allHref.Add(fullUrl);: }( B; ^. w: x$ c% l
  26.                         //Console.WriteLine("原链接:" + m.Groups["url"].Value);6 \8 O- r  Q2 H
  27.                         //Console.WriteLine("文本标记:" + m.Groups["text"].Value);0 n: q, [; p6 s7 t- r( F: k
  28.                         //Console.WriteLine("补全链接:" + fullUrl);* }% a- h8 s8 u
  29.                         //Console.WriteLine("…………………………………………");8 g5 g1 n4 p- I$ i5 {8 ]" C$ y( j
  30.                     }3 H! T9 v/ H& z5 \7 T5 e
  31.                 }
    ! ~; u' J; n7 J- E9 A; X
  32.             }
    % d" Z( O5 Y7 {0 I" H
  33.             catch (Exception ex)
    5 _$ W1 m- g& \- J% E
  34.             { }
    8 z6 R* d; h" @9 T" }% H
  35.             return allHref;
    ) _/ _% F' {/ `8 b" Z
  36.         }
    * R0 d2 [% n1 N
  37.         #endregion
复制代码

, s" t) Q) D. \+ w  Q" G# x. c9 w. l' O: Y2 w8 W% F) c$ @

  1. , ]2 H" P; T, ]4 n) p9 t
  2. . |* x2 }8 I' r1 B* y- p
  3. : m! \/ q* F/ }; F" d9 [  N3 _
  4. #region 数据去重
    9 S  ~- d' A+ S1 r4 l% J
  5.         /// <summary>
    : m- A3 [- P. K% M6 [6 G  @: u' ?
  6.         /// List<string>去重
    6 Z- K" F! y  g7 e7 B/ j5 K3 s. l
  7.         /// </summary>
    7 p$ t1 i& x2 m7 ]. D, U, I
  8.         /// <param name="list"></param>2 J. P1 |2 d# ?$ O, o
  9.         /// <returns></returns>$ Q) ~  H" ?# c, k" N1 R$ V9 B
  10.         public static List<string> getUnqueList(List<string> list)
    " Y  x' f1 S- a( G
  11.         {# u8 `* n, F. v- Z- H+ G
  12.             List<string> list1 = new List<string>();
    8 r$ \7 v3 ~! _, v' E3 w
  13.             Hashtable hash = new Hashtable();
    ' i5 N* y; f) H" u
  14.             foreach (string s in list)- c& e9 F# B# h) Q/ d" p5 f6 ~, f
  15.             {
    4 d" Z& ]8 l+ H' }% v* Y) Y0 }
  16.                 if (!hash.ContainsKey(s)), V* e2 t. V+ q# I4 H' R* m' e
  17.                 {
    5 v5 _6 `3 Q& D0 O, N: i! U
  18.                     hash.Add(s, s);
    0 f; G* o) j. [, V
  19.                     list1.Add(s);' a" S4 y0 s/ z5 \6 Y
  20.                 }  U/ C6 P6 Q/ T5 Z' s
  21.             }# ~/ _$ L0 P: V  L4 `2 C
  22.             hash.Clear();. M- Q4 p) {" g" _3 n
  23.             hash = null;
    # o/ `7 S" K6 d* O6 ~5 v! I
  24.             return list1;
    - E0 ]# z1 @4 T, S) w
  25.         }* X- K. @9 `2 [
  26.         #endregion
复制代码

- i3 O& L( p, Z0 _* V% X' P
$ z/ i7 @" b0 \* J  q0 y

点评

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

使用道具 举报

36

主题

138

广告币

225

积分

初级会员

Rank: 2

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

9 Z9 r6 z  F- L' @十分感谢!!!非常感谢!!

点评

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

使用道具 举报

2

主题

1354

广告币

1715

积分

高级会员

Rank: 4

积分
1715

社区QQ达人

发表于 2016-2-26 16:23:12 | 显示全部楼层
guys 发表于 2016-2-26 16:20
8 J6 u# X0 K7 e+ o# e+ G+ m2 e十分感谢!!!非常感谢!!
! k! L0 |& U7 ~8 j* R$ F
缺少一个gethtml,用下面这个:7 j8 }% o* O, ^; N2 E  z
  1.      public string getHtml(string url, string charSet, bool UseUTF8CharSet)//url是要访问的网站地址,charSet是目标网页的编码,如果传入的是null或者"",那就自动分析网页的编码 . e5 d! G  l  x2 W. _
  2.         {5 ~  e  y( M, i# `2 |' J
  3.             string strWebData = "error";0 S1 I3 [" B: P# w- y
  4.             try
    % s/ F* g8 H0 k  I) x
  5.             {' j* Z: z& w2 c4 v
  6.                 WebClient myWebClient = new WebClient(); //创建WebClient实例myWebClient
    3 Q. w" ?& N9 W: f  e- D( n  T- I$ u
  7.                 // 需要注意的: 4 A: l* A: \$ s0 A8 D. H
  8.                 //有的网页可能下不下来,有种种原因比如需要cookie,编码问题等等 2 r0 w9 \1 ]9 C: ?* R! f0 n4 D: D
  9.                 //这是就要具体问题具体分析比如在头部加入cookie
    / j8 @* }+ W# i6 J/ r
  10.                 // webclient.Headers.Add("Cookie", cookie);
    ( L! S3 d' r  G
  11.                 //这样可能需要一些重载方法。根据需要写就可以了
    ) E& X, K4 Q( H- u; w# r" Z# p
  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)");
    9 d& \& c6 }! Z6 S% V" f
  13.                 //myWebClient.Headers.Add("User-agent", "Mozilla/5.0 (compatible; Baiduspider/2.0; +http://www.baidu.com/search/spider.html)");3 |5 r$ A% X6 \$ `
  14.                 //获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。 7 C" ^+ b9 o! d  v
  15.                 myWebClient.Credentials = CredentialCache.DefaultCredentials;
    ! |4 i7 z2 f! w1 `+ Q9 x/ }
  16.                 //如果服务器要验证用户名,密码 ) {) J" h7 W# \) Y; Q/ P
  17.                 //NetworkCredential mycred = new NetworkCredential(struser, strpassword); , C( n( [' n. Y+ a# W! _
  18.                 //myWebClient.Credentials = mycred; ( D5 s, |& f# [% q0 g4 X4 \5 ]2 x5 u
  19.                 //从资源下载数据并返回字节数组。(加@是因为网址中间有"/"符号)
    + N+ K2 V2 `/ s$ u' q
  20.                 byte[] myDataBuffer = myWebClient.DownloadData(url);
    ; Q- \. J, F. z. Z" S/ ?& b
  21.                 strWebData = Encoding.Default.GetString(myDataBuffer);
    3 m. m6 Y! |- B4 f) n5 {
  22. 3 \7 a1 B2 c6 j0 h  n* K& e' c. r
  23.                 //获取网页字符编码描述信息
    5 V/ I8 W0 S/ s9 b! A
  24.                 Match charSetMatch = Regex.Match(strWebData, "<meta([^<]*)charset=([^<]*)"", RegexOptions.IgnoreCase | RegexOptions.Multiline);
    # J4 h0 I- [- z6 j# I
  25.                 string webCharSet = charSetMatch.Groups[2].Value;
    5 W1 Q" b0 c& f# z6 M% A; w4 |/ `
  26.                 if (charSet == null || charSet == "")
    * h% I1 ~* I3 q% R( }
  27.                     charSet = webCharSet;# ]% Y- K2 y; \- J
  28.                 if (charSet.Length > 0), r* l9 q  B. `8 F% ]" U
  29.                 {
    3 D- p. R' e' R; y  h
  30.                     charSet = charSet.Replace(""", "");# M+ H0 y* a2 n) Q) P6 b
  31.                 }
    5 P. d. f; d/ z- B* o3 y8 V+ T
  32.                 if (UseUTF8CharSet)
    4 b8 M. i: w9 Z7 \
  33.                 {
    / n7 r1 K1 H  @) r
  34.                     if (charSet == null || charSet.Length == 0)
    % I- Z. A# c3 ^3 a1 B) H" a
  35.                     {0 j4 H/ _' T6 c
  36.                         charSet = "utf-8";% _. E4 A: T" G, p/ T
  37.                     }
    ; Y3 m0 r0 H, e, [, v% e0 C
  38.                 }
    ! p2 m2 k  [' L* X4 V5 ?5 k
  39.                 if (charSet != null && charSet != "" && Encoding.GetEncoding(charSet) != Encoding.Default)" E. f+ l' O- s4 v2 O* F
  40.                     strWebData = Encoding.GetEncoding(charSet).GetString(myDataBuffer);) D4 |4 d7 \9 r: H& n& d$ H

  41. / J: _' Q8 f+ @3 ^
  42.             }8 u, Z/ B* d0 L& k
  43.             catch (Exception)) {$ d* X! K- x& z
  44.             {
    7 ^* I) h+ Q5 ]6 z% f
  45.                 strWebData = "error";
      {6 o4 J" J& G% O0 A% z
  46.             }
    ! ~: w  R  c) S9 m
  47. ! J! D% F* R5 H  {- z8 Z$ W$ @; s
  48.             return strWebData;. P4 W4 G' k; g' Q# F3 M% ]
  49.         }
复制代码
) A& n* N. W: A8 V; Z
! l6 _2 s& [6 G# ^
回复 支持 反对

使用道具 举报

0

主题

0

广告币

13

积分

新手上路

Rank: 1

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-15 19:28 , Processed in 0.045518 second(s), 14 queries , Gzip On, MemCache On.

Copyright © 2001-2023, AdvertCN

Proudly Operating in Hong Kong.

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