文件内容如下:

C DXDY.INP FILE, IN FREE FORMAT ACROSS COLUMNS for  83658 Active Cells
C 2013-5-25   上午 10:43:53
C                                           BOTTOM                 Veg
C  I    J        DX        DY      DEPTH     ELEV     ZROUGH      TYPE
    3  143     221.500   187.900     0.090    22.000    0.0200
    3  144     222.000   188.100     0.090    22.000    0.0200
    3  145     222.200   188.100     0.090    22.000    0.0200
    4  143     223.100   187.900     0.090    22.000    0.0200
    4  144     223.300   187.900     0.090    22.000    0.0200
    4  145     223.500   187.800     0.090    22.000    0.0200
    5  142     222.400   187.900     0.090    22.000    0.0200
    5  143     222.500   187.900     0.090    22.000    0.0200
    5  144     222.700   187.800     0.090    22.000    0.0200
    6  140     222.300   188.600     0.090    21.154    0.0200
    6  141     222.500   188.700     0.090    22.000    0.0200
    6  142     222.800   187.900     0.090    22.000    0.0200
    6  143     222.900   187.800     0.090    22.000    0.0200

...........

文件共83650行,采用以下方式读取,并将读取的每行头两个变量显示在CheckListBox中:

  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #include <fstream.h>
  5. #include <string.h>
  6. #pragma hdrstop
  7.  
  8. #include "readlxly.h"
  9. //---------------------------------------------------------------------------
  10. #pragma package(smart_init)
  11. #pragma resource "*.dfm"
  12. TForm1 *Form1;
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm1::TForm1(TComponent* Owner)
  15. : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::Button1Click(TObject *Sender)
  20. {
  21. this->OpenDialog1->FileName ="*.inp";
  22. this->OpenDialog1->Title="打开lxly.inp文件";
  23. if(this->OpenDialog1->Execute())
  24. {
  25. string str,str1,str2,str3,str4,str5,str6,str7;
  26. ifstream inf(this->OpenDialog1->FileName.c_str());
  27. for(int i=;i<=;i++)
  28. {
  29. getline(inf,str);
  30. this->CheckListBox1->Items->Add(str.c_str());
  31. }
  32. this->ProgressBar1->Min =;
  33. this->ProgressBar1->Max =;
  34. int k=;
  35. TStringList *ttt=NULL;
  36. ttt=new TStringList();
  37.  
  38. while(!inf.eof())
  39. {
  40. inf>>str1>>str2>>str3>>str4>>str5>>str6>>str7;
  41. ttt->Add((str1+" "+str2).c_str());
  42. k++;
  43. this->ProgressBar1->Position=k;
  44. }
  45. this->CheckListBox1->Items =ttt;
  46. inf.close();
  47. }
  48. }
  49. //---------------------------------------------------------------------------

