Q&A
- 메모박스에서 원하는 내용만 뽑고 싶거던요
memo1.text 내용이 A01_AAAA, A01_BBBB, A01_CCCC, A01_DDDD
라고 할대요...
여기서 '_' 를 기준으로 뒤로 3칸꺼 앞으루 4칸거만 추출해낼수 있을까요...
어떻게 해야될찌 감이 안잡히거던요..혹시 방향이라도 아시면 알려주시고,
비슷한거 해보시분은 예좀 들어주세요...그럼 ㄳ하겠습니다.
라고 할대요...
여기서 '_' 를 기준으로 뒤로 3칸꺼 앞으루 4칸거만 추출해낼수 있을까요...
어떻게 해야될찌 감이 안잡히거던요..혹시 방향이라도 아시면 알려주시고,
비슷한거 해보시분은 예좀 들어주세요...그럼 ㄳ하겠습니다.
3
COMMENTS
-
-
procedure TForm1.Button1Click(Sender: TObject);
var s_string, s_prev3, s_next4: string;
i, j: integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
s_string:= Memo1.Lines[i];
j := POS('_', s_string);
s_prev3:= copy(s_string, j-3, 1);
s_next4:= copy(s_string, j+3, 1);
Memo2.Lines.Add(s_prev3 + ',' + s_next4);
end;
// 제생각으론 앞으로 3칸, 뒤로 4칸이 아닌가 생각되는데요...
// 원하시는 내용이 맞나 모르겠네요... 폼에 메모2개, 버튼 하나두고 테스트 해보세요
end;
-
저는 단순해서 간단한 방법뿐이 생각이 나지 않습니다.. 속도가 좀 떨어지지 않을까 싶습니다..
var
sPos : integer
tempStr : String;
begin
tmep := memo1.Lines.String[0];
sPos := Pos('_', temp);
if sPos > 0 then begin
.... (copy 원하는 부분 뽑고 sPos는 '_' 문자의 시작위치)
delete(temp, 1, sPos);
end;
end;
간단히 적었는데 넘 엉성한네요.. ㅋㅋㅋ Pos와 copy로 해야 되지 않나 싶습니다.. 그리고 첫번째거 찾으면 첫번째 이전에 문자 지우고 다시 찾고. 뭐 이런식으로 하면 되겠네요..
for 문이나 while 문 사용해야 계속 돌면서 찾아 할듯합니다.
너무 하드 코딩인가..ㅋㅋㅋㅋㅋ 단순하게 하는 방법이 있을까 .. 생각해 보겠습니다.
(NOTICE) You must be logged in to comment on this post.
-
- 김도형
- •
- 2004.07.10 01:19
- 1 COMMENTS
- /
- 0 LIKES
-
cell•2004.07.10 03:04버튼의 Hint 프로퍼티에 설명을 써주고 showhint = True로 해주면 됩니다.
-
- 김성진
- •
- 2004.07.10 00:39
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_Apine•2004.07.10 04:03안녕하세요.... KDDG 입니다.... 제가 메일 클라이언트를 개발해
-
- 송현경
- •
- 2004.07.09 20:24
- 4 COMMENTS
- /
- 0 LIKES
-
꿈의대화•2004.07.09 20:51.
-
송현경•2004.07.09 22:24get 명령을 보내면.. get하는데서 멈춰서 더이상의 진행이 안되는 겁니다. 프로그램이 다운되는것은 아닌...
-
KDDG_BaSTaD•2004.07.09 22:38
-
송현경•2004.07.14 20:39마찬가지네요.. ftp 하는 컴퍼넌트.. 다른것은 없나요?
-
- 유정헌
- •
- 2004.07.09 18:56
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2004.07.10 01:03var i : integer; begin for i := 0 to Self.ComponentCount - 1 do &nb...
-
- 이미영
- 2004.07.09 12:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진태
- •
- 2004.07.09 08:36
- 1 COMMENTS
- /
- 0 LIKES
-
뚜까•2004.07.09 19:08편법으로 밖에 쓸수 없습니다. 일단 스트링그리드 올려놓고, 콤보박스 하나를 폼위에 올려 놓고요 마...
-
-
- 김선아
- •
- 2004.07.09 00:20
- 3 COMMENTS
- /
- 0 LIKES
-
모영철•2004.07.09 00:28환경 설정부분에서 체크해야 하지 않을까요?? 오라클 7로 연결할것인지 8로 연결할것인지.. 만일 이...
-
김선아•2004.07.09 00:58답변 감사합니다.. 그렇다면 레지스트리 검색은 어떻게 해야 하나요.. 제가 오라클은 처음 하는거라 어찌...
-
모영철•2004.07.09 01:30
-
- 김도형
- •
- 2004.07.09 00:11
- 1 COMMENTS
- /
- 0 LIKES
-
모영철•2004.07.09 00:26폼을 만들어서 postion은 poScreenCenter로 놓으시고 formstyle은 fsStayOnTop으로 주시고.. 프로젝...
-
- ╋크로이첼™╋
- •
- 2004.07.08 23:41
- •
- 3 COMMENTS
- /
- 0 LIKES
-
모영철•2004.07.09 00:00델파이 몇인지는 모르겠지만. CommportDriver이란 컴포넌트가 기본으로 깔린다는건 첨듣는것 같습니다. ...
-
╋크로이첼™╋•2004.07.09 00:11델파이버젼은 5입니다. 그리고 파일 올려드립니다. 이 네개의 파일중 어떤걸 설치 해야 저 에러가 없어지...
-
모영철•2004.07.09 00:37제생각엔 이중에서 comDrv32.zip 이안에 들어 있는게 컴포넌트인거 같습니다. 먼저 File-Open 하시고...
-
- 초보에요
- •
- 2004.07.08 20:42
- 3 COMMENTS
- /
- 0 LIKES
-
KDDG_Gnoses•2004.07.10 10:21그렇군요 netbios! 짝퉁 프로토콜 api가 있었군요. 데브피아 netbios 게시물 사명감에 한번 찾아...
-
장명수•2004.07.09 19:55uses NB30; NetBios란 함수가 있습니다. MAC Address는 물론 작업그룹명도 가져올수 있습니다.
-
KDDG_Gnoses•2004.07.09 19:18허거덩... 그런게 가능하나요? 그 아이피를 가진 컴에 접근해서 프로그램을 하나 깔지 않는다음에서야....
-
-
모영철•2004.07.09 00:03bpl 파일은 패키지와 관련있는걸로 알고 잇는데요.. 인스톨 패키지 부분에 가보면 bpl파일경로가 있습니...
-
-
- 온진욱
- •
- 2004.07.08 13:25
- 2 COMMENTS
- /
- 0 LIKES
-
㉳㉥ㅗ㉣ㅐ㉧ㅛ•2004.07.08 23:51if MessageDlg('Do You End Program Really?',mtConfirmation, [mbYes,mbNo],0 ) = mrYes then &n...
-
온진욱•2004.07.11 22:36.
-
- Galaxy
- •
- 2004.07.08 03:11
- 4 COMMENTS
- /
- 0 LIKES
-
모영철•2004.07.08 23:19TQuery를 쓰시면 안될까요???^^;; Dataset1.Filter := 'State <> ''CA'' or State = BLANK'; ...
-
Galaxy•2004.07.08 23:30안녕하세요 수고 많습니다. 답변에 감사 드립니다. 저도 TQuery을 사용하면 아주 편하게 작업을 할것...
-
㉳㉥ㅗ㉣ㅐ㉧ㅛ•2004.07.08 23:57AggFields 라는 것이 있네요...이걸 활용하면 될것 같은디...아직 테스트는 못했네요...
-
Galaxy•2004.07.09 01:45답변에 감사 드립니다. 님의 말대로 AggFields 자료를 찾아보았습니다. 내 느낌은 좋은 자료 인것 같은...
-
- 첨시작델
- •
- 2004.07.08 02:26
- 3 COMMENTS
- /
- 0 LIKES
memo1.text 내용이 A01_AAAA, A01_BBBB, A01_CCCC, A01_DDDD 라고 할대요... 여기서 '_' 를 기준으로 뒤로 3칸꺼 앞으루 4칸거만 추출해낼수 있을까요... 어떻게 해야될찌 감이 안잡히거던요..혹시 방향이라도 아시면 알려주시고, 비슷한...-
첨시작델•2004.07.08 19:08KDDG_Apine님 님두 델마당 길드신가요..같이 겜해본적 없는거 같네요.. 한참동안 채널에 못들어 간거 같네...
-
이창영•2004.07.08 05:01procedure TForm1.Button1Click(Sender: TObject); var s_string, s_prev3, s_next4: string; &nbs...
-
KDDG_Apine•2004.07.08 04:51저는 단순해서 간단한 방법뿐이 생각이 나지 않습니다.. 속도가 좀 떨어지지 않을까 싶습니다.. var sP...
-
- 김진국
- •
- 2004.07.08 01:30
- 1 COMMENTS
- /
- 0 LIKES
-
김진국•2004.07.08 01:43다시 부연 예를 드릴께요.. select failed_count from t_log where failed_count is not null 하면 ...
-
- 이정규
- 2004.07.08 01:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 임영규
- 2004.07.08 01:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 못난이
- •
- 2004.07.08 00:32
- 2 COMMENTS
- /
- 0 LIKES
-
모영철•2004.07.09 00:10헬프에 보니깐 FTPDirectoryList를 쓰려면 ParseList프로퍼티가 True로 되있어야 한다는군요.. 혹시 ...
-
못난이•2004.07.09 01:17나머지는 도움말에 나와 있는거랑 다 맞습니당.....쩝.... True 당근이 되어 있습니당..... 읽어주시거...
-
- 배정진
- •
- 2004.07.07 23:09
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_Apine•2004.07.08 04:56메모장은 표 만들기 안되구요.. 리치에디터에서 표를 가져올수는 있다고 들었습니다. &nbs...
한참동안 채널에 못들어 간거 같네여..^^
제가 원하는 결과를 얻어서 지가 답변을 적네요
전체길이를 기준으로 해서요.. for문을 돌린다음에
하나식 증가해서 조건을 걸어서 나중에 배열에 박아버렸어요.ㅎㅎㅎ
어찌든 원하는 결과는 나오네여...