怎样以一文本文件每行字串批量生成指定内容的文本文件

jie_xi

文本文件 SSJ.txt 内容如下
b624
c22b
e321
e421


生成的每个文件
其文件名为：为 SSJ.txt 文件中的 “字串” 加其 “文件名”.PS
文件内容如下，其第 2 行 “SSJ” 为文件名，第 9 行<>中为行字符串
%!PS-Adobe-3.0
%%Title: SSJ
%%BoundingBox: 0 0 10 10
%%Pages: Atend
%%EndComment
%%Page: 1 1
/S3J 10 selectfont
0 2.25 moveto
<b624>
[10]
xshow
showpage
%%PageTrailer
%Pages: 1
%%Trailer
%%EOF

jie_xi

slore 发表于 2024-5-26 12:09
使用方法: txt2ps.bat SSJ.txt

谢谢大佬

jie_xi

nttwqz 发表于 2024-5-26 11:48

谢谢大佬

slore

使用方法: txt2ps.bat SSJ.txt


txt2ps.bat

1. @echo off
   
2. if "%~1"=="" goto :EOF
   
3. md output 2>nul
   
4. for /f "delims=" %%i in (%1) do call :OUTPUT %~n1 %%i
   
5. goto :EOF
   
6. 
   
7. :OUTPUT
   
8. (
   
9. echo %%!PS-Adobe-3.0
   
10. echo %%%%Title: %1
    
11. echo %%%%BoundingBox: 0 0 10 10
    
12. echo %%%Pages: Atend
    
13. echo %%%%EndComment
    
14. echo %%%%Page: 1 1
    
15. echo /S3J 10 selectfont
    
16. echo 0 2.25 moveto
    
17. echo ^<%2^>
    
18. echo [10]
    
19. echo xshow
    
20. echo showpage
    
21. echo %%%%PageTrailer
    
22. echo %%Pages: 1
    
23. echo %%%%Trailer
    
24. echo %%%%EOF
    
25. ) > output\%2-%1.ps
    
26. goto :EOF
    

复制代码

nttwqz

TXT转PS.7z (36.95 KB, 下载次数: 3)

2024-5-26 11:48 上传

点击文件名下载附件
下载积分: 无忧币 -2