@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
)
pauseCOPY

@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
)
pauseCOPY