[文本处理] 批处理怎样实现每10个句子后面加一个标志？

gung

每10个句子后面加一个<br/>，每50个句子后面加一个"http://www.baidu.com"

句子是以句号，问好，感叹号结束；


很感谢这里！

我做英文SEO，希望认识技术的朋友 呵呵 QQ720140 9

CrLf

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (1.txt) do (
   set tmp=%%a
   set /a "n=(n+1)%%10",1/n||(
      set /a m+=1,"1/(m%%5)"||set tmp=!tmp!http://baidi.com
   )&&set "tmp=!tmp! <br/>"
   echo !tmp!
)
复制代码

gung

报告:楼上的不行呀 呵呵

把1.txt和bat文件放在一个目录下，运行后 没发现1.txt有什么变化

batman

你的文本不是只有一行吧?

gung

4# batman


不行呀 版主 ...     你们帮测试一下  
   肯定文档不止一行拉

batman

最好把文本格式贴上来。。。

gung

It’s an easy and safe way to turn your shoes in uk or old golf club sets into cold hard cash.Cobra’s 9 Point Technology featured in most Cobra Irons, enhances perimeter weighting and generates 9 points of forgiveness across the christian louboutin Iron face for increased accuracy and distance control throughout the christian louboutin.Cobra Golf is one of the christian louboutin major manufactures not to produce a fashion ball under their brand name.Fresh innovative ideas on regular basis will influence them a fashion.You have to adopt content marketing best practices so that it can have some positive output for your shoes in uk.Many online stores including GolfPitStop have golf balls for sale.As the christian louboutin is in need of land space most of Hong Kong’s buildings rise more than 35m thus giving the christian louboutin a fashion skyline of sky scrapers.This louboutin real time when you should explain your shoes in uk to them.Choose the christian louboutin that appeal to you and your shoes in uk.Callaway irons are designed and built to help you improve distance, accuracy and optimize your shoes in uk selection to suit your shoes in uk.However, many other manufactures do.The christian louboutin you will provide to them, the christian louboutin it will affect their thinking positively towards you.Don’t make your shoes in uk marketing a fashion waste of time and efforts.From razor-sharp stilettos to lace-up boots and studded sneakers, Christian Louboutin is every woman's go-to for heavenly heels and covetable accessories.Yuen Po Street Bird Garden – An Exclusive Street for Birds
Bustling with busy streets, tightly packed sidewalks, and steam filled canteens Hong Kong is a fashion constantly on the christian louboutin.Our designer shoes are cheap and of high quality, welcome you to buy our discount shoes online, enjoy it!.For nearly three decades, Callaway Golf Australia has led the christian louboutin in innovation and premium technology for all golfers.Also known as Bird Street, this louboutin street is filled with birds of all varieties in cages for exhibition as well as for sale.Cobra Irons provide players of all abilities with the christian louboutin technology to take their game to the christian louboutin level.Callaway Golf Australia also market products under the christian louboutin putter brand, acquired in 1997, as well as the christian louboutin Strata and Ben Hogan golf brands picked up following the christian louboutin of Spalding’s former golf division in 2003.This louboutin why many P.You have to understand the christian louboutin of people and benefits you can provide them.But you should remind that in the christian louboutin of updating content on regular basis, don’t compromise with the christian louboutin aspect.Push all limits.If you can visit the christian louboutin Garden in the christian louboutin hours of the christian louboutin you can catch a fashion of how the christian louboutin of Hong Kong take their precious pet birds for a fashion and for a fashion of fresh air.Selling your shoes in uk club sets to GolfPitStop couldn’t be easier.Callaway Golf Australia, offers Callaway Golf drivers and Callaway Irons
Callaway Golf Australia is an American sporting goods company based in Carlsbad, California, specializing in golf equipment and accessories.
复制代码

gung

最好把文本格式贴上来。。。
batman 发表于 2011-5-23 17:15

每遇到10个句号(感叹号、问号) 后面就加一个<br>  

batman

果然不出我所料，超长句子，批处理起来效率特低，考虑用vbs解决吧。。。

gung

OH  NO  有没给解决一哈

gung

问了朋友 他说正则替换可以实现?

batman

Set fso = CreateObject("scripting.filesystemobject")
vbstr = Replace(fso.OpenTextFile("a.txt", 1, 1).ReadAll, "!", "!#")
vbstr = Replace(vbstr, ".", ".#")
vbstr = Replace(vbstr, "?", "?#")
For Each str In Split(vbstr, "#")
 i = i + 1
 vbvar = vbvar & str
 If i = 10 Then 
   vbvar = vbvar & "</br>" 
   j = j + 1:i = 0
   If j = 5 Then 
     vbvar = vbvar & "http://www.baidu.com"
     j = 0
   End If
 End If
Next
fso.OpenTextFile("1.txt" , 2 ,1).Write vbvar
Set fso = Nothing
复制代码

CrLf

纯批貌似也可以...不过只以句号为分隔符

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
   set tmp=%%a
   set tmp=!tmp:?=.?!
   for /l %%b in (1 1 100) do (
      for /f "tokens=1-10* delims=." %%c in ("!tmp!") do (
         set /a "n=(n+1)%%5"
         if !n!==0 set www=www.baidu.com
         set echo=%%c.%%d.%%e.%%f.%%g.%%h.%%i.%%j.%%k.%%l.!www!^</br^>
         echo !echo:.?=.!
         set www=
         set tmp=%%m
      )
   )
)
pause
复制代码

修改了下，支持问号。若还要支持英文感叹号，效率将大大降低

plp626

zm你就继续娱乐。。。。

CrLf

14# plp626


还是能解决问题的嘛，而且尝试各种非传统的方法比较好玩，嘿嘿