文件的读/写
来源:互联网 发布:三维家具设计软件 编辑:程序博客网 时间:2024/04/28 14:35
/写入文件,数据集ClientDataSet1里有a,b,c三个字段
if (ClientDataSet1->IsEmpty())
{
ShowMessage("文件没有内容可以写入!");
return;
}
SaveDialog1->Title = "选择路径名:";
SaveDialog1->FileName = "模块名" + Date().FormatString("yyyymmdd");
SaveDialog1->DefaultExt = "txt";
SaveDialog1->Filter = "文本文件(*.txt)|(*.txt)|所有文件(*.*)|(*.*)";
ClientDataSet1->First();
while (!ClientDataSet1->Eof)
{
File * fp = fopen(SaveDialog1->FieldName,"wt");
fprintf(fp, "%s/t", ClientDataSet1->FieldByName("a")->AsString.Trim());
fprintf(fp, "%s/t", ClientDataSet1->FieldByName("b")->AsString.Trim());
fprintf(fp, "%s/n", ClientDataSet1->FieldByName("c")->AsString.Trim());
ClientDataSet1->Next();
}
fclose(fp);
ShowMessage("写入文件成功!");
//读取文件,存储到数据集ClientDataSet1的a,b,c字段中
int i=0,ch,ntype=0;
char str[256];
AnsiString a,b,c;
File * fp = fopen(OpenDialog->FileName,"rt");
ClientDataSet1->EmptyDataSet();
while ((ch = fgetc(fp))!=Eof)
switch(ch)
{
case '/t':
str[ntype] = '/0';
switch(i):
{
case 0: a = str;break;
case 1: b = str;break;
case 2: c = str;bread;
}
i++;
ntype = 0;
break;
case '/n':
str[ntype] = '/0';
ClientDataSet1->Insert();
ClientDataSet1->FieldByName("a")->AsString = a.Trim();
ClientDataSet1->FieldByName("b")->AsString = a.Trim();
ClientDataSet1->FieldByName("c")->AsString = a.Trim();
i = 0;
n = 0;
break;
default:
str[ntype] = ch;
ntype++;
}
fclose(fp);
ClientDataSet1->Post();
ShowMessage("读取文件成功!");
- 文件的读/写
- .xml文件的读、写
- 文件数据的读/写
- 文件的写与读
- 文件的读与写
- Java的读文件和写文件
- 9.5 文件-文件的读/写
- 读文件、写文件
- 读文件写文件。。
- Java的文件 读和写
- Java的文件 读和写
- Java 读/写文件文本文件的示例
- Java 的文件(读 写)输入输出
- XML文件的简单读,写,创建
- Java 读/写文件文本文件的示例
- Java 读/写文件文本文件的示例
- 文件的读与写操作
- Java 读/写文件文本文件的示例
- .Net异常发布器的开发(1)
- .Net异常发布器的开发(2)
- .Net异常发布器的开发(3)
- .net下分层架构系统的开发技术规范(2)
- .NET概观
- 文件的读/写
- 在VB中使用动态分组报表
- 在VB的ListView中动态加载记录
- 让VB开发环境支持鼠标滚轮
- J2ME的现状与发展
- SUN公司操作系统的发展战略
- Sun公司的WEB服务战略
- JCreator Pro 3.0与WTK2.0配置心得
- Design with static members