LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 15
Default Reading from file

Hi everyone!

I was playing with some code from a tutorial and was a bit perplexed with the result. Can someone please explain what's going on?

The following data are in a file:
-------------------
This is some test data
"x-values","y-values"
0.0,1.4
1.0,4.3
2.0,6.2
3.0,5.1
4.0,6.4
5.0,7.7
6.0,7.9
7.0,8.4
8.0,7.3
9.0,6.2
10.0,9.1
=======================================
'Following code reads those data from the file

Dim xvals(100) As Single
Dim yvals(100) As Single
Dim npts As Integer

Sub GetDataFromDisk()
Open ThisWorkbook.Path + "\Task2.2.dat" For Input As #1
Line Input #1, Title$
Cells(1, 1) = Title$
Input #1, xtit$, ytit$
Cells(2, 1) = xtit$
Cells(2, 2) = ytit$
npts = 0
While Not EOF(1)
npts = npts + 1
Input #1, xvals(npts), yvals(npts)
Cells(2 + npts, 1) = xvals(npts)
Cells(2 + npts, 2) = yvals(npts)
Wend
Close #1
End Sub
========================

And this is what I got (look at the y-values):
x-values y-values
0 1.39999997615814
1 4.30000019073486
2 6.19999980926513
3 5.09999990463256
4 6.40000009536743
5 7.69999980926513
6 7.90000009536743
7 8.39999961853027
8 7.30000019073486
9 6.19999980926513
10 9.10000038146972


 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Reading from a text file Jeff Excel Discussion (Misc queries) 1 November 8th 06 08:47 PM
reading from another file and pasting to current file, "combobox" Darius New Users to Excel 1 September 26th 05 07:13 AM
Reading a text file ? WTG Excel Worksheet Functions 2 February 22nd 05 01:29 AM
Reading a text file WTG Excel Discussion (Misc queries) 2 February 22nd 05 01:27 AM
Reading from a closed file. aking1987 Excel Worksheet Functions 1 November 15th 04 03:48 PM


All times are GMT +1. The time now is 12:37 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"