求助文档组合再切割的批处理

lmq123 · 发表于 2023-4-17 19:42:58

本帖最后由 lmq123 于 2023-4-19 15:36 编辑

长文档先分类_再切割批处理》
先分类:
先用批处理把srt长文档自动化分类成为示例中的样子，分类成两个文档，一个是时间文档一个是内容文档

假设内容文本是6千字则分为1和2两个文档，
如果内容文本是1万2千字则分为123三个文档
以此类推，
内容文本以很多单元组成，一段数字+一段长短不一的文字内容组成为一个单元，内容文本分割时只能以单元为基础进行分割，不能把一个单元的字符分别放在前后两个文本中，要么把这个单元放前一个文本中，要么把这个单元放在后一个文本中，假如这个单元放在前一个文本中，这个文本字符超过5000字符了，那就按四舍五入的类似原则，那就把这个单元划入下一个文本算了，
从头到尾，按这个规律分割到底就算完成了

把内容文档按小于等

段内容打开「百度网盘」APP即可获取
举例说明:

这个难度有点大，只有超级批处理大神才能解决好，求求大家帮我一下

czjt1234 · 发表于 2023-4-17 20:48:13

这个。。。个人觉得付费比较合适

jyswjjgdwtdtj · 发表于 2023-4-17 21:01:49

……我觉得换成vbs就不用超级大神了
东西长，大最好换个编译的语言
比如整个c++？

newswan · 发表于 2023-4-17 22:10:50

powershell 第一步

chcp 65001
function filesplit() {
param([string]$filename)
$a = Get-Content -Encoding UTF8 ($filename + ".srt")
$as = $a -join "`n"
$as -replace "(?m)(^\d+[.]$)`n(^.+$)`n(^.+$)","`$1`n`$2" | Out-File -Encoding utf8 ($filename + "t.srt")
$as -replace "(?m)(^\d+[.]$)`n(^.+$)`n(^.+$)","`$1`n`$3" | Out-File -Encoding utf8 ($filename + "s.srt")
}
filesplit "文档111"

复制代码

77七 · 发表于 2023-4-17 23:05:27

@echo off
rem 文件和批处理保存为ansi编码格式
rem part1
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
set n=
for /f "delims=" %%a in ('type "%%i"') do (
set /a n+=1,m=n%%3
if !m! equ 1 (
set "str1=%%a"
) else if !m! equ 2 (
>>"%%~ni时间.srt" (
echo !str1!
echo %%a
echo;
)
) else if !m! equ 0 (
>>"%%~ni内容.srt" (
echo !str1!
echo %%a
echo;
)
)
)
)
endlocal
rem part2
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *内容.srt') do (
set /a n=0,fc=1,lengthAll=0
for /f "delims=" %%a in ('type "%%i"') do (
set /a n+=1,m=n%%2
set "str=!str!%%a"
set "str!m!=%%a"
if !m! equ 0 (
rem 内容.srt每单元不超100字符
for /l %%l in (1,1,100) do (
if defined str (
set "str=!str:~1!"
set lengthStr=%%l
)
)
set /a lengthAll+=lengthStr
if !lengthAll! gtr 5000 (
set /a fc+=1,lengthAll=0
)
(for %%c in (1 0 #) do (
echo,!str%%c!
))>>"%%~ni!fc!.srt"
)
)
)
endlocal
pause

复制代码

试试行吗？

lmq123 · 发表于 2023-4-17 23:38:56

本帖最后由 lmq123 于 2023-4-19 10:36 编辑

回复 5# 77七
试验用的文档

链
谢谢啦

lmq123 · 发表于 2023-4-17 23:53:12

回复 5# 77七

能处理utf－8的srt文档格式吗，不是anis格式

77七 · 发表于 2023-4-18 00:04:17

本帖最后由 77七于 2023-4-18 01:50 编辑

回复 6# lmq123

@echo off
rem 批处理保存为ansi,文本为utf-8时不含中文
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *.srt') do (
set /a n=0,fc=1,lengthAll=0
for /f "delims=" %%a in ('type "%%i"') do (
set /a n+=1,m=n%%3
if !m! equ 1 (
set "str1=%%a"
) else if !m! equ 2 (
>>"%%~ni时间.srt" (
echo !str1!
echo %%a
echo;
)
) else if !m! equ 0 (
>>"%%~ni内容.srt" (
echo !str1!
echo %%a
echo;
)
set "str3=%%a!str1!"
for /l %%l in (1,1,100) do (
if defined str3 (
set "str3=!str3:~1!"
set lengthStr3=%%l
)
)
set /a lengthAll+=lengthStr3
if !lengthAll! gtr 5000 (
set /a fc+=1,lengthAll=0
)
>>"%%~ni内容!fc!.srt" (
echo !str1!
echo %%a
echo,
)
)
)
)
endlocal
pause

