作者jijung (一生把你放在夢裡頭)
看板Visual_Basic
標題Re: [.NET] 讀取text檔裡的座標值
時間Mon Jul 24 00:33:40 2006
※ 引述《yfefey (還沒想到)》之銘言：
: 一個text裡面存了很多(x,y)這樣子的座標
: 現在想要把它一個一個讀出來，並且x座標相加平均，y座標相加平均
: 然後show出平均座標值
: 請問程式大概是怎麼跑的？
: 在yahoo知識+有找到一篇很有相關的
: http://tw.knowledge.yahoo.com/question/?qid=1105051209183
: 但是看不懂... = ="
: 我用的txt檔是長這樣：
: (23,28)(23,30)(23,35)(23,36)(23,38)(24,26)....
: ..............................................
: ..............................................
: ..........
: 不像上面知識+的格式
: 是盡量想用自己這樣的格式…
: 如果不行的話當然是以能寫出程式為主
: 希望有高手能指點一個方向
: 謝謝。
我只寫x出來y 的部份就自已寫囉^^
應該有更好的寫法，但我要睡覺了明天要上班 = =
Imports System.IO
Dim file As New StreamReader("D:\xy.txt") '你的檔案路徑
Dim line As String
Dim array() As String
Dim i, xSum, xQty As Integer
xSum = 0 'x 加總
xQty = 0 'x 數量
Do
line = file.ReadLine
If line <> Nothing Then
array = line.Split("(") '利用檔案特性右括號後二碼就是x值
'array就會變成像這樣 23,28)
For i = 1 To array.Length - 1
xSum += Val(array(i).Substring(0, 2)) '取得x值
xQty += 1 'x數加1
Next i
End If
Loop Until line Is Nothing
MessageBox.Show(CStr(xSum) + " x 平均值: " + CStr(xSum / xQty))
file.Close()
--
68年次 ......老了 (┬＿┬）
http://www.wretch.cc/album/jijung
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.67.226.105
1F：推 yfefey:太感謝你了!!還寫出這麼完整的程式^^ 07/24 14:29
2F：→ yfefey:那如果座標值從1~3位數都有可能的情形..那又該怎麼辦~"~ 07/24 14:29
3F：推 jijung: Val(array(i).Substring(0, array(i).LastIndexOf(","))) 07/24 19:19
4F：推 yfefey:謝謝.太感謝了!! 我去試試看!! 07/24 21:20