當前位置:成語大全網 - 書法字典 - VB從文本文件中讀取數據,並將其分配給變量和二維數組。

VB從文本文件中讀取數據,並將其分配給變量和二維數組。

txt中的數據如下

5,273.5615 ,50575.215 ,5111.594

5421.235 ,5257.232 ,117.4712

275.1327 ,51.794

211.3505 ,66.781

144.3541 ,123.898

208.5307 ,146.298

263.3342 ,0

(上面最後壹個數據必須為0,第壹行分配給n、ta、xa、ya,第二行分配給xb、yb、tb。

,從第三行到第n行被分配給數組b(v),s(v)。

如何將每個數據讀入程序中的變量n、ta、xa、ya、xb、yb、tb?

和數組b(v)、s(v)

越簡單越好!!!使用輸入# 1,n,ta,xa,ya,XB,Yb,TB。

怎麽用!!!!!!!!!!

共享給:

2011-05-13 20:52提問者采納

處理文本數據庫是壹個相對簡單的問題。妳可以參考我以下的百度回答:

/question/263695231.html

/question/261226446.html

/question/260252929.html

請參考上面的問題知道從文件中讀取的方法與上面相同,即每次讀取壹行,然後將這壹行的內容用逗號分隔成壹個中間數組,然後判斷這是哪壹行。第壹行賦給n,ta,xa,ya,如果判斷第二行被讀取,則賦給xb,yb,tb,讀出的數據賦給數組B(V),S(V三行或更多)當然,妳最好在賦值之前判斷這個txt文件中有多少行,從而確定數組B(V)和S(V)中V的維數。

好好看看給妳的參考資料,好好研究壹下。這對妳來說很簡單。

提問:

輸入# 1,n,ta,xa,ya,XB,Yb,TB表示您添加了5,273.5615,50575.215,511。

5421.235、5257.232、117.4712(即文件前兩行中的值)分別分配給n n、ta、xa、ya、xb、yb、tb和TB。

第壹行的第壹個數字是5,這意味著第三行到最後壹行是1 ***5行。該數字對應於從第三行到最後壹行的行數。我的意思是將第三行分配給最後壹個數組b(v),s(v)!根據我上面的數據,v-1=5,這是由第三行到最後壹行的行數決定的!

回答:

好的,我直接給妳代碼。

您的文本文件不需要第1行中的數字5,只需要第1行中的三個數字,第2行中的三個數字,以及從第3行開始的每行中的兩個數字(任何行數都可以),代碼將幫助您自動計算出該數字。

以下代碼假設您的文本文件是“data.txt”,位置在d盤下。以下代碼是在命令按鈕command1中編寫的,您可以直接復制它並運行它。完成以下模塊後,所有數據都將加載到這些未知數中:

私有子命令1_Click()

Dim字符串,StrData字符串,a長,aa長,x()單精度

Dim ta為單身,xa為單身,ya為單身,xb為單身,yb為單身,tb為單身

將b()標註為單個,將s()標註為單個

打開“D:\data.txt”作為#1輸入

直到EOF(1)為止

線路輸入#1,字符串

If Strling & lt& gt““那麽a = a + 1

雷迪姆b(a-2),s(a-2)

斯特林=““

直到EOF(1)為止

線路輸入#1,字符串

If Strling & lt& gt”“那麽

aa = aa + 1

x()= Split(StrLine,“,“)

選擇案例aa

案例1

ta = x(0):xa = x(1):ya = x(2)

案例2

XB = x(0):Yb = x(1):TB = x(2)

案例是& gt= 3

b(aa-2)= x(0):s(aa-2)= x(1)

結束選擇

如果…就會結束

關閉#1

MsgBox“文本文件已輸入所有變量!“& ampvbCrLf & amp;“在您的文本文件中,除了第1行第2行外,還有“&;a2 & amp;“好吧。”,vbOKOnly,“數據已成功打開”

末端接頭

註意,數據結構如下:

273.5615,50575.215,5111.594

5421.235,5257.232,117.4712

275.1327,51.794

211.3505,66.781

144.3541,123.898

208.5307,146.298

。。。。。省略號代表任意多行。

263.3342,0

第壹行包含:ta,xa,ya。

第二行包含:xb、yb、tb。

在第三行之後,每行的第壹個數字是B(),第二個數字是S()。

B()和S()的範圍是從B(1)和S(1)到最後壹行,例如上面的B(5)和S(5),其中5表示前兩行不計算在內。