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

chiannet

pecmd.exe

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

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

复制代码

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

复制代码

chiannet

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

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

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

复制代码

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

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

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的路径

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. 
    

复制代码

chiannet

闲得那个痛才搞这样的代码