请教：如何编程实现直接读取数据文件中的点构造几何元素？软件手册中只有寥寥几句话，实在看不明白，哪位能给详细说明一下？？

是不清楚读取数据文件中的点的方法,还是不清楚构造几何元素的方法?

不知道如何把文本中的数据 读取到 TUTOR 的内存； 也不知道 数据读到内存后 如何利用构造命令进行 元素构造？ 我曾把点一个一个输入到 MEMORY 中存储起来，调用这些内存后利用构造菜单对这些点进行构造，从而构造出平面或圆柱等，但一个一个输入点太麻烦了，我想把点坐标先用文本的方式 存储，然后进行构造几何元素；但我不会编写这段程序。 谢谢 STAR ！

明白了. 我想采用两种方式读取数据.一种是直接读取,再一种是搜索读取.我想在我的子程序库中找一段考出来,注意查看,有问题告知.

感谢 STAR！

这是两个样例，你先看看。 例1 数据格式： 18.018 66.662 12.345 32.365 28.135 99.108 program DHO[WM1,WM2] element_array MEMO[300] real XX,YY,ZZ string FN[30] dy ("数据文件名 ？[带路径]") read (FN) openf (f1,FN) reset (f1) loop exif eof(f1) readln (f1,XX,YY,ZZ) 直接读取方式 end_loop closef (f1) endstat end_program 例2 数据格式： X=18.018 Y=66.662 Z=12.345 X=32.365 Y=28.135 Z=99.108 program POLSFA[WM1,WM2] element_array MEMO[300] real XM,YM,ZM openf (f1,"c:\wtutor\data\AA.dat") reset (f1) loop if found(f1,"X=") then 搜索读取 read (f1,XM) end_if if found(f1,"Y=") then 搜索读取 read (f1,YM) end_if if found(f1,"Z=") then 搜索读取 read (f1,ZM) end_if exif eof(f1) end_loop closef (f1) endstat end_program 具体读数语句应按你的数据格式而定.你也可传一下你的数据格式.

先看懂读,下一步再学怎样将数据写入到数据缓冲器中以及怎样构造.

read (FN) 是否就是读取我从键盘输入的“C:\WTUTOR\MEAS\test.txt” 再有logname 逻辑名(F0到 F3), 具体用 FO，F1，F2，F3还有什么区别么？ 如果第一个程序运行时，屏幕提示“数据文件名 ？[带路径]”后，我输入“C:\WTUTOR\MEAS\test.txt”，是否正确？？ test.txt 里面的数据 如下： 46.539, 33.455, 75.815 51.992, -33.431, -99.407 38.072, -33.48, -134.41 16.569, -33.229, -148.285 -21.771, -33.359, -146.223 -43.131, -33.431, -128.05 -51.99, -32.857, -97.919 -44.262, -33.114, -71.711 -43.863, -38.413, -71.073 -51.998, -36.864, -99.516 -33.392, -36.742, -138.863 34.479, -36.817, -137.917

real XX,YY,ZZ ………… readln (f1,XX,YY,ZZ) 这样反复 读取数值到 变量 XX,YY,ZZ； 是否 后面读入的一行数据 直接覆盖掉 前面所读取的前一行数据了？？ STAR斑竹，上面的读取数据的 程序已经基本看懂，再教我如何读入内存吧？？

read (FN) 是否就是读取我从键盘输入的“C:\WTUTOR\MEAS\test.txt” [是的] 逻辑名(F0到 F3), 具体用 FO，F1，F2，F3还有什么区别么？ [没有区别.意味着可同时打开4个文件] program DHO[WM1,WM2] element_array MEMO[300] real XX,YY,ZZ integer me=0 string FN[30] dy ("数据文件名 ？[带路径]") read (FN) openf (f1,FN) reset (f1) loop exif eof(f1) readln (f1,XX,YY,ZZ) 直接读取方式 me=me+1 define_element (memo[me],pick,x=XX,y=YY,z=ZZ) end_loop closef (f1) endstat end_program 现在解决的是数据读取覆盖问题. 　　　　　　　　　　　　　　　　　　[此贴子已经被作者于2005-6-7 22:19:29编辑过]