xczxczxcz

传百度阿里糸估计很多人不会点。蓝奏才方便，123次之。

xczxczxcz

给你一个WIN10的吧，至少PS>4.0
要保存哪些文件自行按格式修改， 脚本保存为 xxx.ps1

$html = gc '.\5001.htm' -Raw -Encoding UTF8;

$oligos_arr=[regex]::Matches($html, '(?i)(?<=<tr><td>oligos.*?style.*?>)[^<]+').value.Foreach{
	($_.Trim('|') -replace '&nbsp;|[@\(+\)]' -split '\|').Foreach{
		$e=$_.split(':');
		@{ID=$e[0].Trim('-'); begin=[int]$e[1]; end=[int]$e[2]; }
	}
}

$_5gt3=[regex]::Match($html, "(?<=5'--&gt;3'.*?style.*?>).*?(?=</td>)").value -replace '<.*?>';
#$_3lt5=[regex]::Match($html, "(?<=3'&lt;--5'.*?style.*?>).*?(?=</td>)").value -replace '<.*?>';

<# 5000-1-14 ... #>
('5001-1-14','5001-1-26','5001-25-38','5001-25-52').ForEach{
	$arr=$_.split('-');
	$index1=$oligos_arr.ID.IndexOf($arr[0]+'_'+$arr[1]);
	$index2=$oligos_arr.ID.IndexOf($arr[0]+'_'+$arr[2]);

	if($index1 -ne -1 -and $index2 -ne -1){
		[int]$t1=$oligos_arr[$index1].begin - 1;
		[int]$t2=$oligos_arr[$index2].end - 1;
		sc ".\$_.log" -Value (-join($_5gt3[$t1..$t2])) -Force -Verbose -NoNewline;
	}
}

[Console]::Write("全部完成 按任意键退出");
[void][Console]::ReadKey();
复制代码

xczxczxcz

回复 35# 13545876873


    基本上是，俺灰常不喜欢WIN7那个垃圾阉割系统，所写就不想兼容它。

xczxczxcz

回复 32# 13545876873


    SO EASY  ， 但有点懒， 你自己附件不一次全部提供，偶只是照附件内容写写。