一个文件读取问题？请同仁们帮帮忙！谢谢~！

Delphi > 数据库相关
收藏 回复
[问题点数：30分，结帖人sunbiao36]
更多帖子
私信 空间 博客
sunbiao36
本版专家分：236
结帖率 100%
BA
1，2，356
abc,45,654
EA
BB
456,123,78
asd,a,g
EB
BC


EC
现有以上内容的文本文件一个
如何把BA、EA（标识位）之间的内容插入 对应的数据表中
BA、EA 中间内容入A表
BB、EB 中间内容入B表
BC、EC  中间内容入C表
中间的符号区分隔的是要入库的字段值
各位同仁  帮帮忙？
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
liangpei2008
本版专家分：20205
1.这是csv文件吧，建一个DSN，就能和表一样读取了
只看TA 引用 举报 #1得分 10
更多帖子
私信 空间 博客
sunbiao36
本版专家分：236
是文本文件！
请 高手 多多指点啊！
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
sunbiao36
本版专家分：236
liangpei2008(逍遥叹)  的方法应该可以，但是我没有操作过！
请多多指点！
谢谢！
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
王集鹄
本版专家分：83120
Blank
银牌 2001年12月 总版技术专家分月排行榜第二
Blank
红花 2002年5月 Delphi大版内专家分月排行榜第一
2002年1月 Delphi大版内专家分月排行榜第一
Blank
黄花 2007年11月 .NET技术大版内专家分月排行榜第二
2007年1月 Delphi大版内专家分月排行榜第二
2006年12月 Delphi大版内专家分月排行榜第二
2006年10月 Delphi大版内专家分月排行榜第二
2002年8月 Delphi大版内专家分月排行榜第二
2002年6月 Delphi大版内专家分月排行榜第二
2001年12月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2002年4月 Delphi大版内专家分月排行榜第三
var
  vStringList: TStringList;
  vTableName: string;
  S: string;
  I: Integer;
begin
  vStringList := TStringList.Create;
  vStringList.Text := Memo1.Text; // 载入text
  vTableName := '';
  for I := 0 to vStringList.Count - 1 do
  begin
    S := vStringList[I];
    S := StringReplace(S, '，', ',', [rfReplaceAll]); // 去掉全角字符
    if (Pos(',', S) <= 0 ) then
    begin
      if (Copy(S, 1, 1) = 'B') then
        vTableName := Trim(Copy(S, 2, MaxInt));
    end else if vTableName <> '' then
    begin
      S := StringReplace(S, ' ', '', [rfReplaceAll]); // 去掉空格
      S := StringReplace(S, ',', '","', [rfReplaceAll]);
      ShowMessage(Format('Insert into %s("%s")', [vTableName, S])); // 测试用
      //ADOQuery1.SQL.Text := Format('Insert into %s(%s)', [vTableName, vStringList[I]]);
      //ADOQuery1.ExecSQL; //执行插入语句
    end;
  end;
  vStringList.Free;
end;
只看TA 引用 举报 #4得分 10
更多帖子
私信 空间 博客
老冯
本版专家分：8495
Blank
技术圈认证 用户完成年度认证，即可获得
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
红花 2006年12月 Delphi大版内专家分月排行榜第一
Blank
黄花 2006年11月 Delphi大版内专家分月排行榜第二
procedure TForm1.Button1Click(Sender: TObject);
var
  _Table: array[0..2] of array of TStrings;
  _Row: array[0..2] of Integer;
  _TextFile: TextFile;
  S: String;
  Tag: Integer;
  Idx: Integer;
begin
  Tag := -1;
  _Row[0] := 0;
  _Row[1] := 0;
  _Row[2] := 0;
  AssignFile(_TextFile, 'C:\Test.txt');
  Reset(_TextFile);
  while not Eof(_TextFile) do
  begin
    ReadLn(_TextFile, S);
    if S = 'BA' then Tag := 0;
    if S = 'BB' then Tag := 1;
    if S = 'BC' then Tag := 2;
    if (S <> 'BA') and (S <> 'EA') and
       (S <> 'BB') and (S <> 'EB') and
       (S <> 'BC') and (S <> 'EC') then
    begin
      case Tag of
      0:
      begin
        if S <> '' then
        begin
          SetLength(_Table[0], _Row[0]+1);
          _Table[0,_Row[0]] := TStringList.Create;
          _Table[0,_Row[0]].Delimiter := ',';
          _Table[0,_Row[0]].DelimitedText := S;
          Inc(_Row[0]);
        end;
      end;

      1:
      begin
        if S <> '' then
        begin
          SetLength(_Table[1], _Row[1]+1);
          _Table[1,_Row[1]] := TStringList.Create;
          _Table[1,_Row[1]].Delimiter := ',';
          _Table[1,_Row[1]].DelimitedText := S;
          Inc(_Row[1]);
        end;
      end;

      2:
      begin
        if S <> '' then
        begin
          SetLength(_Table[2], _Row[2]+1);
          _Table[2,_Row[2]] := TStringList.Create;
          _Table[2,_Row[2]].Delimiter := ',';
          _Table[2,_Row[2]].DelimitedText := S;
          Inc(_Row[2]);
        end;
      end;
    end;
    end;
  end;
  for Idx := 0 to High(_Table[0]) do
  begin
    //插入A表
    //A.Fields[0].Value := _Table[0, Idx][0];
    //A.Fields[1].Value := _Table[0, Idx][1];
    //A.Fields[2].Value := _Table[0, Idx][2];
  end;

  for Idx := 0 to High(_Table[1]) do
  begin
    //插入B表
    //B.Fields[0].Value := _Table[1, Idx][0];
    //B.Fields[1].Value := _Table[1, Idx][1];
    //B.Fields[2].Value := _Table[1, Idx][2];
  end;

  for Idx := 0 to High(_Table[1]) do
  begin
    //插入C表
    //C.Fields[0].Value := _Table[2, Idx][0];
    //C.Fields[1].Value := _Table[2, Idx][1];
    //C.Fields[2].Value := _Table[2, Idx][2];
  end;
