Q&A
AAA BBB CCC DDD...
로 되어있는 텍스트 파일을 읽어와서
테이블에 갯수만큼 레코드를 추가하려고 하는데 어떻게 하나요...???
tbl[0] := AAA
tbl[1] := BBB
알려줘이~!!!요....
- 아주 쉬운 질문...텍스트 읽기!!!
AAA BBB CCC DDD...
로 되어있는 텍스트 파일을 읽어와서
테이블에 갯수만큼 레코드를 추가하려고 하는데 어떻게 하나요...???
tbl[0] := AAA
tbl[1] := BBB
알려줘이~!!!요....
5
COMMENTS
-
-
스플릿트 함수를 간단하게 구현 하세여......
질문에 의해 얘기를 해보자면
구분문자가 공백(1 character)라고 할때
구분문자의 갯수를 우선 찾아 내시는데여...
찾아내는 방법은 문자열길이만큼 루프를 돌면서
copy함수로 한문자씩 공백문자와 비교 하는 거져...
그래서 카운트를 한 다음 카운트된 만큼
for i := 0 to total - 1 do begin
tbl[i] := StrSplit(문자열, i, ' ');
end;
이런식으로 하면 되져....
당연히 StrSplit라는 함수는 본인이 만들어 주셔야 겠져..
function TForm.StrSplit(Str:string;const Position:integer;const Spliter:string=' '):string;
var
Strlen, CharIndex, SpIndex, TargetPos:integer;
begin
Result:='';
Str:=Str+Spliter;
StrLen:=Length(Str);
CharIndex:=1;
SpIndex:=1;
while CharIndex<=StrLen do begin
TargetPos:=Pos(Spliter,Str);
if TargetPos<>0 then begin
if SpIndex=Position then begin
result:=Copy(Str,1,TargetPos-1);
break;
end;
delete(Str,1,TargetPos);
inc(SpIndex);
end;
inc(CharIndex);
end;
end;
힛...걍 만들어 줬네여...^^
함수 잘 사용 하세여...유용하게 많이 쓰일수 있으니까여...
답답이 wrote:
>
> AAA BBB CCC DDD...
>
> 로 되어있는 텍스트 파일을 읽어와서
> 테이블에 갯수만큼 레코드를 추가하려고 하는데 어떻게 하나요...???
> tbl[0] := AAA
> tbl[1] := BBB
>
> 알려줘이~!!!요....
-
스플릿트 함수를 간단하게 구현 하세여......
질문에 의해 얘기를 해보자면
구분문자가 공백(1 character)라고 할때
구분문자의 갯수를 우선 찾아 내시는데여...
찾아내는 방법은 문자열길이만큼 루프를 돌면서
copy함수로 한문자씩 공백문자와 비교 하는 거져...
그래서 카운트를 한 다음 카운트된 만큼
for i := 0 to total - 1 do begin
tbl[i] := StrSplit(문자열, i, ' ');
end;
이런식으로 하면 되져....
당연히 StrSplit라는 함수는 본인이 만들어 주셔야 겠져..
function TForm.StrSplit(Str:string;const Position:integer;const Spliter:string=' '):string;
var
Strlen, CharIndex, SpIndex, TargetPos:integer;
begin
Result:='';
Str:=Str+Spliter;
StrLen:=Length(Str);
CharIndex:=1;
SpIndex:=1;
while CharIndex<=StrLen do begin
TargetPos:=Pos(Spliter,Str);
if TargetPos<>0 then begin
if SpIndex=Position then begin
result:=Copy(Str,1,TargetPos-1);
break;
end;
delete(Str,1,TargetPos);
inc(SpIndex);
end;
inc(CharIndex);
end;
end;
힛...걍 만들어 줬네여...^^
함수 잘 사용 하세여...유용하게 많이 쓰일수 있으니까여...
답답이 wrote:
>
> AAA BBB CCC DDD...
>
> 로 되어있는 텍스트 파일을 읽어와서
> 테이블에 갯수만큼 레코드를 추가하려고 하는데 어떻게 하나요...???
> tbl[0] := AAA
> tbl[1] := BBB
>
> 알려줘이~!!!요....
-
스플릿트 함수를 간단하게 구현 하세여......
질문에 의해 얘기를 해보자면
구분문자가 공백(1 character)라고 할때
구분문자의 갯수를 우선 찾아 내시는데여...
찾아내는 방법은 문자열길이만큼 루프를 돌면서
copy함수로 한문자씩 공백문자와 비교 하는 거져...
그래서 카운트를 한 다음 카운트된 만큼
for i := 0 to total - 1 do begin
tbl[i] := StrSplit(문자열, i, ' ');
end;
이런식으로 하면 되져....
당연히 StrSplit라는 함수는 본인이 만들어 주셔야 겠져..
function TForm.StrSplit(Str:string;const Position:integer;const Spliter:string=' '):string;
var
Strlen, CharIndex, SpIndex, TargetPos:integer;
begin
Result:='';
Str:=Str+Spliter;
StrLen:=Length(Str);
CharIndex:=1;
SpIndex:=1;
while CharIndex<=StrLen do begin
TargetPos:=Pos(Spliter,Str);
if TargetPos<>0 then begin
if SpIndex=Position then begin
result:=Copy(Str,1,TargetPos-1);
break;
end;
delete(Str,1,TargetPos);
inc(SpIndex);
end;
inc(CharIndex);
end;
end;
힛...걍 만들어 줬네여...^^
함수 잘 사용 하세여...유용하게 많이 쓰일수 있으니까여...
답답이 wrote:
>
> AAA BBB CCC DDD...
>
> 로 되어있는 텍스트 파일을 읽어와서
> 테이블에 갯수만큼 레코드를 추가하려고 하는데 어떻게 하나요...???
> tbl[0] := AAA
> tbl[1] := BBB
>
> 알려줘이~!!!요....
-
스플릿트 함수를 간단하게 구현 하세여......
질문에 의해 얘기를 해보자면
구분문자가 공백(1 character)라고 할때
구분문자의 갯수를 우선 찾아 내시는데여...
찾아내는 방법은 문자열길이만큼 루프를 돌면서
copy함수로 한문자씩 공백문자와 비교 하는 거져...
그래서 카운트를 한 다음 카운트된 만큼
for i := 0 to total - 1 do begin
tbl[i] := StrSplit(문자열, i, ' ');
end;
이런식으로 하면 되져....
당연히 StrSplit라는 함수는 본인이 만들어 주셔야 겠져..
function TForm.StrSplit(Str:string;const Position:integer;const Spliter:string=' '):string;
var
Strlen, CharIndex, SpIndex, TargetPos:integer;
begin
Result:='';
Str:=Str+Spliter;
StrLen:=Length(Str);
CharIndex:=1;
SpIndex:=1;
while CharIndex<=StrLen do begin
TargetPos:=Pos(Spliter,Str);
if TargetPos<>0 then begin
if SpIndex=Position then begin
result:=Copy(Str,1,TargetPos-1);
break;
end;
delete(Str,1,TargetPos);
inc(SpIndex);
end;
inc(CharIndex);
end;
end;
힛...걍 만들어 줬네여...^^
함수 잘 사용 하세여...유용하게 많이 쓰일수 있으니까여...
답답이 wrote:
>
> AAA BBB CCC DDD...
>
> 로 되어있는 텍스트 파일을 읽어와서
> 테이블에 갯수만큼 레코드를 추가하려고 하는데 어떻게 하나요...???
> tbl[0] := AAA
> tbl[1] := BBB
>
> 알려줘이~!!!요....
(NOTICE) You must be logged in to comment on this post.
-
- 한델우기
- 2001.06.06 03:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 김대규
- •
- 2001.06.06 03:27
- 3 COMMENTS
- /
- 0 LIKES
-
박종환•2001.06.07 07:05Event를 공통으로 사용한 후 다음과 같은 방법으로도 내부에서 구분하여 사용할 수 있습니다. Tag 를 사용...
-
Dorothy•2001.06.06 05:34무슨 말씀이신지 잘 모르겠지만.. 세게의 panel에 비슷한 코딩을 집어넣어야 한다는 소린가여? 각 pa...
-
김대규•2001.06.06 06:19답변 감사합니다 이벤트를 하나로보내면 되는군요... 그리구 테그를사용하는건 첨보는데.. 좋은 참고되었...
-
- 답답이
- •
- 2001.06.06 03:26
- 5 COMMENTS
- /
- 0 LIKES
AAA BBB CCC DDD... 로 되어있는 텍스트 파일을 읽어와서 테이블에 갯수만큼 레코드를 추가하려고 하는데 어떻게 하나요...??? tbl[0] := AAA tbl[1] := BBB 알려줘이~!!!요....-
바다를향해•2001.06.15 20:44스플릿트 함수를 간단하게 구현 하세여...... 질문에 의해 얘기를 해보자면 구분문자가 공백(1 character...
-
바다를향해•2001.06.15 20:44스플릿트 함수를 간단하게 구현 하세여...... 질문에 의해 얘기를 해보자면 구분문자가 공백(1 character...
-
바다를향해•2001.06.15 20:44스플릿트 함수를 간단하게 구현 하세여...... 질문에 의해 얘기를 해보자면 구분문자가 공백(1 character...
-
바다를향해•2001.06.15 20:43스플릿트 함수를 간단하게 구현 하세여...... 질문에 의해 얘기를 해보자면 구분문자가 공백(1 character...
-
바다를향해•2001.06.15 20:43스플릿트 함수를 간단하게 구현 하세여...... 질문에 의해 얘기를 해보자면 구분문자가 공백(1 character...
-
- 백승환
- 2001.06.06 03:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 방랑자
- 2001.06.06 03:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 문인호
- •
- 2001.06.06 02:50
- 1 COMMENTS
- /
- 0 LIKES
-
Dorothy•2001.06.06 05:41델파이에서 커서를 사용할수 있는지는 잘 모르겠지만.. 왜 구지 커서를 사용하려 하시는지여? 그냥 쿼리...
-
- 델파이초보
- •
- 2001.06.06 02:01
- 1 COMMENTS
- /
- 0 LIKES
-
Dorothy•2001.06.06 05:43그냥 Preview폼에서 열어줌 되지 않나여? 델파이초보 wrote: > QuickReport에서 (*.QRP) 형식으로 저장...
-
- 초보
- •
- 2001.06.06 01:52
- 2 COMMENTS
- /
- 0 LIKES
-
박종환•2001.06.07 07:20File -> New -> Unit 선택하면 Form 이 없는 ???.pas 가 생성됩니다. 이를 File -> Save As 해서 원하는 ...
-
Dorothy•2001.06.06 05:45폼없이 .pas만 가지는 unit을 만드심 됩니다.. 근데 특정기능이라니.....무슨 말씀이신지... 여러가지 함...
-
- 초보델피언
- •
- 2001.06.06 01:23
- 2 COMMENTS
- /
- 0 LIKES
-
허접....^^•2001.06.06 05:10흠 간단하게엽.. 메모장에 HTML로 문서를 작성하시길...ㅋㅋㅋ 전 이방법으로 해결 했죠 ^^ 쿼리한 내용...
-
초보델피언•2001.06.06 05:22감사합니다. 그런데.. 이미지를 그렇게 해서 만든 html에 이미지를 넣어서 통신으로 보내면 이미지는 안가...
-
- 질문
- 2001.06.06 00:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 시빌더
- 2001.06.06 00:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 김대환
- •
- 2001.06.06 00:31
- 1 COMMENTS
- /
- 0 LIKES
-
김경환•2001.12.21 10:43김대환 wrote: > 윈98에서는 ExitWindowsEx(EWX_SHUTDOWN, 0); 라고하면 시스템이 종료되는데 > > 2000...
-
- 궁금이
- 2001.06.06 00:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 초봉이
- 2001.06.05 23:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 강영미
- •
- 2001.06.05 23:33
- 6 COMMENTS
- /
- 0 LIKES
-
하기•2001.06.06 01:11한가지 Table을 쓰신다면.. Paradox에서 쓸수 있는 방법을 하나 말쓸드릴까요?? ^^; 우선 Mast Table을 Q...
-
어떤이•2001.06.06 00:41Table 콤포 보다는 Query콤포를 사용하여 해결 하세요.... with Query1 do begin Sql.Clear; Sql....
-
강영미•2001.06.06 01:08어떤이 wrote: > Table 콤포 보다는 Query콤포를 사용하여 해결 하세요.... > > with Query1 do begin ...
-
어떤이•2001.06.06 02:08Query1의 Sql문을 다음과 같이 작성하시고 나서... Select 고객이름, trim(시도명)||" "||trim(시군구...
-
Lee•2001.06.06 01:43이렇게 하면 불러올 수 있지 않나요... 다른분 답변에 코멘트 달아서 죄송.. with Query1 do begin ...
-
하기•2001.06.06 01:40with Query1 do begin Sql.Clear; Sql.Add('Select Post1,Post2,Name,Addr1,Addr2,Addr3,Po...
-
- 박성호
- •
- 2001.06.05 22:22
- 3 COMMENTS
- /
- 0 LIKES
-
변인호•2001.06.06 03:13제가 리포트를 부를때 사용하는 프로시저의 일부입니다.. QFrmReport := TQFrmReport.Creat...
-
어떤이•2001.06.06 02:22뭔가를 Create 한다음엔 자원을 되돌려 줘야 하지 않을 까요? Application.CreateForm( TQT7878, QT787...
-
박성호•2001.06.07 19:05어떤이님 그리고 도움을 주셨던 여러분들께 정말 감사드립니다. Preview를 폼에도 올려놓고 실행할때는 생...
-
- 심인
- 2001.06.05 22:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 우리들
- •
- 2001.06.05 21:51
- 1 COMMENTS
- /
- 0 LIKES
-
김태진•2008.04.26 23:00아래 소스는 2번째 컬럼만 한글로 자동전환되어 입력되게 하는 예제입니다. 도움되시길 바랍니다. pro...
-
- 조복문
- 2001.06.05 21:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 무등
- 2001.06.05 21:13
- 0 COMMENTS
- /
- 0 LIKES
질문에 의해 얘기를 해보자면
구분문자가 공백(1 character)라고 할때
구분문자의 갯수를 우선 찾아 내시는데여...
찾아내는 방법은 문자열길이만큼 루프를 돌면서
copy함수로 한문자씩 공백문자와 비교 하는 거져...
그래서 카운트를 한 다음 카운트된 만큼
for i := 0 to total - 1 do begin
tbl[i] := StrSplit(문자열, i, ' ');
end;
이런식으로 하면 되져....
당연히 StrSplit라는 함수는 본인이 만들어 주셔야 겠져..
function TForm.StrSplit(Str:string;const Position:integer;const Spliter:string=' '):string;
var
Strlen, CharIndex, SpIndex, TargetPos:integer;
begin
Result:='';
Str:=Str+Spliter;
StrLen:=Length(Str);
CharIndex:=1;
SpIndex:=1;
while CharIndex<=StrLen do begin
TargetPos:=Pos(Spliter,Str);
if TargetPos<>0 then begin
if SpIndex=Position then begin
result:=Copy(Str,1,TargetPos-1);
break;
end;
delete(Str,1,TargetPos);
inc(SpIndex);
end;
inc(CharIndex);
end;
end;
힛...걍 만들어 줬네여...^^
함수 잘 사용 하세여...유용하게 많이 쓰일수 있으니까여...
답답이 wrote:
>
> AAA BBB CCC DDD...
>
> 로 되어있는 텍스트 파일을 읽어와서
> 테이블에 갯수만큼 레코드를 추가하려고 하는데 어떻게 하나요...???
> tbl[0] := AAA
> tbl[1] := BBB
>
> 알려줘이~!!!요....