تستورد ملف نصي CSV أو TSV أو دفق إلى ورقة عمل المصنف
توفر TXLSWorkbook.OpenCSV نقطة إدخال واجهة XLS الكلاسيكية، وتوفر TXLSXWorkbook.OpenCSV نفس سلوك الاستيراد لواجهة XLSX
البنية
function OpenCSV(FileName: WideString): Integer;
function OpenCSV(FileName: WideString; ASeparator: WideChar; ADetectTypes: Boolean): Integer;
function OpenCSV(Stream: TStream): Integer;
function OpenCSV(Stream: TStream; ASeparator: WideChar; ADetectTypes: Boolean): Integer;
function OpenCSV(const FileName: WideString; const AOptions: TXlsCsvImportOptions): Integer;
function OpenCSV(Stream: TStream; const AOptions: TXlsCsvImportOptions): Integer;
| FileName |
WideString. المسار الكامل أو النسبي للملف النصي المحدد |
| Stream |
TStream. بيانات CSV أو TSV الكاملة للاستيراد |
| ASeparator |
WideChar. استخدم #0 للاكتشاف التلقائي للفاصلة، أو الفاصلة المنقوطة، أو علامة الجدولة، أو الشريط العمودي من السطر الأول المأهول؛ وإلا فقم بتمرير الفاصل لاستخدامه |
| ADetectTypes |
Boolean. عندما تكون True، تتم ترقية الحقول إلى متغيرات رقمية أو تاريخ/وقت أو منطقية حيثما أمكن. عندما تكون False، تبقى الحقول كنص، وهو أمر مفيد للأصفار البادئة والمعرفات الطويلة |
| AOptions |
TXlsCsvImportOptions. استخدم TXlsCsvImportOptions.Default للحصول على قيم افتراضية حتمية على كل مترجم مدعوم، ثم اضبط Separator أو DetectTypes أو SkipRows أو AutoTrim حسب الحاجة |
السلوك
يكتشف المستورد علامات ترتيب البايت UTF-8 و UTF-16، ويحلل الحقول المقتبسة بأسلوب RFC 4180، ويكتب الشبكة المحللة في ورقة عمل
يؤدي استدعاء Open(FileName) على مسار .csv أو .tsv إلى التوجيه إلى هذا المستورد تلقائيا
مثال
Workbook.OpenCSV('orders.csv');
Workbook.OpenCSV('part-numbers.tsv', #9, False);
Options := TXlsCsvImportOptions.Default;
Options.SkipRows := 1;
Options.AutoTrim := True;
Workbook.OpenCSV('orders-with-heading.csv', Options);
انظر أيضا