有个1.txt文件如下:
100 20.36 3.26 700 20 20
500 50.63 50.65 80 10 700
800 70 60 20.2 60 50
1200 ``````
(文件规律:第行六个数值,第一列是判断条件用的,第一列的下行总比上行的数值大)
现在想读取此文件,然后存在一个数组dadt(),然后根据变量k来判断提取哪两行的数值来进行计算

比如k=600时,提取的两行是500及800那两行的数值,其它行的数值就不管了,然后计算v=(70-50.63)/(20.2-50.65),
o=(700-50)*k,

或者先教一下要让p=第二行,第三个数值要怎么写?

不知哪位高手肯出手相助,先谢过了!

[此贴子已经被作者于2007-6-6 23:36:30编辑过]

已修改,不知是否能明白?

要不先教一下要让p=第二行,第三个数值要怎么写?

谢谢 !

那先告诉我怎么让：

p=data(一个10*7数组)的第二行,第三个数值

要怎么写吧？

是整个文件split 到一个数组吗？

但是，要怎么提取某个数值呢？（比如第4行第3个数值），然后跟其它数值进行运算。

哪位高手帮写个提取的语句吧？先谢过了！

兄弟，辛苦了
先谢谢了，我试下先

兄弟，有点问题，不知是不是我哪里操作错了，我的操作和显示结果是这样的：
1.按Command1后，在text1显示读入的文本串，（无换行，不知你是不是）
2.先text3中输入20,按Command2,在text2显示跟text1一样的内容，text3还是20,txet4空空
我不懂问题在哪了，因为很多语句读不懂啊，能不能加多一点注释，我是个新手，基础较差。
你操作的结果应该不一样吧？那些控件的属性不用设置吧？

[此贴子已经被作者于2007-6-7 16:34:38编辑过]

text1和2中的字符串有换行吗？

txet4用来干嘛？如果我要提取指定的第5行第4个数值显示到text4要改哪里？

又看了很久,很多看不懂,请ouzhiguang兄再帮下忙,注释一下吧.

可以计算了,但不知道你是提取哪几个数出来计算的




Private Sub Command1_Click()
Dim strfilename As String
Dim strline As String
Dim filenum As String
CommonDialog1.Filter = "所有文件(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
strfilename = CommonDialog1.FileName
Text1.Text = ""
filenum = FreeFile
If strfilename <> "" Then
Open strfilename For Input As filenum
Do While Not EOF(filenum)
Line Input #filenum, strline

Text1.Text = Text1.Text + strline + Chr(13) + Chr(10)
Loop
Close filenum
End If
'本过程为读入文件的数据 在text1中显示
End Sub

Private Sub Command2_Click()

Dim a(1000) As String

strfilename = CommonDialog1.FileName
Text1.Text = ""
filenum = FreeFile '下一个文件？
If strfilename <> "" Then '如果文件名不为空就写入filenum
Open strfilename For Input As filenum '打开文件 (这是可以读多个文件的吗?)
Do While Not EOF(filenum)
Line Input #filenum, strline
n = LTrim(strline)

'以上为把读入的文件数据连成一串,存给n?

s1: '行号
For i = 1 To Len(n)

If Mid(n, i, 1) = " " Then '循环一次,如果这次的字符是空格,k就加1
k = k + 1

a(k) = Mid(n, 1, i - 1) 'a(k)就等于空格前的字符串,(这样是不是每个数值存给各个a(k)了)


n = LTrim(Mid(n, i))

GoTo s1
End If

Next i ''以上看不懂,请帮注释一下

For j = 1 To Len(RTrim(strline))
If Mid(RTrim(strline), Len(RTrim(strline)) - j, 1) = " " Then
k = k + 1
a(k) = Mid(RTrim(strline), Len(RTrim(strline)) - j + 1, Len(RTrim(strline)))

Exit For
End If
Next j


Text1.Text = Text1.Text + strline + Chr(13) + Chr(10)
Loop
Close filenum
End If
For i = 1 To k
Text2.Text = Text2.Text & " " & Trim(a(i))
If i Mod 6 = 0 Then
Text2.Text = Text2.Text & Chr(13) & Chr(10)
End If
Next i

'以下为预防忘记输入要比较的值
If Text3.Text = "" Then ''如果text3=""
MsgBox "请输入要比较的值！" '提示输入
Text3.SetFocus '将焦点移动到text3
Exit Sub
End If

Dim o, v As Single
Dim m As Single
m = Val(Text3.Text) 'k,m都等于比较值
k = Val(Text3.Text)
For i = 1 To k - 5 Step 6
If Val(a(i)) > m Then ' 如果每行的第一个数大于比较值就停止
Exit For
End If
Next i
If i = 1 Then Exit Sub

v = (Val(a(i + 1)) - Val(a(i - 6 + 1))) / (Val(a(i + 3)) - Val(a(i - 6 + 3)))
o = (Val(a(i - 1)) - Val(a(i + 5))) * m

Text4.Text = Str(v) & Str(o)
End Sub