안녕하세요. 최용일입니다.



CSV형식의 문자열에서 각각의 필드 스트링을 얻는 함수입니다. 저도 CSV문자열을



많이 쓰는 편이라 예전에 만들어두었던 것인데 유용하게 쓰세요...



^^



EX)

var

S: string;

begin

GetCsvField('csv,$E1F035A0,12345,csv file desc', 2, S);

// S 에 '12345'가 대입됩니다.

end;



// CSV(Comma Seperate Value) 문자열의 필드의 총갯수를 구한다.

function GetCsvFieldCount(CsvStr: string): DWORD;

var

I: Integer;

begin

Result := 0;

if CsvStr = '' then

Exit;

if CsvStr[Length(CsvStr)] <> ',' then

CsvStr := CsvStr + ',';

for I := 1 to Length(CsvStr) do

if CsvStr[I] = ',' then

Inc(Result);

end;



// CSV에서 Index번째 위치의 필드문자열을 얻는다.

// Index는 0부터 (총필드의 갯수 - 1) 까지의 값을 가집니다.

// 이 범위를 벗어나면 False를 리턴하고 FieldStr = ''을 가집니다.

function GetCsvField(CsvStr: string; Index: DWORD; var FieldStr: string): Boolean;

var

I: DWORD;

CommaPos: Integer;

begin

Result := False;

FieldStr := '';

if Index < GetCsvFieldCount(CsvStr) then

begin

if CsvStr[Length(CsvStr)] <> ',' then

CsvStr := CsvStr + ',';

I := 0;

repeat

CommaPos := Pos(',', CsvStr);

FieldStr := Copy(CsvStr, 1, CommaPos - 1);

Delete(CsvStr, 1, CommaPos);

Inc(I);

until I > Index;

Result := True;

end

end;







ghost Lee wrote:

> 안녕하세여.. 델고수님들...

> 먼저 조규찬씨의 빠른 완쾌를 빕니다..

>

> 다름이 아니라.. 아웃룩에서 주소록전체 데이타를 메모장에서 열면 모두 쉼표로 구분되어있거등요...

> 근데... 그중에서 필요한 부분의 데이타만 가져오고 싶어요.. 쉼표를 이용해서...

> 한줄에 있는 쉼표의 개수는 같겠죠...

> 순서대로 전체 데이타를 가져오는 방법...

>

> 일단 한줄만 가져오면 다 가져올수 있을것 같은데...

>

> 즐거운 프로그래밍을 위해서...