Importa um arquivo de texto CSV ou TSV ou fluxo para uma planilha da pasta de trabalho
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 arquivo de texto delimitado |
| Stream | TStream. Complete CSV ou TSV data para import |
| ASeparator | WideChar. Use #0 para detectar automaticamente vírgula, ponto e vírgula, tabulação ou barra vertical a partir da primeira linha preenchida; caso contrário, passe o separador a ser usado #0 para detectar automaticamente vírgula, ponto e vírgula, tab ou pipe a partir da primeira linha com conteúdo; caso contrário, passe o separador a ser usado |
| ADetectTypes | Boolean. When True, os campos são promovidos a variantes numéricas, de data/hora ou Boolean sempre que possível. Quando FalseBoolean. Quando True, os campos são promovidos para variantes numéricas, de data/hora ou Boolean quando possível. Quando False, os campos permanecem como texto, o que é útil para zeros à esquerda e identificadores longos |
| AOptions | TXlsCsvImportOptions. Use TXlsCsvImportOptions.Default para padrões determinísticos em todos os compiladores suportados e depois defina Separator, DetectTypes, SkipRowsou AutoTrim conforme necessário |
Comportamento
O importador detecta marcas de ordem de byte UTF-8 e UTF-16, analisa campos entre aspas no estilo RFC 4180 e grava a grade analisada em uma planilha. Chamar Open(FileName) em um caminho .csv ou
.tsv roteia 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);
Veja também