[文本处理] 如何用批处理或者vbs将文本中分行/断行的同行内容合并/相连接

buypro

如何用批处理或者vbs将不同行合并？？？
C盘dir1目录下有N个文件。每个文件格式如下


截至日期：2014-01-15    股东户数:5 在职人员:51
股东名称  
-----------------------------------------------------------
特区资产管理委员会办           650.03        1.11   
公室                                                                     
鹤一实业投资公司               231.00        0.40     
鹤一科贸易有限公司             210.20        0.36
1     
刘昌军                         201.28        0.34   
张郁                          193.39        0.33   
-----------------------------------------------------------


-----------------------------------------------------------
特区资产管理委员会办           650.03        1.11   
公室2                                                                     
鹤一实业投资公司               231.00        0.40     
鹤一科贸易有限公司             210.20        0.36
司  2   
刘昌军                         201.28        0.34   
张郁                          193.39        0.33   
-----------------------------------------------------------

buypro

如何将分行的内容合并成一行？？？并替换分割符为///?
修改过的文件存在C盘的dir2 目录下。文件名不变



截至日期：2014-06-30    股东户数:5 在职人员:51
股东名称  
-----------------------------------------------------------
特区资产管理委员会办公室          ///       650.03    ///       1.11                                                                  
鹤一实业投资公司            ///       231.00    ///        0.40     
鹤一科贸易有限公司1         ///       210.20    ///        0.36   
刘昌军                       ///      201.28      ///      0.34   
张郁                         ///     193.39      ///      0.33   
-----------------------------------------------------------


-----------------------------------------------------------
特区资产管理委员会办公室2       ///    650.03      ///      1.11                                                                          
鹤一实业投资公司              ///     231.00       ///     0.40     
鹤一科贸易有限公司司 2         ///        210.20      ///      0.36
刘昌军                       ///      201.28      ///      0.34   
张郁                       ///       193.39      ///      0.33   
-----------------------------------------------------------


谢谢

buypro

顶一下

[code][/code]

CrLf

@set @n=0/*&echo off
for %%a in (c:\dir\*.csv) do (
   cscript -nologo -e:jscript %0 <%%a >$
   move /y $ "%%a"
)
pause&exit /b */

var text
text = WScript.StdIn.ReadAll()
text = text.replace(/(.+?)( +\d+\.\d+ +\d+\.\d+.*\r\n)(\S+) *\r\n/g,'$1$3$2')
text = text.replace(/ +(?=\S)/g,'    ///    ')
WScript.Echo(text)
复制代码