Q&A
- 찾기에 관한 질문입니다.꼭 답변 바랍니다.
님들의 도움을 받고자 이렇게 질문을 올립니다.
제가 하고 싶은 것은 메모장을 약간 확장한 건데여..
text파일을 메모장으로 불러 들였을때
'<==이것을 찾아서 어떤 일을 수행 하고 싶습니다.
예를 들면
LOC+147+123456::5'aMEA+WT++KGM:123456'TMP+2+-10:FAH'LOC+9+JPOSA'LOC+11+KRPUS'LOC+83+KRPUS'RFF+BM:1'EQD+CN+1k,dfo36+4532+++5'NAD+CA+MAE:172:20'LOC+147+0060286::5'MEA+WT++KGM:5695'LOC+9+JPOSA'LOC+11+KRPUS'LOC+83+KRPUS'RFF+BM:1'EQD+CN+SEAU7842473+4310+++5'NAD+CA+SEA:172:20'LOC+147+wr3rg43::5'MEA+WT++KGM:3880'LOC+9+JPOSA'LOC+11+KRPUS'LOC+83+pekt'RFF+BM:1'EQD+CN+abcd4041370+4310+++4'NAD+CA+def:172:20'
이런 형태의 파일이 불렸을 때 '<==이것이 있는 곳들을 찾아 '<==이 문자 뒷부분에 #13(enter)을 주고 싶습니다.
LOC+147+123456::5'
aMEA+WT++KGM:123456'
TMP+2+-10:FAH'
LOC+9+JPOSA' ..............
이런 형태로 만들고 싶습니다.
님들 제발 도와 주세요~!!
초보라 혼자 이런 문제를 해결하려고 하니 여간 힘든게 아님니다.
님들~~부디 초보에게 도움을 주세요!!!!
제가 하고 싶은 것은 메모장을 약간 확장한 건데여..
text파일을 메모장으로 불러 들였을때
'<==이것을 찾아서 어떤 일을 수행 하고 싶습니다.
예를 들면
LOC+147+123456::5'aMEA+WT++KGM:123456'TMP+2+-10:FAH'LOC+9+JPOSA'LOC+11+KRPUS'LOC+83+KRPUS'RFF+BM:1'EQD+CN+1k,dfo36+4532+++5'NAD+CA+MAE:172:20'LOC+147+0060286::5'MEA+WT++KGM:5695'LOC+9+JPOSA'LOC+11+KRPUS'LOC+83+KRPUS'RFF+BM:1'EQD+CN+SEAU7842473+4310+++5'NAD+CA+SEA:172:20'LOC+147+wr3rg43::5'MEA+WT++KGM:3880'LOC+9+JPOSA'LOC+11+KRPUS'LOC+83+pekt'RFF+BM:1'EQD+CN+abcd4041370+4310+++4'NAD+CA+def:172:20'
이런 형태의 파일이 불렸을 때 '<==이것이 있는 곳들을 찾아 '<==이 문자 뒷부분에 #13(enter)을 주고 싶습니다.
LOC+147+123456::5'
aMEA+WT++KGM:123456'
TMP+2+-10:FAH'
LOC+9+JPOSA' ..............
이런 형태로 만들고 싶습니다.
님들 제발 도와 주세요~!!
초보라 혼자 이런 문제를 해결하려고 하니 여간 힘든게 아님니다.
님들~~부디 초보에게 도움을 주세요!!!!
2
COMMENTS
-
-
저도 초보라 저는 메모장에 아니라 리스트박스에 넣었는데 이거나 저가나..
하옇튼 참고가 되었으면 합니다.
P:=POS(''',IMSI_DATA);// ' 가 있는 위치 값을 읽어 옴
A1:=COPY(IMSI_DATA,1,P-1);1열에서 위의 위치 값까지 카피해서 A1넣고
DELETE(IMSI_DATA,1,P); 읽어온 문자 다 날리고
P:=POS(''',IMSI_DATA);// ' 가 있는 위치 값을 읽어 옴
A2:=COPY(IMSI_DATA,1,P-1);1열에서 위의 위치 값까지 카피해서 A1넣고
DELETE(IMSI_DATA,1,P); 읽어온 문자 다 날리고
.
.
.
생략
그리고나서
S:=A1+'#13';
이걸 이용하면 될것 같네요...
그런데 혹시 ' 안되면 '==>"로 바꾸어서 해도 괜찮겠네요
P:=POS('"',IMSI_DATA);
(NOTICE) You must be logged in to comment on this post.
-
- 강동균
- •
- 2003.03.14 23:37
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2003.03.15 05:47// 안녕하세요 김영대 ( http://www.howto.pe.kr ) 입니다 출처 : USING DELPHI 3, QUE ...
-
- 이영동
- •
- 2003.03.14 22:45
- 2 COMMENTS
- /
- 0 LIKES
-
정수지•2003.03.14 23:48BDE가 안깔려서 그럴거예여.. 그리고 동적으로 DB를 잡으셨다면 그냥 BDE만 깔아주심 될거구여 아니면 BD...
-
강동균•2003.03.14 23:39아마 BDE를 안 깔아서 그런것 같네요
-
- 조경모
- •
- 2003.03.14 22:38
- 1 COMMENTS
- /
- 0 LIKES
-
거리•2003.03.15 00:46안녕하세요. 거리입니다. 오픈 다이얼로그는 리턴타입이 TStrings형태입니다. 하나만 선택하셨다면 [0]번...
-
- 이충효
- •
- 2003.03.14 21:11
- 1 COMMENTS
- /
- 0 LIKES
-
전문성•2003.03.15 06:21===================================================== 전 이 Procedure를 만들어 쓰니 되던데요.. (강...
-
- 양전식
- 2003.03.14 20:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 제타
- •
- 2003.03.14 20:08
- 1 COMMENTS
- /
- 0 LIKES
-
이순구•2003.03.14 21:09procedure TForm1.FormCreate(Sender: TObject); begin &nbs...
-
- 정수지
- •
- 2003.03.14 19:54
- 2 COMMENTS
- /
- 0 LIKES
님들의 도움을 받고자 이렇게 질문을 올립니다. 제가 하고 싶은 것은 메모장을 약간 확장한 건데여.. text파일을 메모장으로 불러 들였을때 '<==이것을 찾아서 어떤 일을 수행 하고 싶습니다. 예를 들면 LOC+147+123456::5'aMEA+WT++KGM:1...-
이순구•2003.03.14 21:24var S, temp: string; begin S := Memo1.Text; &nbs...
-
이승준•2003.03.14 20:23저도 초보라 저는 메모장에 아니라 리스트박스에 넣었는데 이거나 저가나.. 하옇튼 참고가 되었으면 합니...
-
- 루이
- •
- 2003.03.14 19:38
- 1 COMMENTS
- /
- 0 LIKES
-
구니•2003.03.15 00:44저도 옛날에 이런일이 있었군요. 맞을지 모르지만 함 해보세요. 로직에 아무리봐도 이상이 없다면.... ...
-
- 이승준
- •
- 2003.03.14 19:25
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2003.03.14 20:59제 홈페이지( http://www.howto.pe.kr )의 델파이 "강좌/소스/문서" 에 예제로 올려놓은게 있는데 참고해 ...
-
- 초보왕
- •
- 2003.03.14 19:14
- 2 COMMENTS
- /
- 0 LIKES
-
이순구•2003.03.14 20:47일단 게시판 검색은 잘 됩니다..... 관련된 자료가 없으면 물론 검색을 해도 나타나지 않겠지요.. 그리...
-
초보왕•2003.03.14 23:10답변감사합니다... 아래의 소스에서 플레이를 시키는 것은 Test.pas라는 파일에 있는 PtPlayFile핸들을 ...
-
- 홍길동
- •
- 2003.03.14 19:02
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2003.03.14 21:03제 폼페이지 ( http://www.howto.pe.kr )의 델파이 "Tip & Trick" 에서 "인쇄"로 검색해 보시면 몇가지 소...
-
- 김경정
- 2003.03.14 17:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금해요
- •
- 2003.03.14 11:08
- 2 COMMENTS
- /
- 0 LIKES
-
장은석•2003.03.15 00:19올만에 답글 올리네여.. 쩝 이런경우 동적생성할 Form2를 쓰레드로 생성하세요 그럼 생성된 쌍동이놈들...
-
김영대•2003.03.14 21:09// 안녕하세요 김영대 (http://www.howto.pe.kr )입니다 thread 를 사용해 보세요 프로세스당의 CPU 할...
-
- 아폴론
- •
- 2003.03.14 07:59
- 1 COMMENTS
- /
- 0 LIKES
-
맑은물•2003.03.14 10:49시스템적으로 권한설정 말고 프로그램 자체내에서 권한설정 하시려는거 맞죠 권한을 1 2 3 ...
-
- ERP
- •
- 2003.03.14 05:16
- 2 COMMENTS
- /
- 0 LIKES
-
KDDG_Check•2003.03.14 21:40안녕하세요 여유로움입니다. MSComm을 이용하여 이진형식의 데이터를 보내려면 바이트배열을 가지고 있는...
-
ERP•2003.03.15 02:35여유로움님~ 정말 감사합니다. ^-^; 몇일동안 짧은 지식으로 이것저것 시도하며 한숨만 쉬었는데... ...
-
- 김동화
- •
- 2003.03.14 04:38
- 4 COMMENTS
- /
- 0 LIKES
-
이병훈•2003.03.14 10:16안녕하세요. 그냥 참고 삼아 적어 봅니다. 만약 oracle을 사용하신다면 select las...
-
김영철•2003.03.29 02:47select to_char(last_day(to_date('200302','yyyy-mm')),'yyyymmdd') from dual; =>2003022...
-
김영대•2003.03.14 06:18// 안녕하세요 김영대(http://www.howto.pe.kr) 입니다 // 제 홈페이지의 Delphi Tip&Trick 에...
-
한영관•2003.03.27 03:34안녕하세염.. 간단히 코딩해봤어요.. function ThisMonthLast : TDateTime; var Y, M, D :...
-
- 델사랑
- •
- 2003.03.14 04:01
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2003.04.01 19:19쿼리를 사용하신다면 쿼리에 문제가 있지 않을까 하는 의문과.. odbc 에러가 왜 날까 하는 의문입니...
-
- 김정균
- •
- 2003.03.14 03:10
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2003.03.14 06:15// 안녕하새요 김영대(http://www.howto.pe.kr) 입니다 // 다행히 제가 가지고 있는 자료라 올려드립니다 ...
-
- 심지현
- •
- 2003.03.14 02:53
- 1 COMMENTS
- /
- 0 LIKES
-
이순구•2003.03.14 20:56델파이 도움말 -> Wndows SDK 에서 FindWindow, GetWindowRect, mouse_event 등을 찾아보면 도움이 될 ...
-
- 조경모
- •
- 2003.03.14 02:05
- 2 COMMENTS
- /
- 0 LIKES
-
래머•2003.03.14 02:34에디트박스의 KeyPress 이벤트에 if Key in ['0'..'9'] = False then begin ...
-
DelChoBo•2003.03.14 02:29원하시는 기능은 마스크 에디트나 기타 컴포를 따로 찾으셔야 될듯.. 굿이 Tedit 를 이용하려면, OnKeyDow...
S, temp: string;
begin
S := Memo1.Text;
temp := '';
p := Pos('''', S);
while p <> 0 do
begin
temp := temp + Copy(S, 1, p - 1) + #13#10;
Delete(S, 1, p);
p := Pos('''', S);
end;
Memo1.Clear;
Memo1.Text := temp;
end;