[.NET] 讀取檔案後計算

看板Visual_Basic作者 (36)時間14年前 (2011/05/07 12:11), 編輯推噓1(108)
留言9則, 4人參與, 最新討論串1/1
大家好 我做的是讀取一個檔案之後要計算, 現在檔案讀的進來,但無法運算 我不知道我接下來該怎麼做 希望大家可以幫幫忙 我目前是把它分為兩個步驟做 一是讀取檔案,另一則是做平均 我現在卡在第二步驟平均的部份 麻煩大家了 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)

05/07 23:00, , 1F
沒去看得很仔細, Dim textbox5.text as long ????
05/07 23:00, 1F

05/07 23:02, , 2F
完全不懂第二段要做什麼事orz
05/07 23:02, 2F

05/08 00:14, , 3F
第二段我需要求出資料的平均,而dim textbox5.text
05/08 00:14, 3F

05/08 00:15, , 4F
則是因為資料讀進來時是字串(應該沒錯吧)
05/08 00:15, 4F

05/08 00:17, , 5F
應該還需要需告為數值吧!!這我就不太懂了
05/08 00:17, 5F

05/08 12:27, , 6F
textbox.text怎麼可能給你再dim。宣告一個別的long變數
05/08 12:27, 6F

05/08 12:27, , 7F
把text轉換以後放進去還差不多 重點是轉換
05/08 12:27, 7F

05/08 13:43, , 8F
謝謝,我現在去做做看 ,如果還是不行,再來請教大家唷~
05/08 13:43, 8F

05/09 02:07, , 9F
可以重複宣告嗎?XD
05/09 02:07, 9F
文章代碼(AID): #1DnCPrQp (Visual_Basic)