再求批处理解决遇到--破折符号时，英文引号变为中文破折号。

dzwind

回复 15# aloha20200628


    再次感谢您的无私帮助，让我的工作效率得到提升。

aloha20200628

回复 14# dzwind

订正了15代码中的第6行，补全楼主10楼的要求...

dzwind

回复  dzwind

因为需要全程开启变量延迟，所以文本行中包含的英文 ! 字符会被拦截，可用以下代码（修订 ...
aloha20200628 发表于 2025-9-29 20:15

脚本挺好，英文的感叹号被改成了中文感叹号，但是文本内容中的前面的空格没有被去掉，文本中的空格有1个全角空格的，有2个全角空格的，有1个半角空格的，有2个半角空格的，有3个半角空格的。能不能加语句把前面的空格都去掉？

aloha20200628

回复 18# dzwind

15楼代码已订正，其中第9-12行专用于删除行首指定字符并重计当前行长度，其中第11行定义每个要删除的字符，用多个 if "!c!" neq "X" 链接定义，被双引号包裹的 X 即为被删除字符。楼主可据此增减或核准需求...

dzwind

回复  dzwind

15楼代码已订正，其中第9-12行专用于删除行首指定字符并重计当前行长度，其中第11行定义每 ...
aloha20200628 发表于 2025-9-30 10:15

我的用bat的是XP系统，拖拽您给我的脚本后，英文字符包括英文感叹号变成了中文符号，但每个段的前面的空格没有被删除。 您提供的这一行好像没有发挥作用：   if "!c!" neq "　　" if "!c!" neq "　　" if "!c!" neq "  " if "!c!" neq "　　" if "!c!" neq "?" (set "x=1")

aloha20200628

回复 20# dzwind

试试把15楼代码复制到你的文本编辑器中，再把3，11，24行的英文!字符和中英文空格字符，都用本地*.txt文件中的中英文空格和!字符重新输入覆盖...

aloha20200628

回复 20# dzwind

重新简化了删除行首字符的方法，新版代码如下（已在win7+系统测试通过），再试试吧
备注》代码第5行 "tokens=* delims=　?         " 定义了行首被删除字符集，delims= 之后依序为中文空格、英文问号、制表符、英文空格。如有必要可用本地*.txt文件中的对应字符重新输入覆盖...

1. 
   
2. @echo off &setlocal
   
3. for /f "delims=" %%F in ('dir/s/b/a-d *.txt') do (
   
4.    (for /f "usebackq delims=" %%a in ("%%F") do set "x=%%a" &call echo,%%x:!=╫%%)>"#.$"
   
5.    setlocal enabledelayedexpansion &set/a "pm=1,qm=1"
   
6.    (for /f "tokens=* delims=　?         " %%a in (#.$) do (
   
7.       set "s=%%a" &set "s=!s:......=……!" &set "s=!s:--=——!" &set "_s=!s!"
   
8.       for %%n in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
   
9.          if "!_s:~%%n,1!" neq "" (set/a "ls+=%%n" &set "_s=!_s:~%%n!") )
   
10.       for /L %%n in (0,1,!ls!) do (
    
11.          set "c=!s:~%%n,1!"
    
12.          if ^!c! == ^" (
    
13.              set/a "pm=0-!pm!"
    
14.              if !pm! equ -1 (set "c=“") else (set "c=”")
    
15.          ) else if "!c!" == "'" (
    
16.              set/a "qm=0-!qm!"
    
17.              if !qm! equ -1 (set "c=‘") else (set "c=’") )
    
18.          set "_line=!_line!!c!" )
    
19.       echo,!_line!&set "_line=" &set "ls=0" ) )>"$.#"
    
20.    endlocal
    
21.    (for /f "delims=" %%a in ($.#) do set "x=%%a" &call echo,%%x:╫=!%%)>"%%~F.new"
    
22. )
    
23. del /q #.$ $.# &pause&exit/b
    

复制代码

dzwind

回复 22# aloha20200628


    感谢您的无私帮助，谢谢！