复制代码

lmq123 · 发表于 2023-4-18 01:07:50

本帖最后由 lmq123 于 2023-4-18 01:12 编辑

回复 8# 77七

还没试，电脑不在身边，好像我用的是没有中文汉字，只有符号数字或英文，那用第一个好点，还是用第二个好点？

另一个奇怪的问题是批处理中没有时间与内容这汉字，你怎么保证分类后生成的文档名称中含有时间与汉字这几个字

lmq123 · 发表于 2023-4-18 09:07:20

本帖最后由 lmq123 于 2023-4-19 10:36 编辑

77七你好，你的bat测试结果是失败的，它可以分类成功

另一个奇怪的地方是我想把bat批处理本身保存为anis格式，不知道为什么，批处理用记事本打开可以选anis，但是保存不了，重新打开，发现批处理还是utf－8格式，这是怎么回事

czjt1234 · 发表于 2023-4-18 09:52:37

回复 10# lmq123

这个不影响运行，不要紧

简体中文Windows的ANSI编码是GB2312

GB2312和UTF-8对英文字符的编码方式是相同的

所以一个没有中文字符、只有英文字符的ANSI编码的文件，也可视为是UTF-8编码

这并不表示bat支持UTF-8编码，因为它实际上是按ANSI编码来识别的

77七 · 发表于 2023-4-18 11:46:10

回复 10# lmq123

这个字符数到底是什么意思？为什么“4月10日.srt” 这个文件的字符数比去掉一部分生成的 “4月10日内容.srt” 字符数还要少？请提供一个4月10日.srt 这个文件的预期结果，我看看是什么样子的。

lmq123 · 发表于 2023-4-18 14:29:16

本帖最后由 lmq123 于 2023-4-19 10:35 编辑

回复 12# 77七

不好意思，我弄错了

lmq123 · 发表于 2023-4-18 16:41:41

本帖最后由 lmq123 于 2023-4-19 10:51 编辑

回复 8# 77七

77七您好，我现在还有一个问题要解决就是再把时间文档与内容文档合并成一个整体，每个单元之间相隔一行，每个单元由一段数字+一段时间+一段长短不确定的中文英文数字等字符组成
时间文档是固定的每个小单元之间间隔一个空行，
但是内容文档是含有中文也含有英文数字的，而且它有2种情况，一种是每个小单元之间绝对是间隔一行的，另一种则是杂乱无章的数字与中英文字符之间是没有规律的，有可能之间隔一行，也可能是23456，，等任意空行，但是它们之间的间隔的空行数最大不会超过20行.
要把内容demo1与内容demo2分别与时间文档进行合并，当双击批处理后，能让内容1或内容2之中的任何一个与时间文档合并成合并后的样本那样子，批处理就算是成功了，不知道77七你有什么好办法可以完成

举例样本
链接:https://pan.baidu.com/s/1w-4IoXPpRg1F5e8cNJz5DA 
提取码:hyu6

77七 · 发表于 2023-4-18 19:37:05

回复 14# lmq123

@echo off
for /f "delims=" %%i in ('dir /b /a-d *时间*.srt') do set "filet=%%i"
set "filedate=%filet:~0,-6%"
for /f "delims=" %%i in ('dir /b /a-d *内容*.srt') do set "filec=%%i"
copy "%filet%" "xxxt.srt"
copy "%filec%" "xxxc.srt"
chcp 437 1>nul
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('type "xxxt.srt"') do (
set /a n+=1,m=n%%2
if !m! equ 0 set "#!n!=%%a"
)
set /a n=m=0
for /f "delims=" %%a in ('type "xxxc.srt"') do (
set /a n+=1,m=n%%2
if !m! equ 0 set "##!n!=%%a"
)
for /l %%l in (1,1,5000) do (
if defined #%%l (
>>"xxxtc.srt" (
set /a k+=1
echo !k!
echo !#%%l!
echo !##%%l!
echo;
)
)
)
chcp 936 1>nul
del "xxxt.srt";"xxxc.srt"
ren "xxxtc.srt" "%filedate%-时间+内容.srt"
pause

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 求助文档组合再切割的批处理