作者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