提取域名

[bellz]

对于文本文档中的一堆字符，如下：
www.123.com 127.0.0.1 (0)
11.123.com.cn 192.0.0.1 (5)
wt.234.net 202.0.0.1 (0)
www.5467.org 212.0.0.1 (5)
www.123.cn 127.0.0.1 (0)

大概意思就这样，只想提取出域名
123.com
123.com.cn
234.net
5467.org
123.cn

我不会什么语言，希望能提供一个可用的源代码供学习，谢谢。

[bellz]

另外，如果可以排除在外，排序，升序，也可以。谢谢。

因为这个排除在外，和排序，不想手动。

[hookee]

<script>
function doit(){
  var s = document.getElementById("ta").value;
  var re = /([\d\w\-.]+?\.(a[cdefgilmnoqrstuwz]|b[abdefghijmnorstvwyz]|c[acdfghiklmnoruvxyz]|d[ejkmnoz]|e[ceghrst]|f[ijkmnor]|g[abdefghilmnpqrstuwy]|h[kmnrtu]|i[delmnoqrst]|j[emop]|k[eghimnprwyz]|l[abcikrstuvy]|m[acdghklmnopqrstuvwxyz]|n[acefgilopruz]|om|p[aefghklmnrstwy]|qa|r[eouw]|s[abcdeghijklmnortuvyz]|t[cdfghjkmnoprtvwz]|u[augkmsyz]|v[aceginu]|w[fs]|y[etu]|z[amw]|aero|arpa|biz|com|coop|edu|info|int|gov|mil|museum|name|net|org|pro))(\s|$)/igm;
  var a = s.match(re);
  for(var i=0;i<a.length;i++){	
  	var t = a[i].split(".");
  	if(t.length>2){
  	  var p = a[i].indexOf(".");
  	  a[i] = a[i].substring(p+1,a[i].length);	
  	}
  	a[i] = a[i].toLowerCase();
  }
  var b = [];
  for(var i=0;i<a.length;i++){
    var f = false;
    for(var j=0;j<b.length;j++){
      if(b[j]==a[i]){f = true; break;}	
    }
    if(!f) b.push(a[i]);
  }
  b.sort();
  document.getElementById("re").value = "";
  for(var i=0;i<b.length;i++){
  	document.getElementById("re").value += b[i] + "\n";
  }
}
</script>

<textarea id="ta" cols="50" rows="10">
 www.123.com 127.0.0.1 (0) 
  11.123.com.cn 192.0.0.1 (5) 
  wt.234.net 202.0.0.1 (0) 
  www.5467.org 212.0.0.1 (5) 
  www.123.com 127.0.0.1 (0) 
</textarea><input type="button" value="click" onclick="doit()">
<textarea id="re" cols="50" rows="10"></textarea>

[anbs01]

split(split("www.123.com 127.0.0.1 (0)"," ","")(0),".","")(1)

[hookee]

<%
s = "www.123.com 127.0.0.1 (0)" &_ 
 " 11.123.com.cn 192.0.0.1 (5) " &_
 " wt.234.net 202.0.0.1 (0) " &_
 " www.5467.org 212.0.0.1 (5) " &_
 " www.123.cn 127.0.0.1 (0)"
Set re = New RegExp
With re
    .Global = True
    .MultiLine = True
    .IgnoreCase = True
    .Pattern = "([\d\w\-.]+?\.(a[cdefgilmnoqrstuwz]|b[abdefghijmnorstvwyz]|c[acdfghiklmnoruvxyz]|d[ejkmnoz]|e[ceghrst]|f[ijkmnor]|g[abdefghilmnpqrstuwy]|h[kmnrtu]|i[delmnoqrst]|j[emop]|k[eghimnprwyz]|l[abcikrstuvy]|m[acdghklmnopqrstuvwxyz]|n[acefgilopruz]|om|p[aefghklmnrstwy]|qa|r[eouw]|s[abcdeghijklmnortuvyz]|t[cdfghjkmnoprtvwz]|u[augkmsyz]|v[aceginu]|w[fs]|y[etu]|z[amw]|aero|arpa|biz|com|coop|edu|info|int|gov|mil|museum|name|net|org|pro))(\s|$)"
    Set col = .Execute(s)
    For Each m In col
        dm = m.value
        a = Split(dm, ".")
        If UBound(a)>1 Then
            p = InStr(1,dm,".")
            dm = Right(dm, Len(dm)-p)
        End If
        Response.Write dm & "<br>"
    Next
End With
%>

[bellz]

谢谢楼上的，刚才我的话没说全。
能不能麻烦你再改一下。

有一个文本输入框，里面粘贴复制这些字符
www.123.com 127.0.0.1 (0)
11.123.com.cn 192.0.0.1 (5)
wt.234.net 202.0.0.1 (0)
www.5467.org 212.0.0.1 (5)
www.123.cn 127.0.0.1 (0)
www1.123.com 127.0.0.1 (0)

提取出域名
123.com
123.com.cn
234.net
5467.org
123.cn

正常来看，第一个域名和最后一个域名是相同的，所以排除在外。
如果麻烦，就直接改个“文本输入框就可以”
打开ASP页面，有个文本输入框，输入字符后，点确定，后提取出域名页。