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表示前兩行不計算在內。