ayanami365 的思路正确,但是忽略了当S为空的时候这一特殊情况。
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:主机域名、虚拟主机、营销软件、网站建设、黄埔网站维护、网站推广。
写了一个函数给您调用,这样你可以在任意字符串中查找某字符的个数,调用格式CharNum(A,B),其中A是字符串,B是要查找的字符:
Function CharNum(ByVal strInput As String, ByVal strChar As String) As Long
Dim S() As String
If Len(Trim(strInput)) = 0 Then
CharNum = 0
Else
S = Split(strInput, strChar)
CharNum = UBound(S)
End If
End Function
Private Sub Command1_Click()
Dim A As String, C As String
A = "1,2"
C = ","
MsgBox CharNum(A, C)
End Sub
"insert into point_info values(' " " ' point_count ' , " " ' p1.label1.Text ' , " " 28,18,70,30 ")"
vb中可以使用+连接字符串,
也可以使用连接字符串,
建议使用连接字符串,以区别数学运算符+。
Dim
sl
As
New
ArrayList
sl.Add("单个字符串")
Dim
sa
As
String()
=
{"a",
"b",
"c"}
sl.AddRange(sa)
'添加字符数组
Dim
objs
As
Object()
=
sl.ToArray
'将数据转换为数组
注意,ArrayList不是类型安全的集合方式,如果你的集合只要存储字符串的话,建议用List(Of
String)来进行操作。
有甚多办法,我说个最简单的
dim xstr as string = "abcde"
Xstr = "(" xstr ")"
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款