『壹』 大股东公告不减持，但私下悄悄减持！会受到怎样的处罚最近有相关的报道吗
哈哈，根据《上市公司股东、董监高减持股份的若干规定》及《深圳证券交易所内上市公司股东及董监高减持股份实施容细则》第十三条“上市公司大股东、董监高通过本所集中竞价交易减持股份的，应当在首次卖出的十五个交易日前向本所报告减持计划，在本所备案并予以公告”。
也就是说，上市公司股东、董监高减持股份理论上要事先公告披露（一般也不会公告说自己不减持）！但是没披露就减持基本也没啥处罚，一般公司就发个公告，内容是这个股东道歉，甩锅是自己的配偶误操作之类，然后说将加强学习。。
这种所谓的“误减持”例子很多，比如1月22日，和而泰董事刘明就违规减持187手，然后说自己的账户长期是老婆在管，是老婆误操作。紧接着就是“深刻”认识错误，加强学习，防止下次再发生。。然后就是董事会也说要加强学习。。
就这样而已。
『贰』 求一个简单的文本批处理
试试这个vbs代码吧，能实现你需要的功能。
使用方法：
将以下代码保存为扩展名为的文件，将需要处理的文件放在与这个vbs文件同目录下，更改需要处理的文本文件名字为1.txt，双击这个vbs文件即可。
'====代===码===开===始============
set fso=CreateObject("Scripting.FileSystemObject")
set fr=fso.opentextfile("1.txt",1)
set fw=fso.createtextfile("1.tem",2)
do
data=fr.readline
if instr(data,"：")<>0 and instr(data,")")<>0 then
data=mid(data,instr(data,")")+1,instr(data,"：")-instr(data,")")-1)
end if
if instr(data,"B")=0 THEN fw.writeline(data)
Loop Until fr.atendofstream
fr.close
fw.close
set fr=fso.opentextfile("1.tem",1)
set fw=fso.createtextfile("1.txt",2)
do
fw.writeline(fr.readline)
loop until fr.atendofstream
fr.close
fw.close
fso.deletefile("1.tem")
MsgBox "处理完毕"
'====代===码===结===束=============