Q&A
- 파싱 프로그램..의 질문..코드를 넣어두었습니다. 문제가...
안녕하세요? 또다시 질문을 하게 되네요 ^^
아래 코드는 구분자를 통해 텍스트 파일의 내용을 읽어들이는 파싱 함수입니다.
근데..텍스트 파일에 1|12|123|1234 라는 내용이 있으면..
pascount(str,'|');
passtring(str,'|',4); 즉 1234를 읽어오라고 명령어를 치면..
''값이 변수에 들어갑니다.
제가 생각하기에 마지막 부분 1234를 읽어오지 못하는 거 같습니다.
고수님들께서 조금만 도와주세요 ...
function Tform2.PasCount(const s, delimiters : string) : integer;
var
delimiter : Boolean;
count,i :integer;
begin
count := 0;
delimiter := true;
if Length(s) >0 then
begin
i := 1;
while (Pos(s[i], delimiters)<> 0) and (i <= Length(s)) do
inc(i);
for i := i to length(s) do
if Pos(s[i], delimiters)<>0 then
delimiter := true
else
begin
if delimiter = true then inc(count);
delimiter := false;
end;
end;
PasCount := count ;
end;
//구분자를 통해 데이터값을 추출
function TForm2.PasString(const s, delimiters : string;num:integer):string;
var
i,j,sLength,sStart,sEnd:integer;
begin
if pasCount(s,delimiters)>num then
begin
sStart := 1;
while (Pos(s[sStart],delimiters)<> 0 ) and (sStart <= Length(s)) do inc(sStart);
for j := 1 to num -1 do
begin
while Pos(s[sStart],delimiters)=0 do inc(sStart);
while Pos(s[sStart],delimiters)<>0 do inc(sStart);
end;
sEnd := sStart;
for i := sStart to Length(s) do
begin
if s[i] = delimiters then break;
if s[i] <> delimiters then inc(sEnd);
end;
sLength := sEnd - sStart;
PasString := Trim(copy(s,sStart,sLength));
end;
else
PasString := '';
end;
아래 코드는 구분자를 통해 텍스트 파일의 내용을 읽어들이는 파싱 함수입니다.
근데..텍스트 파일에 1|12|123|1234 라는 내용이 있으면..
pascount(str,'|');
passtring(str,'|',4); 즉 1234를 읽어오라고 명령어를 치면..
''값이 변수에 들어갑니다.
제가 생각하기에 마지막 부분 1234를 읽어오지 못하는 거 같습니다.
고수님들께서 조금만 도와주세요 ...
function Tform2.PasCount(const s, delimiters : string) : integer;
var
delimiter : Boolean;
count,i :integer;
begin
count := 0;
delimiter := true;
if Length(s) >0 then
begin
i := 1;
while (Pos(s[i], delimiters)<> 0) and (i <= Length(s)) do
inc(i);
for i := i to length(s) do
if Pos(s[i], delimiters)<>0 then
delimiter := true
else
begin
if delimiter = true then inc(count);
delimiter := false;
end;
end;
PasCount := count ;
end;
//구분자를 통해 데이터값을 추출
function TForm2.PasString(const s, delimiters : string;num:integer):string;
var
i,j,sLength,sStart,sEnd:integer;
begin
if pasCount(s,delimiters)>num then
begin
sStart := 1;
while (Pos(s[sStart],delimiters)<> 0 ) and (sStart <= Length(s)) do inc(sStart);
for j := 1 to num -1 do
begin
while Pos(s[sStart],delimiters)=0 do inc(sStart);
while Pos(s[sStart],delimiters)<>0 do inc(sStart);
end;
sEnd := sStart;
for i := sStart to Length(s) do
begin
if s[i] = delimiters then break;
if s[i] <> delimiters then inc(sEnd);
end;
sLength := sEnd - sStart;
PasString := Trim(copy(s,sStart,sLength));
end;
else
PasString := '';
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김종근
- 2000.02.22 20:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 송미정
- •
- 2000.02.22 20:03
- 1 COMMENTS
- /
- 0 LIKES
-
김진호•2000.02.22 22:17송미정 wrote: > 하나의 폼에서 다른 폼을 열어서 이전 폼의 데이타를 읽어들이려고 합니다. > 여러개의 ...
-
- 김진호
- 2000.02.22 19:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영애
- •
- 2000.02.22 19:56
- 5 COMMENTS
- /
- 0 LIKES
-
이상호•2000.03.03 10:12앞의 분들이 좋은 설명을 하셨는데 저는 플래그를 사용해서 프로그램을 하시는 것은 어떨까 추천합니다. ...
-
cws•2000.02.23 00:10김영애 wrote: > > > > 이런식으로 while문을 쓰려고 테스트를 해봤는데... 이게 한번 while문을 돌...
-
kingdol•2000.02.22 21:58김영애 wrote: > while not DataForm.ExecQuery.Eof do begin > if (DataForm.ExecQuery.FieldValu...
-
김영애•2000.02.22 23:28kingdol wrote: > 김영애 wrote: > > while not DataForm.ExecQuery.Eof do begin > > if (DataFo...
-
조복기•2000.02.23 02:00김영애 wrote: > kingdol wrote: > > 김영애 wrote: > > > while not DataForm.ExecQuery.Eof do begin ...
-
- 이세영
- 2000.02.22 19:43
- 0 COMMENTS
- /
- 0 LIKES
-
-
구창민•2000.02.22 23:04로비 wrote: > 윈도우에서.. > FTP 로 파일을 다운한뒤 (워드화일.doc) > 바로 실행시키는 방법이 없...
-
로비•2000.02.23 19:28구창민 wrote: > 로비 wrote: > > 윈도우에서.. > > FTP 로 파일을 다운한뒤 (워드화일.doc) > > 바...
-
-
- 성병규
- •
- 2000.02.22 19:00
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.02.22 22:19리소스파일을 사용하거나 TImageList콤포넌트를 사용하시면 됩니다... 성병규 wrote: > 애니매이션 효...
-
- 오정섭
- •
- 2000.02.22 18:45
- 1 COMMENTS
- /
- 0 LIKES
-
배종현•2000.03.02 22:39오정섭 wrote: > 시스템 서 버 클라이언트 > (통신장비) ...
-
- 열혈처리
- 2000.02.22 18:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 소서러
- •
- 2000.02.22 11:52
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•2000.02.24 01:59소서러 wrote: > 파라독스DB의 Graphic형 데이타의 읽기와 쓰기에 대해서 설명좀 해주세여. > 너무 간단...
-
- 이상학
- •
- 2000.02.22 11:44
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요? 또다시 질문을 하게 되네요 ^^ 아래 코드는 구분자를 통해 텍스트 파일의 내용을 읽어들이는 파싱 함수입니다. 근데..텍스트 파일에 1|12|123|1234 라는 내용이 있으면.. pascount(str,'|'); passtring(str,'|',4); 즉 1234를...-
최용일•2000.02.22 20:47아래와 같이 코딩해보세요... 아주 잘 될것입니다... const Delemeter = '|'; function GetParser...
-
- 최영호
- 2000.02.22 10:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- 2000.02.22 09:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2000.02.22 06:53
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.02.22 19:51CompareStr과 CompareText두 개의 함수가 있습니다.. 앞의 것은 대소문자 비교를 하고 뒤의 것은 비교를 ...
-
김종호•2000.02.22 08:45아주 간단합니다. 그냥 생각 나는데로.. A, B가 변수라면.. if A = B then ShowMessage('같은데...
-
- delMan
- •
- 2000.02.22 05:18
- 1 COMMENTS
- /
- 0 LIKES
-
정주영•2000.02.22 18:33delMan wrote: > Midas를 공부하고 있는데 궁금한게 있어서 고민끝에 올립니다. > Midas 컴포넌트를 Tcp/...
-
- delMan
- •
- 2000.02.22 05:17
- 1 COMMENTS
- /
- 0 LIKES
-
장용준•2000.02.22 05:28안녕하세요....~~ 음냐... www.iti.co.kr 에 Midas 강좌가 있으니 함 쭉 보시면 이해가 가실겁네당......
-
- delMan
- 2000.02.22 05:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 이수환
- •
- 2000.02.22 04:44
- 1 COMMENTS
- /
- 0 LIKES
-
이수환•2000.02.22 04:48이수환 wrote: > 안녕 하세요 ? > > 아웃룩 익스프레스에서 사용하는 주소록의 데이타(*.web) 화일을 ...
-
- 윤석태
- 2000.02.22 04:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 민석이
- •
- 2000.02.22 03:47
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.02.22 04:27민석이 wrote: > 델파이를 이용하여 델파이 edit 창 form을 만들려고 합니다. > 도와주십시요 델파이 ...
const
Delemeter = '|';
function GetParserCount(const Source: string): Integer;
var
I: Integer;
PS: string;
begin
PS := Source;
if PS[Length(Source)] <> Delemeter then
PS := PS + Delemeter;
Result := 0;
for I := 1 to Length(PS) do
if PS[I] = Delemeter then
Inc(Result);
end;
function GetParserStr(const Source: string; Index: Integer): string;
// Index는 1부터 시작한다.
var
StartPos, EndPos, CurIndex, StrPos: Integer;
PS: string;
begin
PS := Source;
if PS[Length(PS)] <> Delemeter then
PS := PS + Delemeter;
StrPos := 1;
CurIndex := 1;
// 시작위치를 구한다.
while CurIndex <> Index do
begin
if PS[StrPos] = Delemeter then
Inc(CurIndex);
Inc(StrPos);
end;
StartPos := StrPos;
//끝위 치를 구한다.
while PS[StrPos] <> Delemeter do
Inc(StrPos);
EndPos := StrPos;
Result := Copy(PS, StartPos, EndPos - StartPos);
end;
이상학 wrote:
> 안녕하세요? 또다시 질문을 하게 되네요 ^^
> 아래 코드는 구분자를 통해 텍스트 파일의 내용을 읽어들이는 파싱 함수입니다.
> 근데..텍스트 파일에 1|12|123|1234 라는 내용이 있으면..
>
> pascount(str,'|');
> passtring(str,'|',4); 즉 1234를 읽어오라고 명령어를 치면..
> ''값이 변수에 들어갑니다.
>
> 제가 생각하기에 마지막 부분 1234를 읽어오지 못하는 거 같습니다.
> 고수님들께서 조금만 도와주세요 ...
>
>
> function Tform2.PasCount(const s, delimiters : string) : integer;
> var
> delimiter : Boolean;
> count,i :integer;
> begin
> count := 0;
> delimiter := true;
> if Length(s) >0 then
> begin
> i := 1;
> while (Pos(s[i], delimiters)<> 0) and (i <= Length(s)) do
> inc(i);
> for i := i to length(s) do
> if Pos(s[i], delimiters)<>0 then
> delimiter := true
> else
> begin
> if delimiter = true then inc(count);
> delimiter := false;
> end;
> end;
> PasCount := count ;
> end;
>
>
> //구분자를 통해 데이터값을 추출
> function TForm2.PasString(const s, delimiters : string;num:integer):string;
> var
> i,j,sLength,sStart,sEnd:integer;
>
> begin
> if pasCount(s,delimiters)>num then
> begin
> sStart := 1;
> while (Pos(s[sStart],delimiters)<> 0 ) and (sStart <= Length(s)) do inc(sStart);
> for j := 1 to num -1 do
> begin
> while Pos(s[sStart],delimiters)=0 do inc(sStart);
> while Pos(s[sStart],delimiters)<>0 do inc(sStart);
> end;
> sEnd := sStart;
> for i := sStart to Length(s) do
> begin
> if s[i] = delimiters then break;
> if s[i] <> delimiters then inc(sEnd);
> end;
> sLength := sEnd - sStart;
> PasString := Trim(copy(s,sStart,sLength));
> end;
> else
> PasString := '';
> end;
>