Importa um ficheiro ou fluxo de texto CSV ou TSV para uma folha de cálculo do livro
TXLSWorkbook.OpenCSV fornece o ponto de entrada da fachada XLS clássica e TXLSXWorkbook.OpenCSV fornece o mesmo comportamento de importação para a fachada XLSX
Sintaxe
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. Caminho completo ou relativo para o ficheiro de texto delimitado |
| Stream | TStream. Dados CSV ou TSV completos a importar |
| ASeparator | WideChar. Use #0 para detetar automaticamente vírgula, ponto e vírgula, tabulação ou barra vertical na primeira linha com dados; caso contrário, passe o separador a usar #0 para detetar automaticamente vírgula, ponto e vírgula, tabulação ou barra vertical na primeira linha com dados; caso contrário, passe o separador a usar |
| ADetectTypes | Boolean. When True, os campos são promovidos, sempre que possível, para variantes numéricas, de data/hora ou Boolean. Quando FalseBoolean. Quando True, os campos são promovidos, sempre que possível, para variantes numéricas, de data/hora ou Boolean. Quando False, os campos mantêm-se como texto, o que é útil para zeros à esquerda e identificadores longos |
| AOptions | TXlsCsvImportOptions. Use TXlsCsvImportOptions.Default para obter predefinições determinísticas em todos os compiladores suportados e, depois, defina Separator, DetectTypes, SkipRowsou AutoTrim conforme necessário |
Comportamento
O importador detecta marcas de ordem de bytes UTF-8 e UTF-16, analisa campos entre aspas no estilo RFC 4180 e escreve a grelha analisada numa folha de cálculo. Chamar Open(FileName) num caminho .csv ou
.tsv encaminha automaticamente para este importador
Exemplo
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);
Consulte também