end;
只看TA 引用 举报 #5得分 10
更多帖子
私信 空间 博客
老冯
本版专家分：8495
Blank
技术圈认证 用户完成年度认证，即可获得
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
红花 2006年12月 Delphi大版内专家分月排行榜第一
Blank
黄花 2006年11月 Delphi大版内专家分月排行榜第二
for Idx := 0 to High(_Table[2]) do
  begin
    //插入C表
    //C.Fields[0].Value := _Table[2, Idx][0];
    //C.Fields[1].Value := _Table[2, Idx][1];
    //C.Fields[2].Value := _Table[2, Idx][2];
  end;
只看TA 引用 举报 #6得分 0
更多帖子
私信 空间 博客
sunbiao36
本版专家分：236
谢谢各位！
有没有简单一点的方法？？？
只看TA 引用 举报 #7得分 0
收起
收藏 回复
sunbiao36

等级：

关注 私信 TA的帖子
《当程序员的那些狗日日子》三

我曾祖母已是九十多岁的高龄，生老病死本是自然规律，但是我北上求学后，尤其是我毕业后出来工作这几年，我回家的次数很少，我没能多看她一眼，更不能给她一点照顾，甚至不能在金钱上为好她做点什么。然而从此以后，...

深入理解Oracle RAC 12c

深入理解Oracle RAC 12c（顶尖专家权威指南唯一最新版数据库著作 Oracle第一社区技术大牛翻译 Amazon五星推荐） 【美】Syed Jaffar Hussain（赛义德 贾法尔 侯赛因）,Tariq Farooq（塔里克 法鲁克）,Riyaj ...

偶然发现5年前的编程实习日记，特与博客园同仁分享一下

今日，研究QQ的一些应用，在我的网络硬盘中，偶然发现以前在大学的时候为了做毕业设计而产生的一系列文件，突然有了很多的感慨，尤其的里面有一篇“实习日记”，突然想到自己从事编程已经有7年了。也是从菜鸟走来，...

一个计算机专业学生几年的编程经验汇总 （该系列一共 11 篇,看完之后，java 基础绝对有不小的提升！...

想来学习 Java 也有两个年头了，永远不敢说多么精通，但也想谈谈自己的感受，写给 软件学院的同仁们，帮助大家在技术的道路上少一点弯路。说得伟大一点是希望大家为软件 学院争气，其实主要的还是大家自身的进步提升...

一个人总结的java编程经验汇总

想来学习Java也有两个年头了，永远不敢说多么精通，但也想谈谈自己的感受，写给软件学院的同仁们，帮助大家在技术的道路上少一点弯路。说得伟大一点是希望大家为软件学院争气，其实最主要的还是大家自身

给学Java的大学生们分享一些经验(转)

注：原文是以论坛形式发表的，本人仅将原作者的内容拷贝出来以方便大家观看。...想来学习Java也有两个年头了，永远不敢说多么精通，但也想谈谈自己的感受，写给软件学院的同仁们，帮助大家在技术...

一个计算机专业学生几年的编程经验汇总

一个计算机专业学生几年的编程经验汇总（收藏） 收藏  来学习Java也有两个年头了，永远不敢说多么精通，但也想谈谈自己的感受，写给软件学院的同仁们，帮助大家在技术的道路上少一点弯路。说得伟大一点是希望大家...

一个计算机专业学生几年的编程经验汇总（收藏）

一个计算机专业学生几年的编程经验汇总（收藏） 来学习Java也有两个年头了，永远不敢说多么精通，但也想谈谈自己的感受，写给软件学院的同仁们，帮助大家在技术的道路上少一点弯路。说得伟大一点是希望大家为软件...

某某的 java 心得

想来学习Java也有两个年头了，永远不敢说多么精通，但也想谈谈自己的感受，写给软件学院的同仁们，帮助大家在技术的道路上少一点弯路。说得伟大一点是希望大家为软件学院争气，其实最主要的还是大家自身的进步提升??...

