调用vbs脚本对txt文件进行分割

月下美孤

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (txt文档_行分割 (“d:\test.txt”, “d:\”, 10, -80))
' ' 调试输出 (文件是否存在 (“d:\”))

子程序名	返回值类型	公开	备 注
txt文档_行分割	逻辑型		根据指定的行数，将txt文件分割为若干个txt文件,
参数名	类 型	参考	可空	数组	备 注
欲分割的文件路径	文本型				完整的文件路径+文件名
欲保存的位置	文本型
指定分割行	整数型				指定多少行生成一个文件
起始序号	整数型				生成txt文件的起始序号（文件名）

判断 (文件是否存在 (欲分割的文件路径) ＝ 假)
返回 (假)


写到文件 (取特定目录 (11) ＋ “\temp.bat”, 到字节集 (“set n=” ＋ 到文本 (指定分割行) ＋ #换行符 ), 到字节集 ( #head ＋ 到文本 (起始序号) ＋ “;gc '” ＋ 欲分割的文件路径 ＋ “'|%%{$f='” ＋ 欲保存的位置 ＋ #end ＋ #引号 ))
执行 (4, 取特定目录 (11) ＋ “\temp.bat”, , , 1)
返回 (真)

i支持库列表	支持库注释
spec	特殊功能支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 spec<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (txt文档_行分割 (“d:\test.txt”, “d:\”, 10, -80))<br /> <br /> ' ' 调试输出 (文件是否存在 (“d:\”))<br /> <br /> <br /> .子程序 txt文档_行分割, 逻辑型, , 根据指定的行数，将txt文件分割为若干个txt文件,<br /> .参数 欲分割的文件路径, 文本型, , 完整的文件路径+文件名<br /> .参数 欲保存的位置, 文本型, 可空<br /> .参数 指定分割行, 整数型, 可空, 指定多少行生成一个文件<br /> .参数 起始序号, 整数型, 可空, 生成txt文件的起始序号（文件名）<br /> <br /> <br /> .判断开始 (文件是否存在 (欲分割的文件路径) ＝ 假)<br />     返回 (假)<br /> .默认<br /> <br />     写到文件 (取特定目录 (11) ＋ “\temp.bat”, 到字节集 (“set n=” ＋ 到文本 (指定分割行) ＋ #换行符), 到字节集 (#head ＋ 到文本 (起始序号) ＋ “;gc '” ＋ 欲分割的文件路径 ＋ “'|%%{$f='” ＋ 欲保存的位置 ＋ #end ＋ #引号))<br />     执行 (4, 取特定目录 (11) ＋ “\temp.bat”, , , 1)<br />     返回 (真)<br /> .判断结束

月下美孤

.版本 2

.常量 head, "“powershell -c "$n=1;$m='”", , txt文件分割
.常量 end, "“'+$m+'.txt';$_>>$f;if($n%%%n% -eq 0){$m++};$n++}”", , txt文件分割

ljy559

？

晴天大佬

itoljeipw

  谢谢分享来看看

chouchong06

谢谢分享来看看

reveriexue

谢谢分享！！

月下美孤

气质征服一切 发表于 2022-2-8 17:41
#head和#end是什么

.版本 2

.常量 head, "“powershell -c "$n=1;$m='”", , txt文件分割
.常量 end, "“'+$m+'.txt';$_>>$f;if($n%%%n% -eq 0){$m++};$n++}”", , txt文件分割

治愈勇者

谢谢分享来看看

记忆233

谢谢分享！！