从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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 这样说行了
就是拆分字符串嘛用一个例子就知道了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)
b(j) = Val(Split(t2, " ")) 这里错了。
Split(t2, " ") 这个是数组,数组不能val了。
b(j)=val(Split(t2, " ")(j))
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图