Q&A
- txt-->db로 읽고 싶어요
매일생성되는 화일에서 정리에서 리포트로 뽑으려 하는데
잘 정리가 않되서요 그리고 델파이로 잔것이 실행도 않되고요
도와주세여,,
unit packet;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, DBTables;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Label1: TLabel;
Table1: TTable;
Label2: TLabel;
DBGrid1: TDBGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
f : textfile;
S : string;
nloop : Longint;
begin
nloop :=0;
Assignfile(f,'c:ab199904.txt');
while not seekEof(f) do
begin
readln(S);
// if (ORD(S[1]) = 13 and ORD(S[2]) = 10) then
// begin
// Table1.Append;
//공백레코드 추가
// nloop := 0;
// end
// else
// begin
Table1.edit;
Table1.Fields[nloop].AsString := s;
Table1.Post;
inc(nloop);
end;
end;
end.
잘 정리가 않되서요 그리고 델파이로 잔것이 실행도 않되고요
도와주세여,,
unit packet;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, DBTables;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Label1: TLabel;
Table1: TTable;
Label2: TLabel;
DBGrid1: TDBGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
f : textfile;
S : string;
nloop : Longint;
begin
nloop :=0;
Assignfile(f,'c:ab199904.txt');
while not seekEof(f) do
begin
readln(S);
// if (ORD(S[1]) = 13 and ORD(S[2]) = 10) then
// begin
// Table1.Append;
//공백레코드 추가
// nloop := 0;
// end
// else
// begin
Table1.edit;
Table1.Fields[nloop].AsString := s;
Table1.Post;
inc(nloop);
end;
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 한범수
- 1999.04.23 05:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 문창완
- •
- 1999.04.23 05:16
- 2 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.04.23 07:03참.. 혹시 검색엔진이 야후같은것을 말씀하신것이라면 기본개념은 이렇습니다. 별것 아니죠. 데이타 베...
-
이정욱•1999.04.23 07:01그냥 참고만 하세요~ http://www.nobreak.com 에 가시면 CrazySearch라는것이 있습니다. 그것의 소스를 ...
-
- 전진우
- •
- 1999.04.23 04:02
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.04.23 06:58저도 다오때문에 고생을 한적이 있었지요... 다오를 분명 설치를 했는데도 잘 안되더군요... 사실 저도 ...
-
- 이현아
- •
- 1999.04.23 03:04
- 2 COMMENTS
- /
- 0 LIKES
-
김영대•1999.04.23 18:04이현아 wrote: > 안녕하세요! > 저는 이제 막 델파이 공부를 하는 직장인입니다. > 다름이 아니구요! >...
-
이현아•1999.04.24 16:43김영대 wrote: > 이현아 wrote: > > 안녕하세요! > > 저는 이제 막 델파이 공부를 하는 직장인입니다. ...
-
- 조봉성
- •
- 1999.04.23 02:54
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.04.23 03:14조봉성 wrote: > table1.FieldByName('Pay').AsInteger := Result / 30 * 1000; > Result 는 정수형임 >...
-
- 전진우
- •
- 1999.04.23 02:14
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.04.23 02:45You need the following files to install DAO 3.5: Table 1 File name Location DAO350.DLL C:Program...
-
- 임윤경
- •
- 1999.04.23 00:54
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.04.23 18:23임윤경 wrote: > 제가 김영대씨 홈페이지에서 받은 FTP서버의 파일을 PC로 다운로드하는 소스에 보면, rec...
-
- 강지영
- •
- 1999.04.23 00:51
- 1 COMMENTS
- /
- 0 LIKES
-
배리스•1999.04.23 17:51안녕하세요. 강지영씨.. 오늘은 날씨가 별로 좋지 않네요. 하지만 이런 날씨가 더 좋은것 같습니다. 왜냐...
-
- 황인수
- 1999.04.22 23:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 김형하
- •
- 1999.04.22 20:25
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.04.23 07:10네.. 저희도 통신 프로그램의 터미널을 만들때 부딪혔던 문제입니다. 프린터같은 경우면 간단하게 LineTo...
-
- 권용만
- •
- 1999.04.22 19:12
- 3 COMMENTS
- /
- 0 LIKES
-
신인재•1999.04.22 19:50권용만 wrote: > 항상 도움을 주셔서 감사합니다. > RunTime시에 Table 또는 Query에 필드를 넣으려 합니...
-
권용만•1999.04.22 22:56신인재 wrote: > 권용만 wrote: > > 항상 도움을 주셔서 감사합니다. > > RunTime시에 Table 또는 Query...
-
신인재•1999.04.23 00:43권용만 wrote: > 신인재 wrote: > > 권용만 wrote: > > > 항상 도움을 주셔서 감사합니다. > > > RunTi...
-
- 신호철
- •
- 1999.04.22 19:12
- 1 COMMENTS
- /
- 0 LIKES
매일생성되는 화일에서 정리에서 리포트로 뽑으려 하는데 잘 정리가 않되서요 그리고 델파이로 잔것이 실행도 않되고요 도와주세여,, unit packet; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dia...-
신인재•1999.04.22 20:18신호철 wrote: > 매일생성되는 화일에서 정리에서 리포트로 뽑으려 하는데 > 잘 정리가 않되서요 그리고...
-
- 송동일
- •
- 1999.04.22 19:02
- 4 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.04.22 19:20송동일 wrote: > 스트링 중간에 콤마가 있는 것을 float로 바꾸려면 어떻게 해야 되는지 > 궁금합니다. ...
-
송동일•1999.04.22 19:36안치봉 wrote: > 송동일 wrote: > > 스트링 중간에 콤마가 있는 것을 float로 바꾸려면 어떻게 해야 되는...
-
글쎄요.•1999.04.22 23:29송동일 wrote: > 안치봉 wrote: > > 송동일 wrote: > > > 스트링 중간에 콤마가 있는 것을 float로 바꾸...
-
안치봉•1999.04.22 19:51송동일 wrote: > 안치봉 wrote: > > 송동일 wrote: > > > 스트링 중간에 콤마가 있는 것을 float로 바꾸...
-
- chaser
- 1999.04.22 18:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 임윤경
- 1999.04.22 17:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 김남일
- 1999.04.22 11:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 김장섭
- •
- 1999.04.22 05:57
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.04.22 07:02김장섭 wrote: > 안녕하세요 > 가장 최근에 작업했던 폼에 대한 정보를 가지고 화면을 바로 생성하려고 ...
-
- 조우철
- 1999.04.22 05:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 문창완
- 1999.04.22 02:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 강지영
- •
- 1999.04.22 01:58
- 2 COMMENTS
- /
- 0 LIKES
-
신인재•1999.04.22 02:47강지영 wrote: > DM.Query1.Locate('Cust_No',Cr,lopartialKey); > 를 실행하면 > incompatible types :...
-
강지영•1999.04.22 05:48신인재 wrote: > 강지영 wrote: > > DM.Query1.Locate('Cust_No',Cr,lopartialKey); > > 를 실행하면 >...
> 매일생성되는 화일에서 정리에서 리포트로 뽑으려 하는데
> 잘 정리가 않되서요 그리고 델파이로 잔것이 실행도 않되고요
> 도와주세여,,
>
>
> unit packet;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, Grids, DBGrids, Db, DBTables;
>
> type
> TForm1 = class(TForm)
> DataSource1: TDataSource;
> Label1: TLabel;
> Table1: TTable;
> Label2: TLabel;
> DBGrid1: TDBGrid;
> Button1: TButton;
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> f : textfile;
> S : string;
> nloop : Longint;
> begin
> nloop :=0;
> Assignfile(f,'c:ab199904.txt');
>
> while not seekEof(f) do
>
> begin
> readln(S);
>
> // if (ORD(S[1]) = 13 and ORD(S[2]) = 10) then
> // begin
> // Table1.Append;
> //공백레코드 추가
> // nloop := 0;
> // end
> // else
> // begin
> Table1.edit;
> Table1.Fields[nloop].AsString := s;
> Table1.Post;
> inc(nloop);
> end;
> end;
> end.
레코드 형으로 정의를 해서 사용하시는것이 좀 편할 꺼 같군요
type
// 레코드의 구조(텍스트파일의 레코드구조가 테이블과 구조가 같아야 겠죠)
str_R = Record
s_code : string[4];
s_name : string[12];
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
S: str_R;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog box }
Reset(F);
while not EOF(F) do begin
Read(F, S.s_code);
Readln(F, S.s_name);
// 디비 핸들링 필드에 넣어주고 포스트하고하는 작업들....쩝
end;
CloseFile(F);
end;
end;