文件内容如下:

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中:

//---------------------------------------------------------------------------

#include <vcl.h>
#include <fstream.h>
#include <string.h>
#pragma hdrstop #include "readlxly.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
this->OpenDialog1->FileName ="*.inp";
this->OpenDialog1->Title="打开lxly.inp文件";
if(this->OpenDialog1->Execute())
{
string str,str1,str2,str3,str4,str5,str6,str7;
ifstream inf(this->OpenDialog1->FileName.c_str());
for(int i=;i<=;i++)
{
getline(inf,str);
this->CheckListBox1->Items->Add(str.c_str());
}
this->ProgressBar1->Min =;
this->ProgressBar1->Max =;
int k=;
TStringList *ttt=NULL;
ttt=new TStringList(); while(!inf.eof())
{
inf>>str1>>str2>>str3>>str4>>str5>>str6>>str7;
ttt->Add((str1+" "+str2).c_str());
k++;
this->ProgressBar1->Position=k;
}
this->CheckListBox1->Items =ttt;
inf.close();
}
}
//---------------------------------------------------------------------------

用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. SOAPFaultException

    javax.xml.ws.soap.SOAPFaultException: String index out of range: -6 at org.apache.cxf.jaxws.JaxWsCli ...

  2. MATLAB学习笔记(九)——MATLAB符号计算

    (一)符号对象 一.建立符号对象 1.建立符号变量和符号常量(sym,syms): 只可以建立一个符号变量 可以一次性建立多个符号变量 PS:符号常量计算的结果是精确的数学表达式,而数值常量是进行约分 ...

  3. topcoder-srm701-div2-900 博弈\计算二进制位1的个数\dp\状态压缩

    借用一下qls翻译过来的题面  现在有 n 个石子,A 和 B 轮流取石子,A先,每次最多可以取 m 个石子,取到最后一个石子的人获胜,但是某个人如果取完石子时候剩余石子数的二进制表示中有奇数个1,这 ...

  4. linux下Gnome桌面环境的安装

    在实际工作中,无论是生产环境还是公司内部环境.很多时候装的linux系统都是最小化安装的.即没有桌面环境, 那么如果有时我们又需要一个桌面环境.该怎么安装呢?其实不难,现笔者将安装方法分享如下. 测试 ...

  5. 利用crontab定时备份数据库为sql文件

    测试: 每1分钟执行1次,利用crontab */1 * * * * /opt/nginx/db_bak.sh 每天的0点0分把数据库备份为日期格式 0 0 * * * /opt/nginx/db_b ...

  6. http://blog.csdn.net/shangboerds/article/details/44175667

    http://blog.csdn.net/shangboerds/article/details/44175667

  7. SecureCrt自动化

    Crt自动化 测试 SecureCrt脚本 JS脚本   引言 软件介绍 脚本介绍 引言 在嵌入式公司中,面对大量的网络设备,不论开发同事进行设备开发.测试同事进行大量测试工作还是运维人员进行大量设备 ...

  8. ASP.NET RepeatLayout 属性

    定义和用法 RepeatLayout 属性用于设置或获取如何显示在 CheckBoxList 中的项目. 语法 <asp:CheckBoxList RepeatLayout="mode ...

  9. iOS中--NSArray调用方法详解 (李洪强)

    下面的例子以     NSArray *array = [NSArray arrayWithObjects:@"wendy",@"andy",@"to ...

  10. [ZT] Vim快捷键分类

    一. 移动:    h,j,k,l: 左,下,上,右.    w: 下一个词的词首.    e:下一个词的词尾.    b:上一个词的词首.    <>: v 模式选中后进行缩进.二. 跳 ...