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代理全球虚拟卡, 支持U充值
Facebook 批量上广告尤里改 - FB 稳定投放免费黑五教程(持续更新、欢迎交流)FB 三不限源头 - 自助下户充值转款
各种主页、账单户、BM户(优势)IPCola原生住宅IP⚡️$1.8/条双ISPTK加白户/二解户/FB海外户/GG老户海外CL企业户源头
FB高权重耐操个号⚡️稳定过审TikTok2审户/老户/国内外端口/加白GG,FB,TK, 欧美源头, 欢迎合作❤️FB企业户海外户,授信户,TK加白户
联盟收款/海外资金下发/服贸结汇域名防红⚠斗篷工具/可试用3天广告位出租8500万高质量住宅IP,助力各种需求
虚拟卡返佣1%,国内持牌机构   
查看: 10117|回复: 7

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

[复制链接]

36

主题

213

广告币

297

积分

初级会员

Rank: 2

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

使用道具 举报

2

主题

1481

广告币

1823

积分

高级会员

Rank: 4

积分
1823

社区QQ达人

发表于 2016-2-26 16:17:11 | 显示全部楼层
  1. #region 抓取全站链接
    , g, Q9 N. P, t
  2.         public static List<string> GetAllHref(string url)3 i7 L# j! h7 `$ P  t" R/ x
  3.         {
    " z; \: Z  ^- W* q
  4.             List<string> allHref = new List<string>();
    $ f' b( V( Z  A4 R
  5.             try
    - }/ y( p" u+ }* E
  6.             {$ {8 T0 m8 j& O: ]0 _3 Y
  7.                 string strhtml = soso.getHtml(url, "", true);
    . }1 Y0 o) A/ H1 V' e: R
  8.                 if (strhtml != "error")
    / t; _/ x& F9 W
  9.                 {+ [, e' c" L0 Z6 O6 @& Q
  10.                     Regex reg = new Regex(@"(?is)<a[^>]*?href=(['""]?)(?<url>[^'""\s>]+)\1[^>]*>(?<text>(?:(?!</?a\b).)*)</a>");% V1 b# h3 {, q% ^$ _7 z
  11.                     MatchCollection mc = reg.Matches(strhtml);5 K5 c5 |4 x9 @- P& P2 S" F7 }1 j
  12.                     foreach (Match m in mc)
    % K. h( F/ \+ p5 G8 K1 h* G
  13.                     {2 y$ s7 O1 J0 L
  14.                         Uri uri = new Uri(url);( I! M! R2 i# F: k  h$ W8 [
  15.                         Uri thisUri = new Uri(uri, m.Groups["url"].Value);
    : D- m3 ~2 |/ n9 [: r  d
  16.                         string fullUrl = "";
    / P* o0 E8 L( g
  17.                         if (m.Groups["url"].Value.StartsWith("http"))' I" Q7 R8 E% y
  18.                         {" H1 }9 ^6 |6 R8 O" J
  19.                             fullUrl = m.Groups["url"].Value;2 }+ R: g6 L. i& }3 L8 m5 [' b
  20.                         }4 J$ l. ~, H: H
  21.                         else7 z8 q1 V* G2 f
  22.                         {
    ) o) y4 q' Q6 s. R% y3 K4 K% o
  23.                             fullUrl = thisUri.ToString();; D0 q% ~. _* D: j
  24.                         }% @. _9 R0 k; u6 x0 H9 k
  25.                         allHref.Add(fullUrl);
    * {5 }  q# ?$ ]( O
  26.                         //Console.WriteLine("原链接:" + m.Groups["url"].Value);
    , Z4 G8 p2 b. c5 P
  27.                         //Console.WriteLine("文本标记:" + m.Groups["text"].Value);
    8 c+ k. {4 F" l$ _2 ?+ b( _  S
  28.                         //Console.WriteLine("补全链接:" + fullUrl);
    / }* a+ m' h$ L9 Z. Y0 V$ C
  29.                         //Console.WriteLine("…………………………………………");
    9 R* z2 E* D% |, z7 @& K4 L7 y9 D! R
  30.                     }
    " u  K2 R! N2 I$ R7 K  c% k
  31.                 }  h3 f1 F. \, N4 \& }+ m9 z3 E
  32.             }
    2 K& {: p! o: @" B- h: K( r
  33.             catch (Exception ex)! E/ Z' R1 o( |& u
  34.             { }
    . _6 Z1 x- j# \! m5 O$ `
  35.             return allHref;  [. t) l2 O* ]! n4 W
  36.         }- `2 E: P5 r9 H: v5 `
  37.         #endregion
