请问怎么把TXT文件中特定字符之间内容拆分成单独的TXT文件，并且以前几个字符命名这个txt文件？

Question

如题所述

Answer 1

不清楚你的实际文件/情况，仅以问题中的样例/说明为据
复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起运行<# :
cls
@echo off
rem 将一个txt文本文件里的内容按照含有指定特征字符串的行及其下面的多行内容分割成多个小的txt文件
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default)))"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$txtfile='.\yourfile.txt';
if(-not (test-path -liter $txtfile)){Write-host ('"'+$txtfile+'" not found');exit;};
$enc=[Text.Encoding]::Default;
$text=[IO.File]::ReadAllLines($txtfile, $enc);
$dic=New-Object 'System.Collections.Generic.Dictionary[string,Object]';
$newfile='';
for($i=0;$i -lt $text.count;$i++){
    if($text[$i].Contains('>sp|')){
        $newfile='.\'+$text[$i].split('|')[1]+'.txt';
        if(($newfile -ne '') -and (-not $dic.ContainsKey($newfile))){
            [System.Collections.ArrayList]$a=@();
            $dic.add($newfile,$a);
        };
    };
    if($dic.ContainsKey($newfile)){[void]$dic[$newfile].add($text[$i]);};
};
foreach($k in $dic.Keys){
    write-host $k;
    [IO.File]::WriteAllLines($k, $dic[$k], $enc);
}