删除第N个某字符后面的所有字符

2012xb21cn

1245.5545.4784264-5455.65455
结果：
1245.5545.4784264-5455

需求：提取最后一个.前面的所有字符串，或删除最后一个.后面所有字符串
(　.的个数不定）

麻烦高手帮忙！！！

holley2008

2012xb21cn 发表于 2018-6-28 13:56
刚好凑巧分隔符是.，如果是其它字符就不行了

一样类似  可以set定义.代替其它分隔符 效果最明显 不需要for或findstr查找半天。

chiannet

holley2008 发表于 2018-6-29 07:06
获取的是第一个.后面的字符串，，，我想要的是获取第一个.前面的字符串
用for比较简单

1. 
   
2. 
   
3. @ECHO OFF
   
4. SETLOCAL ENABLEDELAYEDEXPANSION
   
5. SET A1=左&SET A2=右&SET B1=前&SET B2=后
   
6. 
   
7. :N
   
8. CLS
   
9. ECHO.&ECHO.
   
10. ECHO.&ECHO.
    
11. SET /P FS=输入定位符号并回车：
    
12. REM 定位符号，赋值给FS，本批处理只能处理长度为1的单字符。
    
13. IF "%FS%"=="" (ECHO.&ECHO 输入无效，请重新输入！
    
14. PAUSE >NUL && CLS && GOTO N) ELSE (SET FS=%FS:~0,1%)
    
15. 
    
16. SET "TP=%~DP0"
    
17. REM 原始.TXT所在路径名，赋值给TP，以“\”结尾。
    
18. IF NOT EXIST "%TP%原始.TXT" (ECHO.&ECHO 未发现"%TP%原始.TXT"
    
19. PAUSE >NUL && CLS && EXIT)
    
20. 
    
21. :M
    
22. CLS
    
23. SET AX=&SET BX=
    
24. ECHO.&ECHO.
    
25. ECHO.&ECHO              按需求变换“原始.TXT”中每行字符串
    
26. ECHO.&ECHO.
    
27. ECHO.&ECHO        1、取得最%A1%“%FS%”之%B1%的字符
    
28. ECHO.&ECHO        2、取得最%A1%“%FS%”之%B2%的字符
    
29. ECHO.&ECHO        3、取得最%A2%“%FS%”之%B1%的字符
    
30. ECHO.&ECHO        4、取得最%A2%“%FS%”之%B2%的字符
    
31. ECHO.&ECHO        5、退出
    
32. 
    
33. ECHO.&ECHO.
    
34. SET /P AB=输入代码并回车：
    
35. IF NOT "%AB%"=="" SET AB=%AB:~0,1%
    
36. IF "%AB%"=="1" (SET AX=%A1%&SET BX=%B1%)
    
37. IF "%AB%"=="2" (SET AX=%A1%&SET BX=%B2%)
    
38. IF "%AB%"=="3" (SET AX=%A2%&SET BX=%B1%)
    
39. IF "%AB%"=="4" (SET AX=%A2%&SET BX=%B2%)
    
40. IF "%AB%"=="5" EXIT
    
41. IF "%AX%"=="" (ECHO.&ECHO 输入无效，请重新输入！
    
42. PAUSE >NUL && CLS && GOTO M)
    
43. SET PT="%TP%最%AX%定位符之%BX%的字符.TXT"
    
44. DEL %PT% /F >NUL 2>NUL
    
45. FOR /F "DELIMS=" %%I IN ('TYPE "%TP%原始.TXT"')  DO  CALL :L "%%I"
    
46. IF EXIST %PT% (CLS&ECHO.&ECHO %PT% 已创建。&ECHO.&ECHO.&PAUSE)
    
47. GOTO M
    
48. 
    
49. :L
    
50. SET "B=%~1"
    
51. IF "%AB%"=="1"  (IF "%B:~0,1%"=="%FS%" (SET "RE=有一个“%FS%”位于此行首位。"&GOTO E))
    
52. IF "%AB%"=="4"  (IF "%B:~-1%"=="%FS%" (SET "RE=有一个“%FS%”位于此行末尾。"&GOTO E))
    
53. SET RE=此行找不到指定的定位符号"%FS%"！
    
54. SET /A N=1
    
55. SET "A=%~1"
    
56. 
    
57. :R
    
58. SET /A NN=%N%-1
    
59. 
    
60. IF "%AB%"=="4" (SET "B=!A:~-%N%!"
    
61.         SET "D=!B:~0,1!"
    
62.         IF "!D!"=="%FS%" (SET "RE=!A:~-%NN%!"&GOTO E)
    
63.         IF "!B!"=="%A%" GOTO E)
    
64. 
    
65. IF "%AB%"=="3"  (SET D=%B:~-1,1%
    
66.         SET B=!B:~0,-1!
    
67.         IF "!D!"=="%FS%"  (SET "RE=!B!"&GOTO E))
    
68. 
    
69. IF "%AB%"=="2"  (SET D=%B:~0,1%
    
70.         SET B=!B:~1,100000!
    
71.         IF "!D!"=="%FS%"  (SET "RE=!B!"&GOTO E))
    
72. 
    
73. IF "%AB%"=="1" (SET "B=!A:~0,%N%!"
    
74.         SET "D=!B:~-1!"
    
75.         IF "!D!"=="%FS%"  (SET "RE=!A:~0,%NN%!"&GOTO E)
    
76.         IF "!B!"=="%A%" GOTO E)
    
77. 
    
78. SET /A N=%N%+1
    
79. IF %AB% GTR 1 (IF %AB% LSS 4 (IF "%B%"=="" GOTO E))
    
80. GOTO R
    
81. 
    
82. :E
    
83. IF %AB% GTR 1 (IF %AB% LSS 4 (IF "%RE%"=="" SET "RE=有且仅有一个“%FS%”位于此行最%BX%位。"))
    
84. ECHO %RE%>>%PT%
    
85. GOTO :EOF
    
86. 
    
87. 
    
88. 
    
89. 
    

复制代码

nttwqz

for /f

2012xb21cn

nttwqz 发表于 2018-6-28 09:59
for /f

高手能具体点吗？水平有限，用for只会截取第一个，达不到想要的结果

chiannet

pecmd.exe

SET A=1245.5545.4784264-5455.65455
RPOS B=.,1,%A%
CALC #B=%B%-1
LSTR A2=%B%,%a%
MESS %A2%

dos时代菜鸟

用 for 逆序 计数  找到 .  后 用 Set 截取。

2012xb21cn

chiannet 发表于 2018-6-28 10:25
pecmd.exe

SET A=1245.5545.4784264-5455.65455

多谢高手，需要正常系统的批处理

2012xb21cn

dos时代菜鸟 发表于 2018-6-28 10:28
用 for 逆序 计数  找到 .  后 用 Set 截取。

多谢指点，只能再去学习下

tools241

* 如何利用 仿unix/linux命令 sed 一次替换文字中的 "某些相似性的字串" ==>
http://bbs.wuyou.net/forum.php?mod=viewthread&tid=383106

* windows下安装 UnxUtils -- 仿 unix/linux 命令 (约120个) ==>
   http://bbs.wuyou.net/forum.php?mod=viewthread&tid=383107

echo 1245.5545.4784264-5455.65455 | sed.exe -e "s:\(.*\)\..*:\1:"
会得到 1245.5545.4784264-5455

** 注解:
sed.exe -e "编辑指令" < 输入档 > 输出档
编辑指令中有 "s/找字串一/改成字串二/" 或 "s:找字串一:改成字串二:" ,
其中 s 表示 "替代" .  表示 "任意字",  *  表示 "前面的字出现任意次数", 因此
  .*  表示 "任意字出现任意次数"
\ 表示 将其后的字的意义 "取消 或 另做不同的解释" , \/ 表示 / , \. 表示 .
\(.*\) 表示将 \(  \) 的内容存到字串二的 \1 中 ,

chiannet

2012xb21cn 发表于 2018-6-28 10:37
多谢指点，只能再去学习下

没有用For ，语句不够精炼。但可以实现目标。

1. @ECHO OFF
   
2. SETLOCAL ENABLEDELAYEDEXPANSION
   
3. set A=1245.5545.4784264-5455.65455
   
4. CALL :LS "%A%"
   
5. echo !A:~0,%D%!
   
6. :END
   
7. pause
   
8. 
   
9. 
   
10. :LS
    
11. IF %~1*==* GOTO :END
    
12. SET "B=%~1"
    
13. SET /A N=0
    
14. SET /A D=0
    
15. :LOOP
    
16. SET B=%B:~0,-1%
    
17. SET D2=%B:~-1,1%
    
18. SET /A N=%N%+1
    
19. IF "%D2%"=="."  (IF %N% GTR  %D% (SET /A  D=%N%-1))
    
20. IF "%B%"=="" GOTO :EOF
    
21. GOTO LOOP

复制代码

2012xb21cn

chiannet 发表于 2018-6-28 11:09
没有用For ，语句不够精炼。但可以实现目标。

多谢C大，我已经用for/f分列式弄出来了

dos时代菜鸟

不知道 字符串中 . 的个数是否固定，如果知道 . 的个数是固定的，一句话就可以了。
否则，用这个 从后面 开始 一个字符一个字符的判断，并计数。明确位置，截取显示。

1. @echo off
   
2. setlocal ENABLEDELAYEDEXPANSION
   
3. set "lx001=1245.5545.4784264-5455.65455"
   
4. set "s1=."
   
5. 
   
6. echo lx001="!lx001!"
   
7. echo s1="!s1!"
   
8. echo.
   
9. 
   
10. set /a n=1
    
11. :loop
    
12.   for /f %%n in ("!n!") do (
    
13.     if "!lx001:~%%n,1!"=="" goto end_l
    
14.     if "!lx001:~-%%n,1!"=="!s1!" (    echo !lx001:~0,-%%n! &    goto end )
    
15.   )
    
16.   set /a n+=1
    
17. goto loop
    
18. :end_loop
    
19. 
    
20. :end_l
    
21.   echo 总长度 !n!,没找到 关键字符。
    
22. :end
    
23.   pause

复制代码

nttwqz

dos时代菜鸟 发表于 2018-6-28 11:38
不知道 字符串中 . 的个数是否固定，如果知道 . 的个数是固定的，一句话就可以了。
否则，用这个 从后面  ...

这个？我可以投机取巧吗？？

for /f "delims=" %%a in ("需要处理的字符") do echo %%~na

dos时代菜鸟

nttwqz 发表于 2018-6-28 11:54
这个？我可以投机取巧吗？？

for /f "delims=" %%a in ("需要处理的字符") do echo %%~na

你这样 得到的 难道 不是 一个 文件名么？

1. 另外，FOR 变量参照的替换已被增强。你现在可以使用下列
   
2. 选项语法:
   
3. 
   
4.      %~I          - 删除任何引号(")，扩展 %I
   
5.      %~fI        - 将 %I 扩展到一个完全合格的路径名
   
6.      %~dI        - 仅将 %I 扩展到一个驱动器号
   
7.      %~pI        - 仅将 %I 扩展到一个路径
   
8.      %~nI        - 仅将 %I 扩展到一个文件名
   
9.      %~xI        - 仅将 %I 扩展到一个文件扩展名
   
10.      %~sI        - 扩展的路径只含有短名
    
11.      %~aI        - 将 %I 扩展到文件的文件属性
    
12.      %~tI        - 将 %I 扩展到文件的日期/时间
    
13.      %~zI        - 将 %I 扩展到文件的大小
    
14.      %~$PATH:I   - 查找列在路径环境变量的目录，并将 %I 扩展
    
15.                    到找到的第一个完全合格的名称。如果环境变量名
    
16.                    未被定义，或者没有找到文件，此组合键会扩展到
    
17.                    空字符串
    
18. 
    
19. 可以组合修饰符来得到多重结果:
    
20. 
    
21.      %~dpI       - 仅将 %I 扩展到一个驱动器号和路径
    
22.      %~nxI       - 仅将 %I 扩展到一个文件名和扩展名
    
23.      %~fsI       - 仅将 %I 扩展到一个带有短名的完整路径名
    
24.      %~dp$PATH:I - 搜索列在路径环境变量的目录，并将 %I 扩展
    
25.                    到找到的第一个驱动器号和路径。
    
26.      %~ftzaI     - 将 %I 扩展到类似输出线路的 DIR

复制代码

nttwqz

dos时代菜鸟 发表于 2018-6-28 11:56
你这样 得到的 难道 不是 一个 文件名么？

你可以试一下，文件名也是字符嘛！只不过不能用文件名没有的特殊字符而已，所以才叫投机取巧嘛！哈哈哈哈

chiannet

2012xb21cn 发表于 2018-6-28 11:30
多谢C大，我已经用for/f分列式弄出来了

不使用for，可能比较精炼的代码：

1. @ECHO OFF
   
2. 
   
3. SET "B=1245.5545.4784264-5455.65455"
   
4. SET RESULT=找不到.
   
5. 
   
6. :LOOP
   
7. SET D=%B:~-1,1%
   
8. SET B=%B:~0,-1%
   
9. IF "%D%"=="."  (SET "RESULT=%B%" && GOTO :END)
   
10. IF "%B%"=="" GOTO :END
    
11. GOTO LOOP
    
12. 
    
13. :END
    
14. ECHO %RESULT%
    
15. PAUSE
    
16. EXIT

复制代码

dos时代菜鸟

nttwqz 发表于 2018-6-28 12:00
你可以试一下，文件名也是字符嘛！只不过不能用文件名没有的特殊字符而已，所以才叫投机取巧嘛！哈哈哈哈

有道理，分隔符 恰恰是 文件名 扩展名 分隔符。
哈哈哈。
这个可以有。

dos时代菜鸟

chiannet 发表于 2018-6-28 12:01
不使用for，可能比较精炼的代码：

没有 setlocal ENABLEDELAYEDEXPANSION的情况下，你这个  更清新 。

guies

有沒有獲取 %~dp0 ，但不要有最後面那個 \
我不要用 %CD%

窄口牛

没你们那么高的水平，不过我也觉得用文件名和扩展名处理挺简单的。看上去他这个案例恰巧也不会有特殊字符。

2012xb21cn

nttwqz 发表于 2018-6-28 11:54
这个？我可以投机取巧吗？？

for /f "delims=" %%a in ("需要处理的字符") do echo %%~na

高，当文件名确实也能解决，并且更简练

holley2008

你想多了...
直接把其当做一个文件名

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. set str=1245.5545.4784264-5455.65455
   
4. for %%i in ("%str%") do set "newstr=%%~ni"
   
5. echo %newstr%
   

复制代码

即可得到你要的结果。

2012xb21cn

holley2008 发表于 2018-6-28 13:47
你想多了...
直接把其当做一个文件名

刚好凑巧分隔符是.，如果是其它字符就不行了

xzf680

1. ### 友情提示：本脚本由 Au3.REHelper 于 2018/06/28 14:01 自动生成，不保证其正确性，请自行测试 ###
   
2. Local $sSource = '1245.5545.4784264-5455.65455'
   
3. ;~MsgBox(0, '源字符串', $sSource)
   
4. Local $sSRERe = StringRegExpReplace($sSource, '(.*?)(.\w+), '$1')
   
5. MsgBox(0, '替换结果', $sSRERe)
   

复制代码

2012xb21cn

holley2008 发表于 2018-6-28 14:45
一样类似  可以set定义.代替其它分隔符 效果最明显 不需要for或findstr查找半天。

赞，这个思路不错

chiannet

2012xb21cn 发表于 2018-6-28 15:01
赞，这个思路不错

这个并不太好，比如以下字符串

1. 1245.55,45.478,4264-5455.65,4.55
   
2. 
   

复制代码

如果要以","为分隔符，截取最右","之前的字符，如果把","替换为"."，再按文件名来整，显然会得错误结果。其实16楼的比较精炼了。

稍微改一下，还可以实现获取最左"."后的字符串等。

2012xb21cn

chiannet 发表于 2018-6-28 16:00
这个并不太好，比如以下字符串

那如何批量从文件中读取修改呢（每行都是类似数据）？试着改了下总不成功

chiannet

2012xb21cn 发表于 2018-6-28 16:06
那如何批量从文件中读取修改呢（每行都是类似数据）？试着改了下总不成功

1. @ECHO OFF
   
2. del "%~DP0转化后.TXT" /F >NUL 2>NUL
   
3. FOR /F "delims=" %%I IN ('type "%~DP0原始.txt"')  DO  CALL :L "%%I"
   
4. EXIT
   
5. 
   
6. :L
   
7. SET "B=%~1"
   
8. SET RE=此行找不到”.“
   
9. 
   
10. :R
    
11. SET D=%B:~-1,1%
    
12. SET B=%B:~0,-1%
    
13. IF "%D%"=="."  (SET "RE=%B%"&&GOTO :E)
    
14. IF "%B%"=="" GOTO :E
    
15. GOTO R
    
16. 
    
17. :E
    
18. ECHO %RE% >>"%~DP0转化后.TXT"
    
19. GOTO :EOF

复制代码

chiannet

修改一下上面代码的原始.txt及转化后.txt的路径

2012xb21cn

chiannet 发表于 2018-6-28 17:05
修改一下上面代码的原始.txt及转化后.txt的路径

多谢C大，换其它字符都测试成功