作者f7131129 (36)
看板Visual_Basic
標題[.NET] 讀取檔案後計算
時間Sat May 7 12:11:26 2011
大家好
我做的是讀取一個檔案之後要計算，
現在檔案讀的進來，但無法運算
我不知道我接下來該怎麼做
希望大家可以幫幫忙
我目前是把它分為兩個步驟做
一是讀取檔案，另一則是做平均
我現在卡在第二步驟平均的部份
麻煩大家了
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim filename As String = "d:\vb\1.txt"
FileOpen(1, filename, OpenMode.Input)
Dim str As String = ""
Dim s As String = ""
Do While Not EOF(1)
Input(1, s)
str = str + s + vbLf
Loop
TextBox5.Text = str
End Sub
----------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a, b, c, d As Short
Dim TextBox5.text As long
Do Until EOF(1)
b = b + a
c = c + 1
Loop
d = b / c
TextBox1.Text = Str(b)
FileClose(1)
End Sub
End Class
對了 因為我是用VB2008寫的，
我不知道分類在這個區對不對，
如果有誤請見諒 我會改的
※ 編輯: f7131129 來自: 111.184.208.77 (05/07 12:14)
1F：推 sueadolph:沒去看得很仔細， Dim textbox5.text as long ???? 05/07 23:00
2F：→ sueadolph:完全不懂第二段要做什麼事orz 05/07 23:02
3F：→ f7131129:第二段我需要求出資料的平均，而dim textbox5.text 05/08 00:14
4F：→ f7131129:則是因為資料讀進來時是字串（應該沒錯吧） 05/08 00:15
5F：→ f7131129:應該還需要需告為數值吧!!這我就不太懂了 05/08 00:17
6F：→ MOONRAKER:textbox.text怎麼可能給你再dim。宣告一個別的long變數 05/08 12:27
7F：→ MOONRAKER:把text轉換以後放進去還差不多 重點是轉換 05/08 12:27
8F：→ f7131129:謝謝，我現在去做做看 ，如果還是不行，再來請教大家唷~ 05/08 13:43
9F：→ sosokill:可以重複宣告嗎?XD 05/09 02:07