高手帮忙！整理文本框的字母！！！！！！！！！
2024-07-17 21:17:54作者：饭克斯
PrivateSubCommand1_Click()
s=LCase(Text1.Text)
Dimre
Setre=CreateObject(VBScript.RegExp)
re.IgnoreCase=True
re.Global=True
re.Pattern=(?:^|[\.\?\!])\s*?([a-z])
ForEachiInre.Execute(s)
n=i.FirstIndex+InStr(i.Value,i.SubMatches(0))
Mid(s,n,1)=UCase(Mid(s,n,1))
Next
Text1.Text=s
EndSub
展开全文
