Q&A
- 이런 무식한 방법말고 어디 유식한 방법없나요?
리스트박스에서 두개를 조합한 내용이 파일에 있으면 그것을 딴 파일에
입력할려고 하는데 제가 쓰는 방법은 너무나도 무식하고 속도상에 문제가
있어서....
고수님들은 이럴때 어떠한 방법을 쓰시는지.. 조언을 부탁드립니다.
For i := 0 To ColBox.Items.Count-1 Do
Begin
For j := 0 To Colbox.Items.Count-1 Do
Begin
AssignFile(TmpFile,fMainForm.sDataDir+fSim_Para.InLinEdt.Text) ;
ReSet(TmpFile);
While Not Eof(TmpFile) Do
Begin
Readln(TmpFile, Buf);//파일의 한라인을 읽어서
If Pos('|'+ColBox.Items.Strings[i]+'|'+ColBox.Items.Strings[j]+'|', Buf) > 1 Then //파일의 내용이 있으면
Begin
Writeln(LinFile,Buf); //따른 파일에 저장한다.
End;
End;
CloseFile(TmpFile);
End;
End;
CloseFile(LinFile);
입력할려고 하는데 제가 쓰는 방법은 너무나도 무식하고 속도상에 문제가
있어서....
고수님들은 이럴때 어떠한 방법을 쓰시는지.. 조언을 부탁드립니다.
For i := 0 To ColBox.Items.Count-1 Do
Begin
For j := 0 To Colbox.Items.Count-1 Do
Begin
AssignFile(TmpFile,fMainForm.sDataDir+fSim_Para.InLinEdt.Text) ;
ReSet(TmpFile);
While Not Eof(TmpFile) Do
Begin
Readln(TmpFile, Buf);//파일의 한라인을 읽어서
If Pos('|'+ColBox.Items.Strings[i]+'|'+ColBox.Items.Strings[j]+'|', Buf) > 1 Then //파일의 내용이 있으면
Begin
Writeln(LinFile,Buf); //따른 파일에 저장한다.
End;
End;
CloseFile(TmpFile);
End;
End;
CloseFile(LinFile);
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
-
- 신동준
- 2000.10.23 21:42
- 0 COMMENTS
- /
- 0 LIKES
-
- Cha
- 2000.10.23 21:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2000.10.23 20:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 김형태
- 2000.10.23 20:50
- 0 COMMENTS
- /
- 0 LIKES
-
- onlytome
- •
- 2000.10.23 20:25
- 2 COMMENTS
- /
- 0 LIKES
-
윤종필•2000.10.23 20:42여러개의 테이블을 join 한 퀴리콤퍼넌트에서는 requestlive 속성을 True로 설정할 수 업습니다. 다른 방...
-
onlytome•2000.10.23 20:46여러개의 테이블을 join한게 아니라 한개의 테이블을 여러개의 쿼리 컴포넌트로 select하구 그 테이블에 또...
-
- 왕왕초보
- •
- 2000.10.23 20:18
- 2 COMMENTS
- /
- 0 LIKES
-
유레카•2000.10.23 23:10왕왕초보 wrote: > 예를 들어 이런 문자열이 있다면... > > MSGFORM:ORDERSF > > 여기서 ':'를 골라...
-
neo•2000.10.23 20:46무슨 말인지? var List:TStringList; begin . . . for i:=0 ...
-
- 어린왕자
- •
- 2000.10.23 20:13
- 2 COMMENTS
- /
- 0 LIKES
-
최석기•2000.10.23 21:43안녕하세요. 어린왕자님.. 문자열 추출이라면 각 DBMS Vendor 마다 틀리겠지만 Substring로 뽑아내면 ...
-
어린왕자•2000.10.24 18:43석기님.. 귀찮게 해드려서 죄송한데요.. MDB에서는 그 명령어가 어떤건줄 아셔요?? 최석기 wrote: > ...
-
- 호야
- •
- 2000.10.23 20:05
- 1 COMMENTS
- /
- 0 LIKES
리스트박스에서 두개를 조합한 내용이 파일에 있으면 그것을 딴 파일에 입력할려고 하는데 제가 쓰는 방법은 너무나도 무식하고 속도상에 문제가 있어서.... 고수님들은 이럴때 어떠한 방법을 쓰시는지.. 조언을 부탁드립니다. For i := 0...-
양우•2000.10.24 04:02아래처럼 바꾸어 보시면 될것같은데요. (단, buf의 내용을 한번씩만 출력할 경우) procedure uf_fin...
-
- cabi1205
- •
- 2000.10.23 20:01
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.10.24 04:08cabi1205 wrote: > aStringGrid,b_StringGrid에 동시 이벤트를 주고 싶습니다. > 예를 들어 aStringGrid...
-
- redfox
- •
- 2000.10.23 19:53
- 2 COMMENTS
- /
- 0 LIKES
-
김영대•2000.10.23 20:21redfox wrote: 그러니까여.. 이건 이렇게 하묜되죠.. Edit1.Text := Query1.FieldByName('필드명')....
-
김하늘•2000.10.23 19:43edit1.text := qry1.text; 를 하거나 memo1.lines := qry1.sql; 아마도 이렇게 하거나 redfox wrot...
-
- 궁금맨
- •
- 2000.10.23 20:15
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2000.10.23 20:06궁금맨 wrote: > 콤보박스 상하 사이즈를 줄이고 싶은데... > 마우스나 키보드로 해도 어느시점에서 더 ...
-
궁금맨•2000.10.23 20:18구창민씨.. 전 초보거든요.. 쉽게 할수 있게 좀 설명 해주시면 안될까요? 부탁드립니다 구창민 wro...
-
- 바보감자
- •
- 2000.10.23 19:26
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.10.23 22:39바보감자 wrote: > 델파이 고수분들 > 안냐세염 > 일단 제 글을 읽어주셔서 감사합니다 > 제가 구현 ...
-
- 신영일
- 2000.10.23 19:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 손영배
- 2000.10.23 19:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 김기철
- 2000.10.23 18:58
- 0 COMMENTS
- /
- 0 LIKES
-
- kiss70
- 2000.10.23 19:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 박웅철
- 2000.10.23 18:20
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 푸하하
- 2000.10.23 11:28
- 0 COMMENTS
- /
- 0 LIKES
아래처럼 바꾸어 보시면 될것같은데요.
(단, buf의 내용을 한번씩만 출력할 경우)
procedure uf_find_text;
var lb_find : boolean; // 현재 버퍼에서 해당 문자열을 찾았는지를 체크하는 스위치
begin
.
.
.
AssignFile(TmpFile,fMainForm.sDataDir+fSim_Para.InLinEdt.Text) ;
ReSet(TmpFile);
While Not Eof(TmpFile) Do
Begin
Readln(TmpFile, Buf);//파일의 한라인을 읽어서
lb_find := False;
For i := 0 To ColBox.Items.Count-1 Do
Begin
For j := 0 To Colbox.Items.Count-1 Do
Begin
If Pos('|'+ColBox.Items.Strings[i]+'|'+ColBox.Items.Strings[j]+'|', Buf) > 1 Then //파일의 내용이 있으면
Begin
lb_find := True;
break;
End;
End;
if lb_find then
begin
break;
end;
End;
if lb_find then
begin
Writeln(LinFile,Buf); //따른 파일에 저장한다.
end;
End;
CloseFile(TmpFile);
CloseFile(LinFile);
end;
호야 wrote:
> 리스트박스에서 두개를 조합한 내용이 파일에 있으면 그것을 딴 파일에
> 입력할려고 하는데 제가 쓰는 방법은 너무나도 무식하고 속도상에 문제가
> 있어서....
> 고수님들은 이럴때 어떠한 방법을 쓰시는지.. 조언을 부탁드립니다.
>
> For i := 0 To ColBox.Items.Count-1 Do
> Begin
> For j := 0 To Colbox.Items.Count-1 Do
> Begin
> AssignFile(TmpFile,fMainForm.sDataDir+fSim_Para.InLinEdt.Text) ;
> ReSet(TmpFile);
> While Not Eof(TmpFile) Do
> Begin
> Readln(TmpFile, Buf);//파일의 한라인을 읽어서
> If Pos('|'+ColBox.Items.Strings[i]+'|'+ColBox.Items.Strings[j]+'|', Buf) > 1 Then //파일의 내용이 있으면
> Begin
> Writeln(LinFile,Buf); //따른 파일에 저장한다.
> End;
> End;
> CloseFile(TmpFile);
> End;
> End;
> CloseFile(LinFile);