Q&A
- RichEdit에서 Lines insert 에러??
고수님들 꼭 좀 부탁 드립니다......
텍스트 내용은
{
12034562 김성준 남 7402051652577 서울시종로구충신동60번지 02367563010165095575
23569874 주수희 여 7512462563145 서울시 종로구 혜화동 1000번지 0115248563
54213654 송 재 열 남 7410251675412 서울시 성동구 화양리 화양리 야시시골목...^^02367536020164285680
#*@(&^!$+@쭈니$,($&%68@4571%(&@#^$(#*@&%!@#><;::"{}[kk {":>?<&*^%$#011*@#&_+|
41264 62 신호진이당 남자여요 78 12413 5647 서울시 종로구 관철동 777-333 번지 0 36 654120185236547
89654745 이 규 진 남자일걸... 7609251682914 서울시 종로구 충신동 60번지 예일 빌딩02367563030115090686
} 입니다.....
procedure TForm1.Button4Click(Sender: TObject);
var
F: TextFile;
S: string;
patnum,patname,patsex,patjumin1,patjumin2,patjuso,pattel1,pattel2:string;
begin
try
AssignFile(F, 'E:AFtpTest.txt');
Reset(F);
While not EOF(F) do
begin
Readln(F, S);
//RichEdit1.Lines.Add(S);
//내용나누기
patnum:=copy(s,1,8);
patname:=copy(s,9,5);
patsex:=copy(s,14,2);
patjumin1:=copy(s,16,6);
patjumin2:=copy(s,22,7);
patjuso:=copy(s,29,50);
pattel1:=copy(s,79,12);
pattel2:=copy(s,91,12);
RichEdit1.Lines.Add('수진번호='+ patnum);
RichEdit1.Lines.Add('이름='+ patname);
RichEdit1.Lines.Add('성별='+ patsex);
RichEdit1.Lines.Add('주민번호='+ patjumin1 + patjumin2);
RichEdit1.Lines.Add('환자주소='+ patjuso);
RichEdit1.Lines.Add('전화번호='+ pattel1);
RichEdit1.Lines.Add('이동전화='+ pattel2);
end;
finally
CloseFile(F);
end;
end;
이렇게 코딩을 했는데요......
실행을 시키니깐.......< RicEdit line insertion error >
이런 에러가 계속 뜨네요........
고수님들 좀 부탁 드립니다.... 그럼 수거요!! ^^
텍스트 내용은
{
12034562 김성준 남 7402051652577 서울시종로구충신동60번지 02367563010165095575
23569874 주수희 여 7512462563145 서울시 종로구 혜화동 1000번지 0115248563
54213654 송 재 열 남 7410251675412 서울시 성동구 화양리 화양리 야시시골목...^^02367536020164285680
#*@(&^!$+@쭈니$,($&%68@4571%(&@#^$(#*@&%!@#><;::"{}[kk {":>?<&*^%$#011*@#&_+|
41264 62 신호진이당 남자여요 78 12413 5647 서울시 종로구 관철동 777-333 번지 0 36 654120185236547
89654745 이 규 진 남자일걸... 7609251682914 서울시 종로구 충신동 60번지 예일 빌딩02367563030115090686
} 입니다.....
procedure TForm1.Button4Click(Sender: TObject);
var
F: TextFile;
S: string;
patnum,patname,patsex,patjumin1,patjumin2,patjuso,pattel1,pattel2:string;
begin
try
AssignFile(F, 'E:AFtpTest.txt');
Reset(F);
While not EOF(F) do
begin
Readln(F, S);
//RichEdit1.Lines.Add(S);
//내용나누기
patnum:=copy(s,1,8);
patname:=copy(s,9,5);
patsex:=copy(s,14,2);
patjumin1:=copy(s,16,6);
patjumin2:=copy(s,22,7);
patjuso:=copy(s,29,50);
pattel1:=copy(s,79,12);
pattel2:=copy(s,91,12);
RichEdit1.Lines.Add('수진번호='+ patnum);
RichEdit1.Lines.Add('이름='+ patname);
RichEdit1.Lines.Add('성별='+ patsex);
RichEdit1.Lines.Add('주민번호='+ patjumin1 + patjumin2);
RichEdit1.Lines.Add('환자주소='+ patjuso);
RichEdit1.Lines.Add('전화번호='+ pattel1);
RichEdit1.Lines.Add('이동전화='+ pattel2);
end;
finally
CloseFile(F);
end;
end;
이렇게 코딩을 했는데요......
실행을 시키니깐.......< RicEdit line insertion error >
이런 에러가 계속 뜨네요........
고수님들 좀 부탁 드립니다.... 그럼 수거요!! ^^
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김성진
- •
- 2001.09.21 01:09
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.09.21 03:34김성진 wrote: > 안녕하십니까? > > 질문입니다 꼭 부탁드립니다. > > DBGRID에서 이전에 선택한 로...
-
- 델초보
- •
- 2001.09.21 01:05
- 7 COMMENTS
- /
- 0 LIKES
-
최용일•2001.09.21 01:18
-
델초보•2001.09.21 01:28
-
최용일•2001.09.21 01:42
-
델초보•2001.09.21 01:56
-
최용일•2001.09.21 01:58
-
델초보•2001.09.21 02:04
-
최용일•2001.09.21 02:15
-
- 장정호
- •
- 2001.09.21 00:52
- 1 COMMENTS
- /
- 0 LIKES
-
마그넷•2001.09.21 05:31저두 허접이지만.. 전에 전에 그건...chr function 을 사용했답니다. 맞는 건줄은 모르지만.. 정...
-
- 학생
- •
- 2001.09.21 02:39
- 1 COMMENTS
- /
- 0 LIKES
-
foresun•2001.09.21 11:51글쎄요, DLL 자체는 함수들의 집합이기 때문에 이벤트같은 것을 만들 수는 없을 것 같은데요. DLL을 만들...
-
- 지하기
- •
- 2001.09.21 00:31
- 5 COMMENTS
- /
- 0 LIKES
-
최용일•2001.09.21 01:35
-
지하기•2001.09.21 03:05
-
최용일•2001.09.21 03:37
-
지하기•2001.09.21 04:32
-
이경문•2001.09.21 19:43
-
- 초보
- 2001.09.21 00:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보쭈니~
- •
- 2001.09.20 23:31
- 1 COMMENTS
- /
- 0 LIKES
고수님들 꼭 좀 부탁 드립니다...... 텍스트 내용은 { 12034562 김성준 남 7402051652577 서울시종로구충신동60번지 02367563010165095575 23569874 주수희 여 7512462563145 서울시 종로구 혜화동 1000번지 0115248563 54213654 송 재 열...-
홍성락•2001.09.21 00:39델초보쭈니~ wrote: > 고수님들 꼭 좀 부탁 드립니다...... > > 텍스트 내용은 > { > 12034562 김성...
-
-
- 심재호
- •
- 2001.09.20 23:08
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.09.21 01:10안녕하세요. 최용일입니다. Inside Secret Delphi 3 개발자핸드북 삼각형프레스에서 나온 녹색책인데...
-
- 초보
- •
- 2001.09.20 22:21
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.09.21 02:17초보 wrote: > Exl : Variant; //전역변수선언 > > procedure TFmTm101.mp_print1 > begin > try ...
-
- 들국화
- 2001.09.20 22:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 반영재
- •
- 2001.09.20 22:05
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.09.21 01:08반영재 wrote: > RichEdit에서 FindText로 찾은 문자열을 다른문자열로 바꾸고싶은데 어떻게 바꿀수 있나...
-
반영재•2001.09.21 04:04내용무라니깐요^^
-
- 초보자
- •
- 2001.09.20 20:58
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.09.21 01:54안녕하세요. 최용일입니다. 압축을 푸시면 Source폴더에 TB97_d5.dpk란 파일이 있을겁니다. 델파이에서 ...
-
초보자•2001.09.21 02:45답변 감사드립니다.
-
- dlwldn
- •
- 2001.09.20 20:55
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.09.20 21:23dlwldn wrote: > 검색하는 함수 있나요? > 델파이 이제 막 입문해서요.. 잘 모르겟습니다.. > 숫자형인...
-
- 델초보쭈니~
- 2001.09.20 20:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 초짜
- 2001.09.20 19:56
- 0 COMMENTS
- /
- 0 LIKES
-
- miny
- 2001.09.20 19:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.09.20 19:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 심길수
- 2001.09.20 19:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- 2001.09.20 10:09
- 0 COMMENTS
- /
- 0 LIKES
> 고수님들 꼭 좀 부탁 드립니다......
>
> 텍스트 내용은
> {
> 12034562 김성준 남 7402051652577 서울시종로구충신동60번지 02367563010165095575
> 23569874 주수희 여 7512462563145 서울시 종로구 혜화동 1000번지 0115248563
> 54213654 송 재 열 남 7410251675412 서울시 성동구 화양리 화양리 야시시골목...^^02367536020164285680
> #*@(&^!$+@쭈니$,($&%68@4571%(&@#^$(#*@&%!@#><;::"{}[kk {":>?<&*^%$#011*@#&_+|
> 41264 62 신호진이당 남자여요 78 12413 5647 서울시 종로구 관철동 777-333 번지 0 36 654120185236547
>
> 89654745 이 규 진 남자일걸... 7609251682914 서울시 종로구 충신동 60번지 예일 빌딩02367563030115090686
>
> } 입니다.....
>
> procedure TForm1.Button4Click(Sender: TObject);
> var
> F: TextFile;
> S: string;
> patnum,patname,patsex,patjumin1,patjumin2,patjuso,pattel1,pattel2:string;
>
> begin
> try
> AssignFile(F, 'E:AFtpTest.txt');
> Reset(F);
> While not EOF(F) do
> begin
> Readln(F, S);
> //RichEdit1.Lines.Add(S);
> //내용나누기
> patnum:=copy(s,1,8);
> patname:=copy(s,9,5);
> patsex:=copy(s,14,2);
> patjumin1:=copy(s,16,6);
> patjumin2:=copy(s,22,7);
> patjuso:=copy(s,29,50);
> pattel1:=copy(s,79,12);
> pattel2:=copy(s,91,12);
>
> RichEdit1.Lines.Add('수진번호='+ patnum);
> RichEdit1.Lines.Add('이름='+ patname);
> RichEdit1.Lines.Add('성별='+ patsex);
> RichEdit1.Lines.Add('주민번호='+ patjumin1 + patjumin2);
> RichEdit1.Lines.Add('환자주소='+ patjuso);
> RichEdit1.Lines.Add('전화번호='+ pattel1);
> RichEdit1.Lines.Add('이동전화='+ pattel2);
> end;
> finally
> CloseFile(F);
> end;
> end;
>
>
> 이렇게 코딩을 했는데요......
> 실행을 시키니깐.......< RicEdit line insertion error >
> 이런 에러가 계속 뜨네요........
> 고수님들 좀 부탁 드립니다.... 그럼 수거요!! ^^
///////////////////////////////////////////////////////////////////////
일단 몇가지 참조해서 다시 코딩해보세요
1. 한글은 2바이트로 계산하세요.
2. 텍스트에 있는 내용에 규칙성을 주세요
일정 길이는 무엇이고 남을땐 그만큼 공백으로라도 채우게함,
또는 식별문자를 주어 Pos함수를 써가며 Copy로 자른다던가요.