delphi实现批量读取格式有规律的文本文件的内容.
现有一系统不定时在同一目录下生成一批txt文件,内容大概如下;
20100112_164910,6,81406392,808,113,,
为方便统计,需要将这些txt文件中的数据读入数据表中.
现有两种方法:
一是直接将数据读入到数据表中的某一列中,再用sql 语句拆开成几列:
20100112_164910 6 81406392 808 113
二是在导入时就将其拆开成几列分别导入到各列中
如果第二种方法可以实现,那么对于系统的性能将会是一个很大的帮助.
下面介绍我的做法,可能是最笨重的一种,欢迎大家提出更好的方法.
核心方法是调用memo的Delimiter特性. 若把Delimiter的值设为",",那么使用DelimitedText属性可得到由","分开的几行.
需要两个memo,第一个memo将文档中的内容读入,第二个memo将第一个memo中的内容分解成几行.
如上面的例子就会变成:
20100112_164910
6
81406392
808
113
接下来的事情就变得比较简单了.当然这里面循环是肯定少不了的了.
下面是全部代码:
第一步:新建一个带参数的过程: 参数是文件名
var
F:text;
procedure TForm1.Insert(FileName:string);
var
s: string;
i:integer;
begin
AssignFile(F,FileName); //将文件的内容读到F中
Reset(F);
Memo1.Clear;
while not Eof(F) do
begin
Readln(F, s); //再将F中的内容读到S中
Memo1.Lines.Add(s); //将内容加入memo中
end;
CloseFile(F);
if memo1.Lines.Count>=1 then
begin
for i:=0 to memo1.Lines.Count-2 do
begin
if length(memo1.Lines[i])>4 then
begin
Memo2.Lines.Delimiter := ',';
Memo2.Lines.DelimitedText := memo1.Lines[i];
//下面两句是业务处理语句,把相关的内容插入表中
&n
相关文档：
在编译delphi程序时会出现在些提示，全是E文的，现在给大家一个对照表，可以更好的理解错误提示信息！
';' not allowed before 'ELSE' ElSE前不允许有“;”
'' clause not allowed in OLE automation section 在OLE自动区段不允许“”子句
'' is not a type identifier 不是类型标识符
'' not prev ......
例如以下代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;
type
TForm1 = class(TForm)
procedure one();
function two(x,y:integer):integer;
private
......
一个选单大致是这样：
1.可以被以某种形式呼叫出来，如按下esc；
2.在这个选单中功能键有不同的定义，如原本方向键控制走路，但现在改为控制光标的位置；
3.按下确定键后有对应功能被执行；
4.可以被关闭。
那么我的办法是编写两个子程，其中一个处理选单中的事件，另外一个专门负责画选单。
在从步行切换到选单 ......
如何调试DLL，在这里就不再赘述了，但是，今天就碰到了一个特别奇怪的问题，参数设置正确，就是不能调试？？ 通过上网查资料，发现了问题，注意：
1， 将Project主菜单的Project Options对话框的Compiler页面Debugging选项中的 Debug informaton、Local symbols、Assertions复选框选中
2，将Tools主菜单的D ......
使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数.
使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数.
搞了好一会才搞明白其用法.所以想贴出来帮助需要帮助的人.
var
&nb ......
