VB.NET 字串用換行分割

假設(shè)你要分割的字符串是string1的話

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴，公司提供的服務(wù)項目有：空間域名、雅安服務(wù)器托管、營銷軟件、網(wǎng)站建設(shè)、愛輝網(wǎng)站維護(hù)、網(wǎng)站推廣。

分割代碼就是：

dim s as string=strings.split(string1,vbcrlf)

這樣s就是一個陣列了。s(0)是第一段內(nèi)容，s(1)是第二段內(nèi)容，以此類推。~~

googles8 的寫法也對的。不過我的代碼省去了聲明的一行。只用一行就好了。

vb.net ByVal 值的輸出

事實上，在B =陣列（...）數(shù)組參數(shù)短語的主要問題是2,5,3，所以這些整數(shù)數(shù)組（）函數(shù)的返回值類型的一個變種，而不是塑料。在指定的子數(shù)組參數(shù)的定義是一個整數(shù)，導(dǎo)致類型不匹配錯誤。

使用下面的方法解決這個問題：

定義函數(shù)的參數(shù)類型，

。私人小組代碼（1為ByRef（帶），作為字符串BYVAL myStr中）

你提到的原因，后的ByRef參數(shù)類型不匹配，因為默認(rèn)情況下是作為一個參數(shù)傳遞的函數(shù)地址，你的第二個參數(shù)myStr的前面不限制轉(zhuǎn)讓其參數(shù)，系統(tǒng)，與前一個（）相同的地址，已成為通過輕輕是一個錯誤，只要在前面加1 BYVAL。

后的代碼如下（調(diào)試通過）：

選項??基地1

。私人小組代碼（1為ByRef（帶），作為字符串BYVAL myStr中）

？？作為字符串昏暗的通道，C1為字符串

？N = UBound的（一） - LEN（myStr中）

？如果N 0？

？？？myStr的= myStr的字符串$（“*”）

？？結(jié)束如果

？？CH = myStr的

？？對于k = 1，UBound的（一）

？？？C1 = MID（myStr中，K，1）

？？？N = A（K）

？？？中$（CH，N）= C1

K-？

？？myStr的= CH

？打印myStr的？

END SUB

私人小組Command1_Click（）

昏暗的b（）

B =陣列（2，5，3，7，6，1，4）

MYNAME =“克萊門特”

調(diào)用的代碼（二MYNAME）

END SUB

[VB.NET]讀取TXT的資料存到陣列之中

用自定義類型數(shù)組處理：

Private Structure PhoneBook

Dim ID As Integer

Dim name As String

Dim sex As Boolean

Dim phone As String

Dim email As String

Dim group As String '這里也可以設(shè)置為整數(shù)型，用序號來代表各個組

End Structure

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim PBook() As PhoneBook, tmpstr() As String, iCount As Integer = 0

Dim str As IO.StreamReader = New IO.StreamReader("C:\1.txt", System.Text.Encoding.Default)

Do Until str.EndOfStream

tmpstr = Split(str.ReadLine(), ",")

If tmpstr.Length = 6 Then

ReDim Preserve PBook(iCount)

PBook(iCount).ID = CInt(tmpstr(0))

PBook(iCount).name = tmpstr(1)

If tmpstr(2) = "男" Then PBook(iCount).sex = True Else PBook(iCount).sex = False

PBook(iCount).phone = tmpstr(3)

PBook(iCount).email = tmpstr(4)

PBook(iCount).group = tmpstr(5)

iCount += 1

End If

Loop

str.Close()

End Sub

網(wǎng)站欄目：vb.net陣列的簡單介紹
網(wǎng)站鏈接：http://chinadenli.net/article34/hgdcpe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、品牌網(wǎng)站設(shè)計、網(wǎng)站改版、全網(wǎng)營銷推廣、微信小程序、面包屑導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)