thx1138v2
2017-08-13 08:25:40
它比那简单得多。在 VB6 中，你应该使用 Option Explicit 正确键入变量。这也需要你声明它们。
Option Explicit
Private Function capitalize(txt As String) As String
Dim temp_str as String
Dim Names As Variant
Dim Index As Long
'Remove leading and trailing spaces
temp_str = Trim$(txt)
'Remove any duplicate spaces just to be sure.
Do While Instr(temp_str, " ") > 0
temp_str = Replace(temp_str, " ", " ")
Loop
'Create an array of the individual names, separating them by the space delimiter
Names = Split(temp_str, " ")
'Now put them, back together with capitalisation
temp_str = vbnullstring
For Index = 0 to Ubound(Names)
temp_str = temp_str + Ucase$(Left$(Names(Index),1)) + Mid$(Names(Index),2) + " "
Next
'Remove trailing space
capitalize = Left$(temp_str, Len(temp_str) - 1)
End Function
这是相当容易的部分。如果你只打算处理人名，那么处理 MacFarland、O'Connor 等名称仍需要更多工作。
企业名称变得更加复杂，因为它们可以有一个像“湖上村庄公寓”这样的名字，其中一些单词没有大写。这是一个合法的商业名称，所以大小写很重要。
如果所有内容都为小写，Professional 和 business 后缀也可能会出现问题——比如 phd 应该是 PhD，llc 应该是 LLC，而 iii，就像在 John Smith III 中一样，会出现 Iii。
还有一个 VB6 函数可以将每个单词的第一个字母大写。它是 StrConv(string,vbProperCase) 但它也将不是第一个字母的所有内容设置为小写。所以PhD变成Phd，III变成III。由于上面的代码没有将尾随部分更改为小写，因此如果输入正确，它仍然是正确的。
热门帖子
热门github
1
2
3
5
6
7
8
11
13
14
15
Mamba is a new state space model architecture showing promising performance on information-dense data such as language modeling, where previous subquadratic models fall short of Transformers. It is based on the line of progress on structured state space models, with an efficient hardware-aware design and implementation in the spirit of FlashAttention.
(翻译：Mamba 是一种新的状态空间模型架构，在信息密集型数据（例如语言建模）上显示出良好的性能，而之前的二次模型在 Transformers 方面存在不足。它基于结构化状态空间模型的进展，并本着FlashAttention的精神进行高效的硬件感知设计和实现。)