在文本框输入长字母串，要求每句首个字母一定要大写，其他为小
写，并且以“.”or“?”or“!”为句子结束符，即在“.”or“?”or
“!”后的第一个字母又要大写，其他小写，比如输入“aSd.asd!
asD.asd?”按按钮后文本框输入“Asd.Asd!Asd.Asd?”
二楼的你用的函数能说明下吗？
第1个回答 2008-06-11
Private Sub Command1_Click()
s = LCase(Text1.Text)
Dim re
Set re = CreateObject("VBScript.RegExp")
re.IgnoreCase = True
re.Global = True
re.Pattern = "(?:^|[\.\?\!])\s*?([a-z])"
For Each i In re.Execute(s)
n = i.FirstIndex + InStr(i.Value, i.SubMatches(0))
Mid(s, n, 1) = UCase(Mid(s, n, 1))
Next
Text1.Text = s
End Sub
s = LCase(Text1.Text)
Dim re
Set re = CreateObject("VBScript.RegExp")
re.IgnoreCase = True
re.Global = True
re.Pattern = "(?:^|[\.\?\!])\s*?([a-z])"
For Each i In re.Execute(s)
n = i.FirstIndex + InStr(i.Value, i.SubMatches(0))
Mid(s, n, 1) = UCase(Mid(s, n, 1))
Next
Text1.Text = s
End Sub
第2个回答 2008-06-11
Private Sub Form_Click()
Dim daxie As Boolean
daxie = True
s = Text1
Print s
For i = 1 To Len(s)
zifu = Mid(s, i, 1)
If daxie Then s = Left(s, i - 1) & UCase(zifu) & Right(s, Len(s) - i)
If zifu = "!" Or zifu = "," Or zifu = "." Then
daxie = True
Else
daxie = False
End If
Next i
text1=s
End Sub
Dim daxie As Boolean
daxie = True
s = Text1
Print s
For i = 1 To Len(s)
zifu = Mid(s, i, 1)
If daxie Then s = Left(s, i - 1) & UCase(zifu) & Right(s, Len(s) - i)
If zifu = "!" Or zifu = "," Or zifu = "." Then
daxie = True
Else
daxie = False
End If
Next i
text1=s
End Sub
参考资料：自己写的
本回答被提问者采纳第3个回答 2008-06-12
在EXCEL里用proper这个函数
格式：＝proper(单元格)
格式：＝proper(单元格)
