Write-host "Please wait ..."
For ($n=1; $n -le (get-content .\a.txt).count; $n++) {
	if ($n -lt 2)
	{
		$str = "http://" + ((((get-content .\a.txt -totalcount $n) -split 'http://')[1]) -split "`t")[0]
	}
	else
	{
		$str = "http://" + ((((get-content .\a.txt -totalcount $n)[-1] -split 'http://')[1]) -split "`t")[0]
	}
	if ($str.length -gt 7)
	{
		$str | out-file  -Append .\1.txt
	}
}
Write-host "Out file: 1.txt"
Start-sleep -s 3
复制代码

sed -n "s#^.*\(http://[^\t]*\t\).*$#\1#p" a.txt
复制代码

@echo off&mshta "javascript:(new ActiveXObject('scripting.filesystemobject')).OpenTextFile('a.txt').ReadAll().replace(/\b(https?|ftp|file):\/\/[\-A-Z0-9+&@#\/%?=~_|!:,.;]*[\-A-Z0-9+&@#\/%=~_|]/gi,function(m){(new ActiveXObject('wscript.shell')).Run('cmd /c echo '+m+'>>b.txt',0);});window.close()"&pause
复制代码

Write-host "Please wait ..."
For ($n=0; $n -le (get-content .\a.txt).count; $n++) {
	$str = ((get-content .\a.txt)[$n]) -split "`t"
	For ($i=0; $i -le 100; $i++) {
		if (($str[$i].Length -gt 0) -and ($str[$i].StartsWith("http://")))
		{
			$str[$i] | out-file -append 1.txt
		}
	}
}
Write-host "Out file: 1.txt"
Start-sleep -s 3
复制代码

gawk "BEGIN{FS=\"\t\"} {for(i=1;i<=NF;i++)if($i ~ /^http:/)print $i}" a.txt>new.txt
复制代码