一个计算机专业学生几年的编程经验汇总[转]

来学习Java也有两个年头了，永远不敢说多么精通，但也想谈谈自己的感受，写给软件学院的同仁们，帮助大家在技术的道路上少一点弯路。说得伟大一点是希望大家为软件学院争气，其实最主要的还是大家自身的进步提升?? ...

一个计算机专业学生几年的编程经验汇总（转载）

来学习Java也有两个年头了，永远不敢说多么精通，但也想谈谈自己的感受，写给软件学院的同仁们，帮助大家在技术的道路上少一点弯路。说得伟大一点是希望大家为软件学院争气，其实最主要的还是大家自身的进步提升??1...

一个计算机专业学生几年的Java编程经验汇总

想来学习Java也有两个年头了，永远不敢说多么精通，但也想谈谈自己的感受，写给软件学院的同仁们，帮助大家在技术的道路上少一点弯路。说得伟大一点是希望大家为软件学院争气，其实最主要的还是大家自身的进步提升??...

Autojs 例子 源码 1600多个教程源码

autojs例子大全，一千六百多个脚本,简单的到复杂的例子，统统有，小白学完马上变大神，大神学了变超神。 脚本内容包含： 几十种类型的UI脚本，抖音、QQ、微信、陌陌、支付宝等自动化操作的脚本、还有部分协议列表，HTTP协议(POST、GET)上传下载，接码模块，百度文字识别api模块，文件操作模块：txt文本读一行删一行，等等其他例子

智鼎(附答案).zip

并不是完整题库，但是有智鼎在线2019年9、10、11三个月的试题，有十七套以上题目，普通的网申行测题足以对付，可以在做题时自己总结一些规律，都不是很难

PMP@第六版项目管理视频课程项目整体管理

用通俗易懂的语言讲解了PMBOK第六版五大过程组、10大知识领域的内容。课程深刻的讲解了项目管理思想精髓，列举了大量生活案例以理解项目管理，大量工作运用以让项目管理和工作结合起来。通过案例讲解、快速和自己工作内容相结合，让项目管理知识快速“落地”，顺利通过PMP考试。 课程特点： 内容全：才能全面掌握。包括五大过程组，十大知识领域，49个过程，每个过程包括基本概念，输入，工具，输出，四个视频讲解，共计258个视频。 时间长：视频足够长，才能把知识点讲的清楚。每个视频5-10分钟，重要知识点30-40分钟，完全讲清知识点。视频总长度为4500分钟。学完它，你就是项目管理专家。

Visio_2016

visio_2016下载安装，亲测可用，不需要破解，而且无秘钥。简单方便实用

Xshell6完美破解版，亲测可用

Xshell6破解版，亲测可用，分享给大家。直接解压即可使用

2019全国大学生数学建模竞赛C题原版优秀论文

2019全国大学生数学建模竞赛C题原版优秀论文，PDF原版论文，不是图片合成的，是可编辑的文字版。共三篇。 C044.pdf C137.pdf C308.pdf

Unity3D实战入门之第三人称射击游戏（TPS）

这是一套第三人称射击游戏开发的入门基础课程。 本课程以一款小型的第三人称射击游戏为案例，手把手教你如何搭建一款3D射击游戏的雏形。麻雀虽小，五脏俱全，这款小游戏难度不大，但第三人称射击游戏该有的模块、功能它都有涉及。通过案例游戏的开发，学习者可以对第三人称射击游戏入门，对后续复杂大中型3D游戏的开发有实际的借鉴意义。 这套课程，对初次接触3D射击类游戏的学习者而言，是一块极好的跳板。 本课程从零开始，带领学习者逐步完成一款小型的第三人称射击游戏。向3D射击类游戏的初学者展示完整项目的制作流程和设计思路，对该类游戏的常用知识点、必备功能模块、代码结构进行详细讲解，让学习者能够快速搭建一款3D射击游戏的雏形，为后续中、大型游戏的开发打下良好基础。

EndNoteX9 汉化+原版_破解版安装包

EndNote X9最新版，包括汉化版本和原版本，汉化方法： 1、双击[ENX9Inst.msi]安装EndNote X9，安装时选择试用，安装完成后不要运行EndNote； 2、如果想使用汉化版，可以将CHS文件夹里的[EndNote.exe]拷贝到EndNote的安装目录下，替换原文件即可汉化、破解。 3、如果想使用英文版，可以将ENG文件夹里的[EndNote.exe]拷贝到EndNote的安装目录下，替换原文件即可直接破解。 注意：不论用的是英文版还是中文版，替换之后即可破解，无需输入序列号。

相关热词 c#框体中的退出函数 c# 按钮透明背景 c# idl 混编出错 c#在位置0处没有任何行 c# 循环给数组插入数据 c# 多线程死锁的例子 c# 钉钉读取员工排班 c# label 不显示 c#裁剪影像 c#工作进程更新ui