以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [原创]按照规则格式字符串  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157511)
--  作者：redbule2
--  发布时间：2020/10/19 11:09:00
--  [原创]按照规则格式字符串
有一个字符串，例如 ：“alipay.data.dataservice.bill.downloadurl.query"”

要求，去掉所有 点，且每个单词的首字母大写，变成 “AlipayDataDataserviceBillDownloadurlQuery"


去掉点，我会，点后面的第一个字母，变成大写字母，要怎么做才能实现
[此贴子已经被作者于2020/10/19 11:09:12编辑过]
--  作者：有点酸
--  发布时间：2020/10/19 11:49:00
--  
Dim ss() As String ="alipay.data.dataservice.bill.downloadurl.quer".split(".")
Dim r As String
For Each s As String In ss
    r = r + s.SubString(0,1).ToUpper + s.SubString(1)
Next
MessageBox.show(r)