如何使用 LotusScript 在句子中设置句子大小写
How to set Sentence Case in a sentence using LotusScript
问题
- 要设置的字符串:这是一个字符串字符。
方法
- 正确大小写
@ProperCase("THis is A STring Character.")
,
结果为 = 这是一个字符串字符
我想要的结果只是首字母大写
预期结果:这是一个字符串字符
荷花文
好的我还没试过的莲花脚本
Dim FirstDesc As String
Dim DescLenght
Dim EndDesc As String
Dim FullDesc As String
FirstDesc =left(UCase(doc3.itemDescD(0)),1)
DescLenght = Len(doc3.itemDescD(0))
EndDesc =Right(LCase(doc3.itemDescD(0)),DescLenght-1)
FullDesc = FirstDesc + EndDesc
我找不到带有 "sentence case" 的 LotusScript 函数。我可以知道还有另一种方法吗?谢谢!
也许这个例子会对你有所帮助:
@公式:
tmp := "THis is A STring Character.";
@ProperCase(@Left(tmp;" ")) +" "+ @LowerCase(@Right(tmp; " "));
Lotusscript:
Dim tmp As String, tmpResult As String
tmp = "THis is A STring Character."
tmpResult = Strconv(Strleft( tmp, " "), 3)+" "+Strconv(Strright( tmp," "), 2)
Messagebox tmpResult
问题
- 要设置的字符串:这是一个字符串字符。
方法
- 正确大小写
@ProperCase("THis is A STring Character.") ,
结果为 = 这是一个字符串字符
我想要的结果只是首字母大写
预期结果:这是一个字符串字符
荷花文
好的我还没试过的莲花脚本
Dim FirstDesc As String
Dim DescLenght
Dim EndDesc As String
Dim FullDesc As String
FirstDesc =left(UCase(doc3.itemDescD(0)),1)
DescLenght = Len(doc3.itemDescD(0))
EndDesc =Right(LCase(doc3.itemDescD(0)),DescLenght-1)
FullDesc = FirstDesc + EndDesc
我找不到带有 "sentence case" 的 LotusScript 函数。我可以知道还有另一种方法吗?谢谢!
也许这个例子会对你有所帮助:
@公式:
tmp := "THis is A STring Character.";
@ProperCase(@Left(tmp;" ")) +" "+ @LowerCase(@Right(tmp; " "));
Lotusscript:
Dim tmp As String, tmpResult As String
tmp = "THis is A STring Character."
tmpResult = Strconv(Strleft( tmp, " "), 3)+" "+Strconv(Strright( tmp," "), 2)
Messagebox tmpResult