编程论坛 » VB6论坛 » 菜鸟请教：如何通过文本文件向VB中调入数据

DDWT 发表于 2008-5-12 16:50

菜鸟请教：如何通过文本文件向VB中调入数据

各位大侠：
    小弟是初学VB的，有一个问题请教：
    有一组数据存放在文本文件中(如E:\a.txt),当然放在dat格式文件中也可。我要用VB编写一个程序，把数据进行处理后输出到另一个文件中E:\b.txt。数据例如：
电压    电阻
2        10
4        30
5        20
1        25
3        100
2        50
处理后:
电压    电阻    电流
2        10        0.2
4        30        0.13
5        20        0.25
1        25        0.04
3        100        0.03
2        50        0.04
本人欲学习VB在数值计算上的一些知识，想拜师学习，请高手老师与我联系：QQ450730465

ouzhiguang 发表于 2008-5-12 17:16

1.打开文件，按行读数据
2.按行进行数据处理I=U/R
3.写文件，按照格式把读到的数据和处理得到的数据写入即可！
代码不会很多，只要会简单的文件操作就能搞定！

DDWT 发表于 2008-5-13 10:08

能写出源程序代码吗？

tig2 发表于 2008-5-14 01:13

Private Sub Command1_Click()
Dim a As String: Dim b As String: Dim indata As String: Dim s As String
Dim U As Single, I As Single, R%
Dim filenum1 As Integer
filenum1 = FreeFile
a = "h:\a.txt"
b = "h:\b.txt"

Open a For Input As #filenum1
Open b For Output As #2
Do While Not EOF(1)
    Line Input #filenum1, indata
    U = Val(Trim(Left(indata, 3)))
    R = Val(Trim(Right(indata, 5)))
    I = U / R
    s = U & "     " & R & "     " & Format(I, "0.00")
    Print #2, s
Loop
Close
End Sub
看看我写的这个！写得不好！还请各位不要见笑！有哪里不对的，还望指出！

DDWT 发表于 2008-5-14 16:43

谢谢了!方法可用的，今后学习中有什么问题还请各位大侠讲解与指导!

wjj51888 发表于 2008-5-14 18:04

呵呵  真巧啦  我正在学循环语句...那位大侠的代码能看懂啦 呵呵

查看完整版本: 菜鸟请教：如何通过文本文件向VB中调入数据