用c++builder读取一个一行有多行变量的文件的更多相关文章

  1. PureBasic 打开一个一行有多个数据的文件并读取其中某个数据

    如果有一个文件如下: TITLE = "Water Wurface Elevation"VARIABLES = "X", "Y", &quo ...

  2. python 读取一个目录下的所有目录和文件

    #!/usr/bin/python # -*- coding:utf8 -*- import os allFileNum = 0 def printPath(level, path): global ...

  3. SQL: 从一个表随机读取一行或几行记录的问题

    比如ms sql 2000,随机读取了一行记录: SELECT TOP 1 * FROM [tablename] ORDER BY NEWID() 遇到的问题是,如果这个表记录不多,比如几十或几百.几 ...

  4. Java笔记之Scanner先读取一个数字,在读取一行字符串方法分析

    问题:大家在学习Java读取数据的时候一般都是使用Scanner方法读取数据,但是其中有一个小问题大家可能不知道, 就是我们在使用scanner的时候如果你先读取一个数字,在读取一行带有空格的字符串, ...

  5. python读取一个文件的每一行判断是否为素数,并把结果写到另一个文件中

    刚刚学习python的菜鸟,这道题包括:文件的读写,python的参数调用,异常的使用,函数的使用 创建一个文本文件inti_prime.txt 执行命令:python Prime.py init_p ...

  6. PHP文件操作 之读取一个文件(以二进制只读的方式打开)

    最近应用了文件的读取,顺便复习一下! //读取一个文件 $f = fopen($filename,'rb'); $f: 表示返回的一个资源句柄 $filename:要打开的文件路径 rb:参数,表示只 ...

  7. python计算文件的行数和读取某一行内容的实现方法

    一.计算文件的行数 最简单的办法是把文件读入一个大的列表中,然后统计列表的长度.如果文件的路径是以参数的形式filepath传递的,那么只用一行代码就可以完成我们的需求了:count = len(op ...

  8. 根据NPOI 读取一个excel 文件的多个Sheet

    大家都知道NPOI组件可以再你本地没有安装office的情况下来 读取,创建excel文件.但是大家一般都是只默认读取一个excel文件的第一个sheet.那么如果要读取一个excel 的所有shee ...

  9. Shell脚本:while read line无法读取最后一行的问题

    [1]Shell脚本:while read line无法读取最后一行的问题 刚刚利用shell脚本处理日志文件时,发现了一个问题:while read line无法读取到最后一行 通过编辑器可以看到待 ...

随机推荐

  1. Java程序员最常用的8个Java日志框架

    转自:http://www.codeceo.com/article/8-java-log-framework.html 作为一名Java程序员,我们开发了很多Java应用程序,包括桌面应用.WEB应用 ...

  2. Java 反射机制及Annotation

    转自:http://justjavac.iteye.com/blog/714654 Java 反射是 Java 语言的一个很重要的特征. 它允许运行中的 Java 程序对自身进行检查,并能直接操作程序 ...

  3. Java中的Timer和TimerTask在Android中的用法(转)

    转自:http://blog.csdn.net/zuolongsnail/article/details/8168689 在开发中我们有时会有这样的需求,即在固定的每隔一段时间执行某一个任务.比如UI ...

  4. Python实现的粒子群优化算法

    01.from numpy import array 02.from random import random 03.from math import sin, sqrt 04. 05.iter_ma ...

  5. 【转】HADOOP HDFS BALANCER介绍及经验总结

    转自:http://www.aboutyun.com/thread-7354-1-1.html 集群平衡介绍 Hadoop的HDFS集群非常容易出现机器与机器之间磁盘利用率不平衡的情况,比如集群中添加 ...

  6. Loadrunner中web_custom_request使用场景

    其中有一段从服务器段动态返回的字符串需要重新提交给服务器(见红色标注) 录制自动生成的脚本是: web_submit_data("generateYfLstAction.do",  ...

  7. javascript优化--10模式(设计模式)01

    单体模式:保证一个特定类仅有一个实例;即第二次使用同一个类创建新对象时,应该得到与第一个所创建对象完全相同对象: 在JS中,可以认为每次在使用对象字面量创建对象的时候,实际上就在创建一个单体: 当使用 ...

  8. 设置完在Canvas的位置后,控件HitTest不响应的问题

    have a Canvas with a couple of elements on it like Line, Path and Text Box. In the MouseOver event o ...

  9. HDU 2255 & KM模板

    题意: 一张完备二分图求最优完备匹配. SOL: 这题就不讲什么sol了...毕竟是裸的KM,不会的话可以看老人家的大白鼠,一些问题看代码注释.讲讲经历(悲惨的经历) 刚打完,自信地交上去发现MLE. ...

  10. 调用WebServiceWebService提示The maximum string content length quota (8192) has been exceeded while reading XML data的解决办法

    在web.config中,bindings节点下,对应的服务名称中,原本可能是自动折叠的“/>”,需要改成手动折叠的</binding>,然后在中间加上<readerQuota ...