『壹』 大股東公告不減持，但私下悄悄減持！會受到怎樣的處罰最近有相關的報道嗎
哈哈，根據《上市公司股東、董監高減持股份的若干規定》及《深圳證券交易所內上市公司股東及董監高減持股份實施容細則》第十三條「上市公司大股東、董監高通過本所集中競價交易減持股份的，應當在首次賣出的十五個交易日前向本所報告減持計劃，在本所備案並予以公告」。
也就是說，上市公司股東、董監高減持股份理論上要事先公告披露（一般也不會公告說自己不減持）！但是沒披露就減持基本也沒啥處罰，一般公司就發個公告，內容是這個股東道歉，甩鍋是自己的配偶誤操作之類，然後說將加強學習。。
這種所謂的「誤減持」例子很多，比如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 "處理完畢"
'====代===碼===結===束=============