依山居

回复 29# qq253040425


    你需要把各种情况整理到汇总到帖子里。

依山居

@echo off
::依山居 13:01 2015/11/18
::fr 不带-stdout参数会直接修改原文件，所以复制s.txt为ss.txt运行测试
::fr 使用-s 可以列举子目录修改匹配的文件。注意做好备份
copy s.txt ss.txt /y
::以引号结尾，不以引号开头，就删掉回车换行。这个规则好处理测试可行。

fr ss.txt -rnnlic:\"(\r\n)[^\"] -t:

pause
复制代码

qq253040425

回复 30# 依山居


   发现一个解决一个吧

qq253040425

回复 32# 依山居

现在实际情况有那种本行以,结尾第二行以"开头的正确数据

qq253040425

回复 31# 依山居


嗯，这段代码能应付现在的情况后我会整理下的~

qq253040425

回复  依山居

大神！！
    出现问题了。。

数据中有
"LS81702201409060006659","20",,"81702 ...
qq253040425 发表于 2015-11-18 11:33

    主要是27楼这种情况，现在的代码会报错

依山居

回复 36# qq253040425

也只能这样了。这代码是按你原先说明的规则写的。容错性差是意料之中的。

qq253040425

回复 37# 依山居

好吧，那能不能帮忙解释下

    newtxt=[txt[r][:]+txt[r+1][:] if ('\"' not in txt[r][-1]) else txt[r] for r in range(rn) ]
    newtxt=[r+"\n" for r in newtxt if '\"' in r[0]]   

这一段什么意思呢~ 看不明白

qq253040425

回复 37# 依山居


    针对27楼的情况

报错的行修改为
newtxt=[txt[r][:]+txt[r+1][:] if ((',' not in txt[r][-1]))  else txt[r] for r in range(rn) ]
能过，但是原来想处理的情况就不行了，用or连击两个条件
newtxt=[txt[r][:]+txt[r+1][:] if (('\"' not in txt[r][-1]) or ('\"' not in txt[r][-1]))  else txt[r] for r in range(rn) ]
也是list out of range，最后再改成
newtxt=[txt[r][:]+txt[r+1][:] if ( ('\"' or ',') not in txt[r][-1])  else txt[r] for r in range(rn) ]
就发现 ('\"' or ',')  这里，谁在前才会生效

依山居

回复 39# qq253040425


    很难改的。你搜索列表解析
我不会用列表解析作复杂的判断。

依山居

    newtxt=[txt[r][:]+txt[r+1][:] if ('\"' not in txt[r][-1]) or (',' not in txt[r][-1]) else txt[r] for r in range(rn) ]
复制代码

qq253040425

回复 41# 依山居


    不行 - -  

还有 txt[r][:]是什么意思？

依山居

txt是一个列表，每个元素是一行。txt[r]表示第r行
txt[r][:]表示第r行的整个内容。

CrLf

Bat+JS 来一个

1>1/* :
@echo off
cscript -nologo -e:jscript "%~0" <a.txt >b.txt
pause & exit /b
*/
WSH.Echo(
   WSH.StdIn.ReadAll().replace(
      /"[^"]*"/g,
      function($0){
         return $0.replace(/\r?\n/g,'')
      }
   )
)
复制代码

qq253040425

回复 43# 依山居


    最后表示感谢，1L已更新，19L代码也更新了，27L的情况在数据库端控制好就完美解决啦~