Dim input As String = "The quick brown fox jumps over the lazy dog"
Dim pattern As String = "\b(\w|['-])+\b"
' With lambda support:
Dim result As String = Regex.Replace(input,pattern,_
    Function (m) m.Value(0).ToString().ToUpper() & m.Value.Substring(1))

如果你不能使用lambdas,那么使用MatchEvaluator代替：

Dim evaluator As MatchEvaluator = AddressOf TitleCase
Dim result As String = Regex.Replace(input,evaluator)

Public Function TitleCase(ByVal m As Match) As String
    Return m.Value(0).ToString().ToUpper() & m.Value.Substring(1)
End Function

从MS Word格式的意义上来说,这不是真正的标题案例,但足够接近.

您没有指定语言,但在C#中您可以这样做：

string input = "The quick brown fox jumps over the lazy dog";
string pattern = @"\b(\w|['-])+\b";
string result = Regex.Replace(input,m => m.Value[0].ToString().ToUpper() + m.Value.Substring(1));

这很好地处理一个字母的单词,因为Substring不会在输入中输出诸如“A”之类的内容.