[文本处理] [已解决]批处理如何删除文本里字符串与逗号间的空格？

xparlyn

比如说我有一个文本文件，里面的内容如下：
abc def ghi          ,ghig def ate    ,fdsfdsifsdsa
gad  eft adfsd      ,     dsa   fdsa   ,    fdjoyolkok     ,ffdsafdsl

我想删除字符串与逗号间的空格得到如下结果：
abc def ghi,ghig def ate,fdsfdsifsdsa
gad  eft adfsd,     dsa   fdsa,    fdjoyolko,ffdsafdsl

注：字符串内的空格不删除，字符串与逗号间有多少空格不定，每行有多少个逗号也不定

另注：我不想用其它工具，只想用Windows内部命令来实现

[ 本帖最后由 xparlyn 于 2009-12-18 22:24 编辑 ]

asnahu

先在本论坛搜索SED，下载，放到c:\windows\，使用以下代码：

 @echo off
sed "s/\s*,/,/g" test.txt
pause>nul
复制代码

xparlyn

我不想用其它工具,只想用Windows内部命令来实现

[ 本帖最后由 xparlyn 于 2009-12-17 23:42 编辑 ]

zqz0012005

mshta "javascript:var fso=new ActiveXObject('Scripting.FileSystemObject');fso.OpenTextFile('2.txt',2,true).Write(fso.OpenTextFile('1.txt').ReadAll().replace(/\s*,\s*/g,','));"
复制代码

asnahu

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("test.txt", 1)
colLines = objFile.ReadAll
objFile.Close

Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "\s*，"

colLines = objRegEx.Replace(colLines, "，")

Set objFile = objFSO.OpenTextFile("test.txt", 2)
objFile.Write colLines
objFile.Close

Set   objFSO = Nothing
Set objRegEx = Nothing
复制代码

xparlyn

@echo off&setlocal enabledelayedexpansion
:hanye
set n=0&set a=a.txt
for /f "delims=" %%i in ('Findstr /n ".*" %a%') do (set i=%%i
set i=!i:*:=!
echo !i: ,=,!)>>gu.xing
del /q %a%
ren gu.xing %a%
Findstr /c:" ," %a% >nul&&set n=1
if %n% == 1 (goto hanye) else echo 操作完成!&pause
复制代码

这是在别处找到的，这才是我想要的，不过还是谢谢各位了

Batcher

CN-DOS找来的吧？
为什么4楼的不是你想要的呢？哪里不满足要求呢？

xparlyn

用到javascript，这点不是我想要的

xparlyn

不过我找到的那个方法在处理大文件的时候效率很慢,这点不爽
文件里有1万多的空格的话就慢的要死了...

Batcher

但它还是批处理啊，效率又高，还不需要临时文件，何乐而不为呢？

lvsehuaxue

我的效率不知道怎么样？

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
     set "v=%%i"
     for /l %%i in (1 1 80) do (
       set "v=!v: ,=,!"
    ) 
    echo !v!
)
 
复制代码

applba

vbs是个好东西。

逐行扫描，然后字符串替换

!a: ,=,!

就是不知道的逗号之前有多少个空格……