Q&A
- html에서 태그를 뺀 문자열을 구하려는데 잘안됩니다
html에서 태그를 뺀 데이타를 구하려고 다음 함수를 만들었는데
디버깅을 해보면 잘 나가다가 정작 필요한 문자열을
구하려는 순간 에러가 나타납니다
아래 s1[no]:=s[cnt];부분에서 걸립니다
무엇이 잘못된것일까요?
'<'와 '>'사이에 있는것만 빼고 복사를 하려는것입니다
문자배열말고 포인터를 쓰는 방법도 있을텐데
html에서 태그를 뺀 문자열을 구하는 방법을 아시면 가르쳐주시기 바랍니다
Function RecontSeek(s:string):string;
var
s1:string;
len,cnt,no:integer;
delchk :Boolean;
begin
len:=Length(s);
cnt:=0;
no:=0;
s1:='';
while cnt
if s[cnt]='<' then delchk:=true;
if (delchk=true) and (s[cnt]='>') then delchk:=false;
inc(cnt);
if delchk=false then begin
s1[no]:=s[cnt]; //여기서 에러가 걸립니다
inc(no);
end;
end;
result:= s1;
end;
디버깅을 해보면 잘 나가다가 정작 필요한 문자열을
구하려는 순간 에러가 나타납니다
아래 s1[no]:=s[cnt];부분에서 걸립니다
무엇이 잘못된것일까요?
'<'와 '>'사이에 있는것만 빼고 복사를 하려는것입니다
문자배열말고 포인터를 쓰는 방법도 있을텐데
html에서 태그를 뺀 문자열을 구하는 방법을 아시면 가르쳐주시기 바랍니다
Function RecontSeek(s:string):string;
var
s1:string;
len,cnt,no:integer;
delchk :Boolean;
begin
len:=Length(s);
cnt:=0;
no:=0;
s1:='';
while cnt
if s[cnt]='<' then delchk:=true;
if (delchk=true) and (s[cnt]='>') then delchk:=false;
inc(cnt);
if delchk=false then begin
s1[no]:=s[cnt]; //여기서 에러가 걸립니다
inc(no);
end;
end;
result:= s1;
end;
2
COMMENTS
-
-
답변 감사합니다
그런데 일러주신대로 cnt=1,no=1로 초기화해도 마찬가지입니다
어떻게하지요?
컴맹... wrote:
> 안녕하세여..
> 컴맹입니다...
>
> 소스를 보니까..
> String 변수를 0번째 인덱스부터 비교 하셨군여...
> String변수의 0번째 인덱스에는 특별한갑이 들어 있습니다..
> 그리구 접근할수 없구여...
> 따라서..
>
> cnt,No를 초기화 시켜줄때.. 0이 아니라.. 1로 하시면
> 될것 같은데여..
>
> 그럼 이만...
>
> peritus wrote:
> > html에서 태그를 뺀 데이타를 구하려고 다음 함수를 만들었는데
> > 디버깅을 해보면 잘 나가다가 정작 필요한 문자열을
> > 구하려는 순간 에러가 나타납니다
> > 아래 s1[no]:=s[cnt];부분에서 걸립니다
> > 무엇이 잘못된것일까요?
> > '<'와 '>'사이에 있는것만 빼고 복사를 하려는것입니다
> > 문자배열말고 포인터를 쓰는 방법도 있을텐데
> > html에서 태그를 뺀 문자열을 구하는 방법을 아시면 가르쳐주시기 바랍니다
> >
> > Function RecontSeek(s:string):string;
> > var
> > s1:string;
> > len,cnt,no:integer;
> > delchk :Boolean;
> > begin
> > len:=Length(s);
> > cnt:=0;
> > no:=0;
> > s1:='';
> > while cnt
> > if s[cnt]='<' then delchk:=true;
> > if (delchk=true) and (s[cnt]='>') then delchk:=false;
> > inc(cnt);
> > if delchk=false then begin
> > s1[no]:=s[cnt]; //여기서 에러가 걸립니다
> > inc(no);
> > end;
> > end;
> > result:= s1;
> > end;
> >
(NOTICE) You must be logged in to comment on this post.
-
- 손민기
- •
- 2001.02.21 20:35
- 1 COMMENTS
- /
- 0 LIKES
-
김지엽•2001.02.21 22:34DataSource나 TTable은 TCP/IP 커넥션을 지원하지 않습니다. 그리고 TCP/IP커넥션 시에는, 데이터를 제공하...
-
- 호야
- •
- 2001.02.21 20:18
- 2 COMMENTS
- /
- 0 LIKES
-
승추니•2001.02.21 21:08호야 wrote: > 폼위에 판넬로 라우트를 표시하고 선으로 네트워크를 표시하여 > 컴퓨터의 네트워크연결상...
-
김지엽•2001.02.21 21:14Windows플랫폼 자체가 감당할 수 있는 모든 범위내의 프로그래밍은 델파이로 구현이 가능하다고 알고 있습...
-
-
정계훈•2001.02.21 22:26이런 질문은 처음인데요... try Form2 := TForm2.Create(Self); Form2.ShowModal; final...
-
이광형•2001.02.21 22:20델파초짜.. wrote: > 델파이에선 버튼 클릭시 다른폼 LOAD를 어떻게 하나요..?? Auto Create Form 으로...
-
-
- chunhj7
- •
- 2001.02.21 22:30
- 3 COMMENTS
- /
- 0 LIKES
-
김지엽•2001.02.21 22:14procedure TForm1.Button1Click(Sender: TObject); var i : word; begin i := 86; Form1.FormKeyDown...
-
chunhj7•2001.02.21 22:31답변 감사드립니다 그런데 내용을 보니 델파이로 만든 프로그램 내에서 효과를 내게하는 것같은데 제가 ...
-
김지엽•2001.02.21 22:25제가 답변을 조금 수정하는 동안에 뤼를 달아 놓으셨군요.. 한데, 이렇게 되니 애초에 질문하신 내용이 ...
-
- 열라초보
- 2001.02.21 20:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 김태일
- 2001.02.21 20:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 델왕초보
- 2001.02.21 19:56
- 0 COMMENTS
- /
- 0 LIKES
-
- passio
- •
- 2001.02.21 19:51
- 1 COMMENTS
- /
- 0 LIKES
-
이광형•2001.02.21 22:26passio wrote: > 고객명을 search를 해서 찾을려고 하는데요 > 정확한 이름뿐만이 아니라 비슷한 이름도 ...
-
- passio
- •
- 2001.02.21 19:47
- 1 COMMENTS
- /
- 0 LIKES
-
이광형•2001.02.21 22:28passio wrote: > 폼이 열릴때 DB에서 고객명을 읽어와 콤보박스에서 열리게 > 하고 있는데요 자꾸 콤보박...
-
- 권태균
- 2001.02.21 19:39
- 0 COMMENTS
- /
- 0 LIKES
-
- sonwow
- •
- 2001.02.21 19:34
- 1 COMMENTS
- /
- 0 LIKES
-
권민호•2001.02.21 19:47sonwow wrote: > MS-SQL7.0 을 win98에 설치하였고, > client(win98)에서 접속하는 방법좀 알려주세요. ...
-
- 누리
- •
- 2001.02.21 19:12
- 1 COMMENTS
- /
- 0 LIKES
-
미남과암야수•2001.02.21 22:10테이블 컴퍼넌트를 더블클릭하면 화면이 하나 뜹니다... 하얀 화면에 마우스를 옮기시고 마우스 오른쪽 ...
-
- Cacophony
- •
- 2001.02.21 18:58
- 2 COMMENTS
- /
- 0 LIKES
-
전석규•2001.02.21 20:49Cacophony wrote: > 델파이 교육센터를 찾습니다 > 5-6 개월 정도의 코스... > 추천부탁드립니다. ...
-
passio•2001.02.21 20:11제가 알기로는 우리나라에 델파이를 5,6개월 가르쳐 주는데는 없다고 알고 있습니다. 델파이 교육을 받으...
-
- 아이리스
- •
- 2001.02.21 18:55
- 3 COMMENTS
- /
- 0 LIKES
-
하눌•2001.02.21 19:23아이리스 wrote: > 날짜찾아가기 부분입니다...Query에서 걸리는군요... > > 도와주세요.... > > M...
-
아이리스•2001.02.21 20:56parambyname('pDate').AsInteger = strtoint(MYmon); 여기서 걸리네요... ':=' expected but '=' found...
-
아폴론•2001.02.21 23:15아이리스 wrote: > parambyname('pDate').AsInteger = strtoint(MYmon); > 여기서 걸리네요... > > ':...
-
- Larson
- 2001.02.21 18:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파초짜..
- 2001.02.21 18:30
- 0 COMMENTS
- /
- 0 LIKES
-
- peritus
- •
- 2001.02.21 17:53
- 2 COMMENTS
- /
- 0 LIKES
html에서 태그를 뺀 데이타를 구하려고 다음 함수를 만들었는데 디버깅을 해보면 잘 나가다가 정작 필요한 문자열을 구하려는 순간 에러가 나타납니다 아래 s1[no]:=s[cnt];부분에서 걸립니다 무엇이 잘못된것일까요? ''사이에 있는것만 ...-
컴맹...•2001.02.21 18:27안녕하세여.. 컴맹입니다... 소스를 보니까.. String 변수를 0번째 인덱스부터 비교 하셨군여... St...
-
peritus•2001.02.21 20:01답변 감사합니다 그런데 일러주신대로 cnt=1,no=1로 초기화해도 마찬가지입니다 어떻게하지요? 컴맹.....
-
- 핼프맨
- •
- 2001.02.21 17:47
- 1 COMMENTS
- /
- 0 LIKES
-
미남과암야수•2001.02.21 20:50폼 프로퍼티에 보심... BorderStyle을 bsNone으로 한번해보세여.... 건강하시구요, 행복하세요... ...
-
- 김석수
- 2001.02.21 15:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 나그네
- 2001.02.21 13:19
- 0 COMMENTS
- /
- 0 LIKES
컴맹입니다...
소스를 보니까..
String 변수를 0번째 인덱스부터 비교 하셨군여...
String변수의 0번째 인덱스에는 특별한갑이 들어 있습니다..
그리구 접근할수 없구여...
따라서..
cnt,No를 초기화 시켜줄때.. 0이 아니라.. 1로 하시면
될것 같은데여..
그럼 이만...
peritus wrote:
> html에서 태그를 뺀 데이타를 구하려고 다음 함수를 만들었는데
> 디버깅을 해보면 잘 나가다가 정작 필요한 문자열을
> 구하려는 순간 에러가 나타납니다
> 아래 s1[no]:=s[cnt];부분에서 걸립니다
> 무엇이 잘못된것일까요?
> '<'와 '>'사이에 있는것만 빼고 복사를 하려는것입니다
> 문자배열말고 포인터를 쓰는 방법도 있을텐데
> html에서 태그를 뺀 문자열을 구하는 방법을 아시면 가르쳐주시기 바랍니다
>
> Function RecontSeek(s:string):string;
> var
> s1:string;
> len,cnt,no:integer;
> delchk :Boolean;
> begin
> len:=Length(s);
> cnt:=0;
> no:=0;
> s1:='';
> while cnt
> if s[cnt]='<' then delchk:=true;
> if (delchk=true) and (s[cnt]='>') then delchk:=false;
> inc(cnt);
> if delchk=false then begin
> s1[no]:=s[cnt]; //여기서 에러가 걸립니다
> inc(no);
> end;
> end;
> result:= s1;
> end;
>