vb.net怎么按行讀取數(shù)據(jù)到二維數(shù)組中，以空格分隔數(shù)據(jù)格式 -48.437500 0.000000 -0.000011 0.000011

用split函數(shù)

成都創(chuàng)新互聯(lián)是專業(yè)的聶拉木網(wǎng)站建設(shè)公司，聶拉木接單;提供網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì),網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行聶拉木網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!

dim a()

a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格將文本拆分成數(shù)組賦值給a

得到的是文本，如果想得到數(shù)字就a(1) = val(a(1))‘把a(bǔ)(1)的值強(qiáng)制轉(zhuǎn)化成數(shù)字賦值給a(1)，全部轉(zhuǎn)換自己弄個(gè)循環(huán)搞定

大概就這樣，你自己試試吧

VB.NET中，現(xiàn)有一多行TXT文件，想按行讀取全部?jī)?nèi)容，然后顯示在一文體框中，代碼如下

a?=?""

TextBox1.Text?=""

FileOpen(1,?Application.StartupPath()??"\file\t1.txt",?OpenMode.Input)??????

Do?While?Not?EOF(1)

Input(1,?a)

TextBox1.Text?=TextBox1.Text???a??vbcrlf

Loop??????

一次性讀取

a=File.ReadAllText(Application.StartupPath()??"\file\t1.txt")

vb.net中如何按行讀取一張表中的每一列的值

定義一個(gè)表對(duì)象，定義一個(gè)連接對(duì)象，定義一個(gè)連接字符串變量；

然后定義一個(gè)查詢字符串變量，你對(duì)照著例子，拼出來(lái)一個(gè)連接對(duì)象；

打開(kāi)連接，執(zhí)行查詢并填充結(jié)果到表對(duì)象。

然后，按照表里面的順序，一行一行的讀取每一列的值。

請(qǐng)照著例子學(xué)。

vb.net 按行讀取字符串

給你一個(gè)VB2010讀寫文件的例子吧

Dim?name?As?String?=?""

Dim?age?As?Integer

name?=?InputBox("請(qǐng)輸入姓名")

age?=?InputBox("請(qǐng)輸入年齡")

FileOpen(1,?"d:\信息.txt",?OpenMode.Append)

WriteLine(1,?name,?age)

FileClose(1)

FileOpen(1,?"d:\信息.txt",?OpenMode.Input)

Dim?h?As?String

Dim?j?As?String

Dim?f?As?String

f?=?""

h?=?""

j?=?""

While?EOF(1)?=?False

f?=?LineInput(1)??vbCrLf??f

End?While

FileClose(1)

MsgBox("姓名"??"??"??"年齡"??vbCrLf??f)