扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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 ")"
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网