复制代码
# i) S6 D. ^" w9 D

- K/ y) a" Q* [

  1. ) R" O' O. u5 g
  2. 2 W" K0 H- S$ M& L+ W0 ^1 L: R
  3. + X4 d% q, R: c8 |$ A/ r1 j
  4. #region 数据去重- X! s2 j; E  G  Y' l* K- R
  5.         /// <summary>
    ) u$ p4 }8 P* E
  6.         /// List<string>去重8 H% @) l1 `. y
  7.         /// </summary>& h  s( L- s- `) A
  8.         /// <param name="list"></param>/ _2 p- q; f4 F0 E  P
  9.         /// <returns></returns>
    ! l  N8 c# p% `, d4 H
  10.         public static List<string> getUnqueList(List<string> list)
    7 K1 ?8 I% X& D* ]9 h3 F) O$ f
  11.         {, n1 K3 _' e- h- o& r
  12.             List<string> list1 = new List<string>();; t+ L+ c3 \+ J+ I
  13.             Hashtable hash = new Hashtable();
    5 E- \# T. W% C" ^3 p# @( x; L
  14.             foreach (string s in list). R  G! p$ y; c) m: {3 ]
  15.             {
    % ~2 l* {# G3 Q3 h. J) T
  16.                 if (!hash.ContainsKey(s))
    8 a+ E% F0 O9 l" j
  17.                 {% M  d4 S5 J7 T) h, V' l3 E) s
  18.                     hash.Add(s, s);
    : m, C% M8 e7 n: ?5 Q5 o
  19.                     list1.Add(s);# ~% b( u  t5 Z# O0 `* [  i
  20.                 }; ?% u, n3 J" ]2 e
  21.             }
    ; K2 T& I; N% i6 y7 e$ w
  22.             hash.Clear();* T1 X' {8 t3 ]' X; R4 @
  23.             hash = null;
    . x! j  V9 X1 Y) K
  24.             return list1;
    0 d% C% ~6 j7 O% X
  25.         }/ A% g( R# ~9 [5 J. i2 H
  26.         #endregion
复制代码

0 y+ f5 O/ M& y& L; n+ y3 L3 j1 ^) j" O. g

点评

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

使用道具 举报

36

主题

213

广告币

297

积分

初级会员

Rank: 2

积分
297
 楼主| 发表于 2016-2-26 16:20:16 | 显示全部楼层
- h6 p# U4 N# C
十分感谢!!!非常感谢!!

点评

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

使用道具 举报

2

主题

1481

广告币

1823

积分

高级会员

Rank: 4

积分
1823

社区QQ达人

