十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
就是拆分字符串嘛用一个例子就知道了s=split("赵,钱,孙,李",",")s是个字符串数组,这样的话,s中就有四个元素s(0)是赵s(1)是钱s(2)是孙s(3)是李比自己一个个赋值快多了
在古雷港等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供成都网站设计、成都网站制作、外贸网站建设 网站设计制作按需搭建网站,公司网站建设,企业网站建设,成都品牌网站建设,成都营销网站建设,外贸网站建设,古雷港网站建设费用合理。
有些文本中的换行符不一定是vbCrLf,也有可能是vbCr或vbLf,你可以这样试试:
a = split(textbox1.text, vbcr)
或
a = split(textbox1.text, vblf)
Dim sr As StreamReader = File.OpenText("E:\1.txt")
Dim input As String
input = sr.ReadLine()
While (Not input Is Nothing And i = 16)
title(i) = Trim(input)
title2(i) = title(i).Replace(Space(3), vbCrLf)
input = sr.ReadLine()
i = i + 1
End While
sr.Close()
不用 Split 这样说行了
Dim b() As String
b() = Split(list1.text, " ")
text1.text = b(0)
text2.text = b(1)
是这样用的
不能赋值给具体的数组元素
Split只能处理一个字符作为分隔符,你这种情况得自己手工处理, 不能使用Split.
可以这样写:
s = data.Trim.Split(CChar("|"))
s(0) = s(0).Replace("file","")
b(j) = Val(Split(t2, " ")) 这里错了。
Split(t2, " ") 这个是数组,数组不能val了。
b(j)=val(Split(t2, " ")(j))