Q&A
- 문자열 추출중 불필요없는 것이 따라오는데요. 조언 부탁드려요.^^*
안녕하세요, 초보하나 많은 도움에 감사를 드려요.^^*
실제 추출할 HTML 소스와 pas 소스는 아래와 같구요...
- HTML 소스 -------------------------------------------------------
...
...줄공백
...
<html>
<head>
<title>물품목록조회</title>
<meta http-equiv="content-type" content="text/html; charset=euc-kr">
<link rel="stylesheet" type="text/css" href="../css/TA.css">
<script language="javascript">
...
... 생략
...
<a href="javascript:goASPPage('20061217446','00')">20061217446-00</a>
</td>
<td class=tdcc>일반</td>
<td class=tdc>
<a href="javascript:goASPPage('20061217446','00')">
....생략
</body>
</html>
-------------------------------------------------------------------
<!--CodeS-->
- unit.pas --------------------------------------------------------
// html추출
procedure TForm1.htmlSrc(Sender: TObject);
begin
try
Memo1.Clear;
// 브라우져에서 html추출
HTMLStr := TStringList.create;
HTMLStr.Text := WebBrowser1.OleObject.Document.DocumentElement.OuterHTML;
for index := 0 to HTMLStr.Count-1 do
begin
// 번호 추출
gcodeStr := Pos(':goASPPage(''', HTMLStr.strings[index])+11;
HTMLDoc1 := copy(HTMLStr.strings[index], gcodeStr+1,11);
// 회차 추출
gcodeStr := Pos(''',', HTMLStr.strings[index])+2;
HTMLDoc2 := copy(HTMLStr.strings[index], gcodeStr+1,2);
if HTMLDoc1 <> '' then memo1.Lines.Add(HTMLDoc1);
if HTMLDoc2 <> '' then memo1.Lines.Add(HTMLDoc2);
HTMLDoc := HTMLDoc1 + '-' + HTMLDoc2;
memo1.Lines.Add(HTMLDoc);
end;
HTMLStr.free;
except
end;
end;
-------------------------------------------------------------------
<!--CodeE-->
위의 HTML 소스를 아래의 Pas 소스로 돌리게 되면, 이상하게도 Pos() 로 지정된 문자열기준에서 정확히 뽑아오는 부분도 있지만 비정상적인 부분까지도 뽑아오더라구요.
- 결과물 ----------------------------------------------------------
...생략
-R>
iddle heigh-D
Spacing=0 c-AB
-BO
-R>
useover="im-D>
useover="im-',
useover="im-D>
useover="im-D>
useover="im-D>
useover="im-'p
useover="im-D>
useover="im-D>
...
-------------------------------------------------------------------
델파이 생각보다 너무 어려운것 같아요 ㅠ.ㅠ
작은 조언 한말씀 부탁드려요.
실제 추출할 HTML 소스와 pas 소스는 아래와 같구요...
- HTML 소스 -------------------------------------------------------
...
...줄공백
...
<html>
<head>
<title>물품목록조회</title>
<meta http-equiv="content-type" content="text/html; charset=euc-kr">
<link rel="stylesheet" type="text/css" href="../css/TA.css">
<script language="javascript">
...
... 생략
...
<a href="javascript:goASPPage('20061217446','00')">20061217446-00</a>
</td>
<td class=tdcc>일반</td>
<td class=tdc>
<a href="javascript:goASPPage('20061217446','00')">
....생략
</body>
</html>
-------------------------------------------------------------------
<!--CodeS-->
- unit.pas --------------------------------------------------------
// html추출
procedure TForm1.htmlSrc(Sender: TObject);
begin
try
Memo1.Clear;
// 브라우져에서 html추출
HTMLStr := TStringList.create;
HTMLStr.Text := WebBrowser1.OleObject.Document.DocumentElement.OuterHTML;
for index := 0 to HTMLStr.Count-1 do
begin
// 번호 추출
gcodeStr := Pos(':goASPPage(''', HTMLStr.strings[index])+11;
HTMLDoc1 := copy(HTMLStr.strings[index], gcodeStr+1,11);
// 회차 추출
gcodeStr := Pos(''',', HTMLStr.strings[index])+2;
HTMLDoc2 := copy(HTMLStr.strings[index], gcodeStr+1,2);
if HTMLDoc1 <> '' then memo1.Lines.Add(HTMLDoc1);
if HTMLDoc2 <> '' then memo1.Lines.Add(HTMLDoc2);
HTMLDoc := HTMLDoc1 + '-' + HTMLDoc2;
memo1.Lines.Add(HTMLDoc);
end;
HTMLStr.free;
except
end;
end;
-------------------------------------------------------------------
<!--CodeE-->
위의 HTML 소스를 아래의 Pas 소스로 돌리게 되면, 이상하게도 Pos() 로 지정된 문자열기준에서 정확히 뽑아오는 부분도 있지만 비정상적인 부분까지도 뽑아오더라구요.
- 결과물 ----------------------------------------------------------
...생략
-R>
iddle heigh-D
Spacing=0 c-AB
-BO
-R>
useover="im-D>
useover="im-',
useover="im-D>
useover="im-D>
useover="im-D>
useover="im-'p
useover="im-D>
useover="im-D>
...
-------------------------------------------------------------------
델파이 생각보다 너무 어려운것 같아요 ㅠ.ㅠ
작은 조언 한말씀 부탁드려요.
4
COMMENTS
-
-
먼저 답변 감사드려요^^*;
정규표현식은 다른 언어를 쓸때 쓰긴 하는데요.
아직 시작하진 얼마안된 초보다 보니 델파이로는 정규표현식의 개념이 없어서요.ㅠ.ㅠ
다른 해결법이 없을까요?
-
델파이와 정규표현식은 무관한 언어 입니다.
제가 참조로 알려드린 사이트는 정규표현식(Perl언어에서 사용하는 엔진)컴포넌트를 가지고 사용할수 있습니다.
펄언어에 있는 정규표현식을 사용해보신 경험이 있으시다면 해당 컴포넌트로 충분히 해결이 가능하리라 생각합니다.
제가 사용해보고 가능하다면 소스와 답변을 다시 드리겠습니다.
-
전혀 생각지도 못했던 부분이 제가 알고있는 구문데로 돌아가질 않았었네요.
생각외로 단순한 부분이었는데, 아무래도 리퍼런스 없이 작업하는게 그리 쉽지는 않은 것 같아요...
답변 감사해요, 많은 도움이 되었습니다.^^*
(NOTICE) You must be logged in to comment on this post.
-
- 커피탐
- •
- 2006.12.28 02:42
- •
- 1 COMMENTS
- /
- 0 LIKES
-
정락문•2006.12.28 19:01자식 윈도우를 Modal 또는 Modeless 중 어느 것으로 띄우셨는지 알 수는 없지만, Modal로 띄우셨다면 최...
-
- 이하나
- •
- 2006.12.28 02:42
- 4 COMMENTS
- /
- 0 LIKES
-
송 시중•2006.12.28 18:181. TidHttp를 이용하는 방법 긁어올 대상 페이지를 바로 읽을때와 메인을 읽은 후 대상 페이지를 읽을때 ...
-
이하나•2006.12.28 18:47답변 감사합니다.^^* 잘 정리해주셔서 그나마 좀 덜 답답하네요. ㅎ 웹프로그램으로 처리를 시도해봤는...
-
송 시중•2006.12.28 19:58idHttp도 쿠키 저장 됩니다. Refer만 정확히 잡아줘야 하던가 그렇습니다... idHttp로 아래쪽 주소들을...
-
이하나•2006.12.28 20:22commView 과자 구해서 보고 있는데 특정하게 다른점이 없어서 고민하고 있었는데.. 한델에 접속하자마자...
-
- 박병술
- 2006.12.28 02:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 김용훈
- 2006.12.28 01:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 이하나
- •
- 2006.12.27 23:38
- 1 COMMENTS
- /
- 0 LIKES
-
송 시중•2006.12.28 01:00적어두신 작업만 하실려는거면 TidHttp가 더 적합할듯 합니다. TidHttp는 HTML이 다 넘어온 후이거나, 예...
-
- 김용훈
- •
- 2006.12.27 21:09
- 1 COMMENTS
- /
- 0 LIKES
-
정락문•2006.12.27 23:40간단하게 해 보았습니다. fsItalic 대신 fsBold를 넣으시면 가능할 것이라고 보여집니다. 미약하나마 ...
-
- 이하나
- •
- 2006.12.27 20:23
- 4 COMMENTS
- /
- 0 LIKES
-
Marek•2006.12.27 20:34안녕하세요. 다음 두가지 사례를 예로 들겠습니다. <특정문자의 행번호를 찾는 경우> 아래와 같...
-
이하나•2006.12.27 20:47(질문2). 아직 초보이고 관련문서 및 질답검색 능력이 부족하다보니 여러가지 어려운 상황이 말이 아니예요...
-
Marek•2006.12.27 20:54네.. function은 반환되는 값이 있고 procedure는 처리만 하고 끝내죠.. Event는 모두 procedure구요. 질...
-
이하나•2006.12.27 20:55감사한 마음 아시죠? ^^*;
-
- 변태토끼
- 2006.12.27 06:58
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 신철우
- 2006.12.27 01:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 권순선
- •
- 2006.12.27 00:19
- 2 COMMENTS
- /
- 0 LIKES
-
Marek•2006.12.28 18:41안녕하세요. 그 오류는 시스템트레이와 관련된 오류입니다. WinMe, 2000등에서도 나타나는 오류입니다....
-
권순선•2006.12.29 17:18좋은 답변 감사합니다!!!
-
- 김정선
- •
- 2006.12.26 19:51
- 1 COMMENTS
- /
- 0 LIKES
-
조권수•2007.04.03 19:10처음으로 답변을 달아 드리네요. 윈도우 비스타에서 델파이7을 사용 하실 수가 있습니다. 1. ...
-
- 큐브
- •
- 2006.12.26 19:14
- 1 COMMENTS
- /
- 0 LIKES
-
큐브•2006.12.27 00:40< '작업중' 메시지를 표시하기 위한 폼 > procedure TfrmMsgBox.FormClose(Sender: TObject; var ...
-
- 송지훈
- 2006.12.24 04:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 파워퍼프걸
- •
- 2006.12.23 21:01
- 2 COMMENTS
- /
- 0 LIKES
-
김성일•2006.12.27 03:13procedure TForm1.Edit1Change(Sender: TObject); var str : string; begin s...
-
파워퍼프걸•2006.12.27 22:17아... 정말 되네요 소숫점 셋째자리를 넘으면 메시지가 뜨네요.. 근데 소숫점을 안찍으면 백단위까지 써...
-
- 임미희
- 2006.12.22 23:43
- 0 COMMENTS
- /
- 0 LIKES
-
- HEIM(델파리)
- •
- 2006.12.22 22:47
- 1 COMMENTS
- /
- 0 LIKES
-
Marek•2006.12.27 18:38안녕하세요 Indy Site에 가시면 Indy9Demos가 있습니다. Demo중 IdTCPDemo에 Server용과 Client용 샘플소...
-
- 이하나
- •
- 2006.12.22 21:21
- 2 COMMENTS
- /
- 0 LIKES
-
송 시중•2006.12.22 22:23Pos는 검색 결과가 없을때 0(zero)를 리턴합니다. 지금 코드를 보니 0을 검사하는 부분이 없네...
-
이하나•2006.12.22 22:43조금 혼란스럽기도 하지만, 하면 할수록 조금씩 조금씩 알아가는 것들이 너무 감사합니다. 열심히 할게...
-
- 이하나
- •
- 2006.12.22 19:20
- 4 COMMENTS
- /
- 0 LIKES
안녕하세요, 초보하나 많은 도움에 감사를 드려요.^^* 실제 추출할 HTML 소스와 pas 소스는 아래와 같구요... - HTML 소스 ------------------------------------------------------- ... ...줄공백 ... <html> <head> <title>물품목록조...-
손희석•2006.12.22 19:40문자열 추출은 Regular Expression(정규식) 기능을 사용하시면 좋습니다. 정규식 규칙만 조금 익히면 원하...
-
이하나•2006.12.22 20:06먼저 답변 감사드려요^^*; 정규표현식은 다른 언어를 쓸때 쓰긴 하는데요. 아직 시작하진 얼마안된 초보...
-
손희석•2006.12.22 20:44델파이와 정규표현식은 무관한 언어 입니다. 제가 참조로 알려드린 사이트는 정규표현식(Perl언어에서 사...
-
이하나•2006.12.24 00:30전혀 생각지도 못했던 부분이 제가 알고있는 구문데로 돌아가질 않았었네요. 생각외로 단순한 부분이었는...
-
- 정경철
- 2006.12.22 08:04
- 0 COMMENTS
- /
- 0 LIKES
정규식 규칙만 조금 익히면 원하시는 부분의 문자열 추출은 어렵지 않습니다.
시간을 조금 투자하셔서 정규식 공부하시고 해당 소스를 추출하는 식을 만들어내서 적용하면 되겠습니다.
여기 사이트에 들어가시면 컴포넌트는 받으실수 있습니다.
http://www.regexbuddy.com/delphi.html
도움이 되실련지.. 초보님.. 어려울수도 있지만 익혀두면
나중에 이 기술이 무지 도움이 된답니다..
그럼 수고하세요.