Текст файла
«C:\Test.txt», для которого написан примерDelimitedColumnDelimiters: Array;
Свойство DelimitedColumnDelimiters определяет массив строк, используемый в качестве разделителей полей в текстовом файле.
В качестве элементов массива допустимы следующие значения:
,
;
.
:
|
{Табуляция} - код #9
{Возврат каретки} - код #13
{Перевод строки} - код #10
{Возврат каретки}{Перевод строки} - #13+#10
Любой другой символ, либо сочетание символов, по желанию пользователя.
Если какой-либо символ из массива будет совпадать со значением свойства DelimitedTextQualifier или RowDelimiter, то он не будет учитываться в качестве разделителя полей.
Для выполнения примера предполагается наличие текстового файла «C:\Test.txt». В данном файле присутствуют четыре поля, разделенные символами «;», «:» и «!».
Текст файла
«C:\Test.txt», для которого написан пример
Sub UserProc;
Var
TextProv: IDtTextProvider;
TextCons: IDtTextConsumer;
DelimArr: Array[0..2] Of String;
Begin
TextProv := New DtTextProvider.Create;
TextCons := New DtTextConsumer.Create;
TextProv.File := "C:\Test.txt";
TextProv.RangeHasHeader := True;
DelimArr[0] := ";";
DelimArr[1] := ":";
DelimArr[2] := "!";
TextProv.DelimitedColumnDelimiters := DelimArr;
TextProv.GetFieldsFromFile;
TextCons.File := "C:\Test_result.txt";
TextCons.WriteHeader := True;
TextCons.Fields.Add;
TextCons.Fields.Add;
TextCons.Fields.Add;
TextCons.Fields.Add;
TextCons.PutProvider(TextProv);
End UserProc;
После выполнения примера данные из файла «C:\Test.txt» будут выгружены в файл «C:\Test_result.txt», разделителем полей в данном файле будет символ «,».
Текст файла
«C:\Test_result.txt», который получен после выполнения примера
См. также: