powerbat

既然用vbs，怎能不用正则表达式？

Set regEx = new RegExp
regEx.Global = true
regEx.IgnoreCase = false
Set fso = CreateObject("Scripting.FileSystemObject")
txt = fso.OpenTextFile("a1.txt").ReadAll()
regEx.Pattern = "(?:[^.?!]+[.?!]){10}"
txt = regEx.Replace(txt, "$&<br/>")
regEx.Pattern = "(?:[^.?!]+[.?!]){50}"
txt = regEx.Replace(txt, "$&""http://www.baidu.com""")
fso.OpenTextFile("a2.txt", 2, true).Write txt
复制代码

plp626

今天开始看awk，这个用gawk怎么弄？

plp626

gawk "BEGIN {FS=\".\"};{for (i=1;i<=NF;i++){printf \"%s\",$i; if(i==10)printf \".^<br/^>\";if (i==50)printf \".http://www.baidu.com \"}}" a.txt
复制代码

gung

纯批貌似也可以...不过只以句号为分隔符@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  ...
zm900612 发表于 2011-5-23 18:44

输出到>>txt 咋办?

gung

大侠们 谁总结一下我的问题怎么弄?









我的思想:几十篇文章放在一个txt里边,然后打乱，然后随机加入br，用br来作为标识符作为分割点，然后来生成很多小的txt文件

batman

本来也想用正则的，可惜水平跟不上，只能写出批处理思路的vbs来解决了，呵呵。。。

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^>
         for /l %%z in (1 1 10) do set echo=!echo:..=.!
         echo !echo:.?=.!
         set www=
         set tmp=%%m
      )
   )
))>b.txt
pause
复制代码

Batcher

20# gung


你能否先总结下，这么多人提供了这么多代码，为何你的问题还是没解决？

gung

关键我不懂代码 呵呵

试过了22楼得 发现br出现的很密集 有时候9个 有时候5个就有br了

CrLf

24# gung


水平有限...
楼主把我搞晕了，假如原文每个自然段中包含的句数不定，那到底是合并所有自然段后重新分段？还是既保留原有自然段，同时还按十句一周期来分段？或者是以十句一周期分段，但这个周期不超过原有自然段的长度？

Batcher

24# gung


看不懂不要紧，你可以分别测试一下那些代码，然后给出详细的测试结果。

gung

24# gung


水平有限...
楼主把我搞晕了，假如原文每个自然段中包含的句数不定，那到底是合并所有自然段后重新分段？还是既保留原有自然段，同时还按十句一周期来分段？或者是以十句一周期分段，但这个周期不超 ...
zm900612 发表于 2011-5-24 22:23

一个txt不分段落，每10个句子后面一个br ；每50个句子后面一个wwwbaiducom  

CrLf

@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%a in (a.txt) do set /p=%%a
echo;)<nul>tmp
(for /f "delims=" %%a in (tmp) 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^>
         for /l %%z in (1 1 10) do set echo=!echo:..=.!
         echo !echo:.?=.!
         set www=
         set tmp=%%m
      )
   )
))>b.txt
pause
复制代码

batman

只以说zm版主敬业又执着，很明显楼主是什么党来着。。。