【已解决】批处理如何在输出一行数据的末尾，加上换行符？

思想之翼

1. @echo off
   
2. cd /d "e:\123\文件夹1"
   
3. (for %%i in (*.txt) do (
   
4.     setlocal enabledelayedexpansion
   
5.     for /f "delims=" %%a in (%%i) do (
   
6.         for %%b in (%%a) do (
   
7.            if not defined #%%b set #%%b=100000
   
8.            set/a #%%b+=1
   
9.         )
   
10.     )
    
11.     (for /f "tokens=2" %%z in ('^(for /f "tokens=1-2 delims=#=" %%a in ^('set #'^)do @echo,%%b %%a^)^|sort /r') do set/p=%%z )>"文件夹2\%%i"
    
12.     endlocal
    
13. ))<nul

复制代码

若要在输出的每个文本的数据后，加一个换行符 (Entet)，如何修改代码？

apang

小改一下：

1. @echo off
   
2. cd /d "文件夹1"
   
3. for %%i in (*.txt) do (
   
4.     setlocal enabledelayedexpansion
   
5.     for /f "usebackq delims=" %%a in ("%%i") do (
   
6.         for %%b in (%%a) do (
   
7.            if not defined #%%b (set #%%b=100001)else set/a #%%b+=1
   
8.         )
   
9.     )
   
10.     for /f "tokens=2" %%z in ('^(for /f "tokens=1-2 delims=#=" %%a in ^('set #'^)do @echo,%%b %%a^)^|sort/r')do set a=!a! %%z
    
11.     echo,!a:~1!>"..\排序1\%%i"
    
12.     endlocal
    
13. )

复制代码

apang

如果文本数据全部是固定的两位数，或许可以这样：

1. @set @n=0;/* & echo off
   
2. pushd "文件夹1"
   
3. dir /b *.txt | cscript -nologo -e:jscript "%~0"
   
4. pause & exit/b & rem */
   
5. 
   
6. fso = new ActiveXObject("Scripting.FileSystemObject");
   
7. while (!WScript.StdIn.AtEndOfStream) {
   
8.     f = WScript.StdIn.ReadLine();
   
9.     txt = fso.OpenTextFile(f, 1).ReadAll();
   
10.     ar = [];
    
11.     for (i=100; i<=199; i++) {
    
12.         j = (i + "").substr(1);
    
13.         n = txt.split(j).length;
    
14.         if (n > 1) ar.push(n + 100000000 + "=" + j)
    
15.     }
    
16.     ar.sort().reverse();
    
17.     s = ar.join(" ").replace(/\d+=/g, "");
    
18.     fso.CreateTextFile("..\\排序1\"+f, true).WriteLine(s)
    
19. }

复制代码