发表于 2016-2-26 16:23:12 | 显示全部楼层
guys 发表于 2016-2-26 16:20
( c2 G+ O+ A2 A1 \0 w十分感谢!!!非常感谢!!
4 [: h5 T: I* L$ s7 @3 |$ n$ c
缺少一个gethtml,用下面这个:2 U" F4 [# x& O# V' ?) F
  1.      public string getHtml(string url, string charSet, bool UseUTF8CharSet)//url是要访问的网站地址,charSet是目标网页的编码,如果传入的是null或者"",那就自动分析网页的编码 0 S! m  e8 P# q5 m
  2.         {
    9 x6 \  {" c7 C9 R4 D+ j: @
  3.             string strWebData = "error";
    - y' F6 `1 M; R. p2 S9 J
  4.             try
    $ z& y8 j* k$ F
  5.             {
    ; V% g+ E1 h7 ?; m- C! L: X
  6.                 WebClient myWebClient = new WebClient(); //创建WebClient实例myWebClient
    ! c: X9 ~  ]( |
  7.                 // 需要注意的: $ M# \) D4 T' }0 ?/ ^5 k2 w
  8.                 //有的网页可能下不下来,有种种原因比如需要cookie,编码问题等等 0 w0 y# V1 }9 m
  9.                 //这是就要具体问题具体分析比如在头部加入cookie
    : m* D- p1 |. Q# y3 ~& p4 P
  10.                 // webclient.Headers.Add("Cookie", cookie); 9 ^1 W  ?6 s" J( {, q* e, T
  11.                 //这样可能需要一些重载方法。根据需要写就可以了! a2 O5 R* _. d- D$ G- M
  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)");
    . H: p: `2 c; d- e2 p
  13.                 //myWebClient.Headers.Add("User-agent", "Mozilla/5.0 (compatible; Baiduspider/2.0; +http://www.baidu.com/search/spider.html)");* [7 K; G$ ~! I% z; h: L/ q* I! M
  14.                 //获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。
    $ q* k' _8 q$ k/ A
  15.                 myWebClient.Credentials = CredentialCache.DefaultCredentials;, z* a4 J4 Z- L3 H2 d$ d9 C
  16.                 //如果服务器要验证用户名,密码
    / F0 F: \; R' O* x/ V4 b* s: L
  17.                 //NetworkCredential mycred = new NetworkCredential(struser, strpassword); 2 V9 `" [8 o  G: E: b8 o+ g7 {
  18.                 //myWebClient.Credentials = mycred;
    ; t4 Y/ M. Q. I& c) U2 a
  19.                 //从资源下载数据并返回字节数组。(加@是因为网址中间有"/"符号) 0 n2 M% C: r/ o7 c0 m0 O
  20.                 byte[] myDataBuffer = myWebClient.DownloadData(url);6 o% a4 }0 o- z" H
  21.                 strWebData = Encoding.Default.GetString(myDataBuffer);2 a/ G$ R" _8 _+ Z- U  z. y3 ^) n
  22. 9 J9 y# R# B$ @5 h: N6 o$ e" A2 {
  23.                 //获取网页字符编码描述信息
    / a  u' ~7 p& P, l6 ^3 _) \
  24.                 Match charSetMatch = Regex.Match(strWebData, "<meta([^<]*)charset=([^<]*)"", RegexOptions.IgnoreCase | RegexOptions.Multiline);
    7 K( u; Q5 T6 x0 o
  25.                 string webCharSet = charSetMatch.Groups[2].Value;
    . Q: N, g- S1 w
  26.                 if (charSet == null || charSet == "")
    # S) f- G# j9 Y  T' V% p4 l
  27.                     charSet = webCharSet;" ^' a( R! d- v2 V/ J1 s0 v
  28.                 if (charSet.Length > 0)7 Y" u' O; x6 I( S# h
  29.                 {
    5 L/ g$ O" h+ M& t. [
  30.                     charSet = charSet.Replace(""", "");
    - `% `/ X6 w4 a: c# k2 R
  31.                 }
    - q2 {% s: ^8 m* d% v8 d
  32.                 if (UseUTF8CharSet)( T5 w) r, {0 B3 H. J
  33.                 {
    0 F: e/ N, t( ]) _) m
  34.                     if (charSet == null || charSet.Length == 0)
    , ^# y6 I5 u' P/ G- H! M: o. U
  35.                     {
    * N; O' l5 b9 O6 L% j
  36.                         charSet = "utf-8";
    # h# Y9 U. `4 ?, h, _% \
  37.                     }
    1 L) y; S7 x% T% d( W( [8 X
  38.                 }
    ! j. ]; r+ ^3 g! S
  39.                 if (charSet != null && charSet != "" && Encoding.GetEncoding(charSet) != Encoding.Default)
    6 O1 G8 j) V0 D4 A- J' V
  40.                     strWebData = Encoding.GetEncoding(charSet).GetString(myDataBuffer);
    ; _$ h! x. `4 H& z0 G& E2 L7 o& d
  41. $ N( }  g6 Y5 G5 E7 W
  42.             }) [, U( ^6 D0 S3 G1 T5 r' m& s4 m
  43.             catch (Exception)6 o, r* {3 Q/ [* Z, i$ N+ t; n
  44.             {
    " @3 Q+ A/ R, q: }$ x0 y) \1 g$ Y
  45.                 strWebData = "error";
    " f% R1 ~5 c2 ]) U- J4 }5 L
  46.             }
    3 N% y7 V+ g" M7 k8 J, c
  47. & J$ i( x+ z) p# N1 r5 Y
  48.             return strWebData;" o& J1 N$ _  W
  49.         }
复制代码

0 }( L. W9 y% G8 q2 V" R; ~( [. Y; O" y9 f: m
回复 支持 反对

使用道具 举报

0

主题

0

广告币

13

积分

新手上路

Rank: 1

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2026-6-20 16:50 , Processed in 0.051795 second(s), 16 queries , Gzip On, MemCache On.

Copyright © 2001-2023, AdvertCN

Proudly Operating in Hong Kong.

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