@echo off
cd /d "D:\基因合成\2022.5\"
for /d %%i in (*) do (
    move "D:\测序结果\*-%%i-*.ab1" "%%i\"
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f %%a in ('dir /a /s /b "D:\测序结果\*.ab1"') do (
set dvn=%%a
for /f "tokens=2 delims=[]" %%b in ("!dvn!") do (
for /f "tokens=2 delims=-" %%c in ("%%b") do (
set mls=%%c
set Ns=%date:~0,4%
set Ys=%date:~5,2%
if !Ys!==01 (set "Ys=!Ys:01=1!")
if !Ys!==02 (set "Ys=!Ys:02=2!")
if !Ys!==03 (set "Ys=!Ys:03=3!")
if !Ys!==04 (set "Ys=!Ys:04=4!")
if !Ys!==05 (set "Ys=!Ys:05=5!")
if !Ys!==06 (set "Ys=!Ys:06=6!")
if !Ys!==07 (set "Ys=!Ys:07=7!")
if !Ys!==08 (set "Ys=!Ys:08=8!")
if !Ys!==09 (set "Ys=!Ys:09=9!")
set "today=!Ns!.!Ys!"
if exist D:\基因合成\!today!\!mls! (move /y "!dvn!" "D:\基因合成\!today!\!mls!" >nul) else (
md "D:\基因合成\!today!" 
md "D:\基因合成\!today!\!mls!" 
move /y "!dvn!" "D:\基因合成\!today!\!mls!" >nul
)
)
)
)
exit
复制代码

@echo off
cd /d "D:\测序结果"
for /f "tokens=1-2* delims=-" %%a in ('dir /b /a-d *.ab1') do (
    if not exist "D:\基因合成\2022.5\%%b" md "D:\基因合成\2022.5\%%b"
    move "%%a-%%b-%%c" "D:\基因合成\2022.5\%%b\"
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set today=2022.5
set mls=5001
set txts=5001-11-24
for /f %%d in ('dir /a /s /b "D:\基因合成\!today!\!mls!\*.htm"') do (
for /f "skip=10 tokens=*" %%e in (%%d) do (
set op=%%e
set /a m+=1
if !m! LEQ 14 (
echo !op!
)
)
) >D:\基因合成\!today!\!mls!\!txts!.txt
(
for /f %%i in ('type D:\基因合成\!today!\!mls!\!txts!.txt') do (
echo %%i
)
)>D:\基因合成\!today!\!mls!\!mls!.txt
exit
复制代码

@echo off&setlocal enabledelayedexpansion
set txts=5001-11-24
for /f %%d in ('dir /a /s /b ".\*.htm"') do (
for /f "skip=9 tokens=*" %%e in (%%d) do (
set op=%%e
set /a m+=1
if !m! LEQ 1 (
echo !op!
)
)
) >.\!txts!.txt
复制代码

$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();
复制代码

$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 ".\$_.txt" -Value (-join($_5gt3[$t1..$t2])) -Force -Verbose -NoNewline;
	}
}

[Console]::Write("全部完成!");
复制代码

@echo off
PowerShell.exe -ExecutionPolicy Bypass -Command "& '%~dpn0.ps1'"
exit
复制代码

@echo off
cd /d "D:\基因合成\2022.5\"
for /d %%i in (*) do (
  move "D:\测序结果\*-%%i-*.ab1" "%%i\"
)
for /d %%i in (*) do (
  pushd "%%i"
  for /f "tokens=2-4 delims=-" %%a in ('dir /b /a-d *.ab1') do (
    set n=0
    setlocal enabledelayedexpansion
    for /f "delims=" %%j in ('findstr ">" %%a.htm') do (
      set "str1=%%j"
      set "str1=!str1:*span =<span !"
      set "str1=!str1:</td></tr>=! span"
      set "str1=!str1:<= !"
      set "str1=!str1:>= !"
      set "str1=!str1:/=!"
      for %%k in (!str1!) do (
        if "%%k"=="span" (
          if !n! geq %%b if !n! leq %%c set str2=!str2!!var!
          set /a n+=1
        )
        set "var=%%k"
      )
    )
    echo,!str2!>%%a-%%b-%%c.txt
    endlocal
  )
  popd
)
pause
复制代码

@echo off
cd /d "D:\基因合成\2022.5\"
for /d %%i in (*) do (
  move "D:\测序结果\*-%%i-*.ab1" "%%i\"
)
for /d %%i in (*) do (
  pushd "%%i"
  set x=0
  setlocal enabledelayedexpansion
  for /f "delims=" %%j in ('findstr ">" %%i.htm') do (
    set "str1=%%j"
    set "str1=!str1:"color:red;">= ### !"
    set "str1=!str1:</span>= ### !"
    set "str1=!str1:<= !"
    for %%l in (!str1!) do (
      if "!str2!" == "###" (
        set /a x+=1
        set _!x!=%%l
      )
      set str2=%%l
    )
  )
  for /f "tokens=2-4 delims=-" %%a in ('dir /b /a-d *.ab1') do (
    setlocal enabledelayedexpansion
    for /l %%d in (%%b,1,%%c) do (
      set var=!var!!_%%d!
    )
    set /a n=%%c+1
    if defined _!n! (
      for %%e in (_!n!) do (
        echo,!var!!%%e:~,17!>%%a-%%b-%%c.txt
      )
    ) else (
      echo,!var!>%%a-%%b-%%c.txt
    )
    endlocal
  )
  endlocal
  popd
)
pause
复制代码

set str=!str!%%l
复制代码

echo,!str!>"%%i.txt"
复制代码