ShahramBlog

احتمالا برای شما هم اتفاق افتاده است که بخواهید فایل هایی CSV را در برنامه خود بازخوانی کنید. همانطور که می دانید فایل های CSV فایلهایی هستند که در هر ردیف،  ستون های آن با استفاده از یک کاراکتر خاص جدا شده اند. که البته بیشتر از  کاما (,) و یا (;) و یا (Tab) استفاده می شود.

مثلا متنی مانند این را خواهید داشت: Field1; Field2; Field3; Field4

اگر تصور کنیم که شما بخواهید این ۴فیلد را بازخوانی کنید و در یک بانک اطلاعاتی ذخیره کنید، ابتدا باید این خط را تکه تکه کنید :دی

در ادامه مطلب متدی را نوشته ام که می توانید از آن به راحتی استفاده کنید

تابع اول تعداد تکرار کاراکترهای  جدا کننده و یا همان Separator را مشخص می کند:

function Occurs(const Str, Separator: string): integer;
var
I, nSep: integer;
begin
nSep:= 0;
for I := 1 to Length(Str) do
if Str[I] = separator then
Inc(nSep);
Result := nSep;
end;

تابع دوم، String یا متن شما را با توجه به جدا کننده یا Separator تکه تکه یا Split می کند و در یک متغیر از نوع TStringList بر می گرداند.

function SplitStr(const Str: string; const Separator: string): TStringList;
var
I, Count: integer;
StrLine, StrField: string;
Res: TStringList;
begin
Count := Occurs(Str, Separator);
Res := TStringList.Create;
StrLine := Str;
for I := 0 to Count do
begin
if Pos(Separator, StrLine) > 0 then
begin
StrField := Copy(StrLine, 0, Pos(Separator, StrLine)-1);
StrLine := Copy(StrLine, Pos(Separator, StrLine) +1, Length(StrLine) - Pos(Separator, StrLine));
end
else
StrField := Copy(StrLine, 0, Length(StrLine));
Res.Add(StrField);
end;
Result := Res;
end;

موفق باشید