录入英文港口，国家的英文字母后，逗号后的国家字母大写该如何写代码

恐龙的传人　发表于：2020-02-22 10:38:57 　

例如,录入long beach,usa 需要使之字段更新后自动调整为Long Beach,USA (逗号后为国家名称，需要转换为大写），请问如何简单写出代码。

我写的代码非常烦琐。

Me.目的港 = StrConv(Me.目的港, 3)
If Me.目的港 Like "*,*" Then 
Me.目的港 = Left(Me.目的港, InStr(Me.目的港, ",")) & StrConv(Right(Me.目的港, Len(Me.目的港) - InStr(Me.目的港, ",")), 1)
End If

Top

张志发表于：2020-02-23 13:45:48

已经很简单了呀。

Top

恐龙的传人发表于：2021-04-03 11:34:53

感谢总版主光临并肯定

Top

西出阳关无故人发表于：2021-04-03 20:44:50

如果用得较多,还是写个函数

Public Function ConvCase(intval, Optional spl As String = ",") As String
Dim arr, i
arr = Split(intval, spl)
For i = 0 To UBound(arr)
arr(i) = StrConv(arr(i), vbProperCase)
Next
ConvCase = Join(arr, spl)
End Function
使用的时候,就简单了:

Str=ConvCase(Str)

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]录入英文港口，国家的英文字母后，逗号后的国家字母大写该如何写代码