Dim?sr?As?StreamReader?=?File.OpenText("E:\1.txt")
公司主營業(yè)務:成都網(wǎng)站制作、網(wǎng)站建設、外貿(mào)網(wǎng)站建設、移動網(wǎng)站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)公司是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領域給我們帶來的挑戰(zhàn),讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)公司推出山西免費做網(wǎng)站回饋大家。
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是個字符串數(shù)組,這樣的話,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, " ") 這個是數(shù)組,數(shù)組不能val了。
b(j)=val(Split(t2, " ")(j))