用split函數
創新互聯服務緊隨時代發展步伐,進行技術革新和技術進步,經過十年的發展和積累,已經匯集了一批資深網站策劃師、設計師、專業的網站實施團隊以及高素質售后服務人員,并且完全形成了一套成熟的業務流程,能夠完全依照客戶要求對網站進行網站設計、成都網站設計、建設、維護、更新和改版,實現客戶網站對外宣傳展示的首要目的,并為客戶企業品牌互聯網化提供全面的解決方案。
dim a()
a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格將文本拆分成數組賦值給a
得到的是文本,如果想得到數字就a(1) = val(a(1))‘把a(1)的值強制轉化成數字賦值給a(1),全部轉換自己弄個循環搞定
大概就這樣,你自己試試吧
for i =0 to ...
for j =0 to ...
keyarray(i,j)=
next
next
雙重循環,賦值和讀取一樣
每行的數字個數不同,你說的這是不規則數組,解決方案如下:
Dim b As String = ""
Dim a As Integer()() = New Integer(9)() {}
a(0) = New Integer() {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
a(1) = New Integer() {0, 3, 4, 5}
a(2) = New Integer() {0, 4, 5, 6, 7}
a(3) = New Integer() {0, 6, 5, 8, 9, 1}
a(4) = New Integer() {0, 2, 5, 1, 7}
a(5) = New Integer() {0, 4, 2, 6, 7, 3}
a(6) = New Integer() {0, 4, 5, 3, 2}
a(7) = New Integer() {0, 4, 1, 6, 2, 8, 5, 3}
a(8) = New Integer() {0, 4, 9, 6, 3, 5, 7}
a(9) = New Integer() {0, 1, 5, 9, 7, 6, 2, 4, 3, 8}
For i As Integer = 0 To a.GetUpperBound(0)
b = "第" i + 1 "行有" a(i).GetUpperBound(0) + 1 "個數" vbCrLf
Next
MessageBox.Show(b)
OPCItemIDsData(j,其中一維)即可。
如果前面方法有規定,不能用二維數組的格式,那么你可以自己定義一個一維數組,將二維數組的某一維度的全部數值賦值給這個數組,在引用這個數組:
dim OPCItemIDsDataBuf(x) as ...
for i = 1 to x
OPCItemIDsDataBuf(j)=OPCItemIDsData(j,其中一維)
next i
其中x是數組的最大下標
根據你的語句,上下標是確定的,所以定義語句修改為:
Dim ary(UBound(temp), 1) As String '聲明二維數組
分享題目:vb.net遍歷二維數組 一維數組遍歷二維數組
文章路徑:http://vcdvsql.cn/article34/hejgpe.html
成都網站建設公司_創新互聯,為您提供全網營銷推廣、ChatGPT、品牌網站設計、品牌網站制作、面包屑導航、做網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