Объединение мелких файлов в один большой

← →
Цукор5 (2012-04-03 14:08) [0]

Есть много мелких файлов, которые мне нужно объединить в один большой.
Делаю так:
ListAll:=TStringList.Create; try for I:=0 to FileListBox1.Count-1 do begin List:=TStringList.Create; try List.LoadFromFile(FileListBox1.Items.Strings[I]); ListAll.AddStrings(List); finally List.Free; end; end; ListAll.SaveToFile("Res.txt"); finally ListAll.Free; end;

В результате, добавляется какая-то ерунда в начале каждого объединения.
Скриншот: http://gyazo.com/a4a0f0eb4748f8a33b4e19cfc8356e77

Что это? Что я делаю не так?

← →
bibip (2012-04-03 14:20) [1]

)))
Тоесть объединяешь текст из нескольких текстовых файлов

← →
bibip (2012-04-03 14:24) [2]

А что не так?

← →
Сергей М. © (2012-04-03 14:25) [3]

Так это у тебя в самих файлах "ерунда" в самом начале каждого)
Поди bom там ..

← →
bibip (2012-04-03 14:26) [4]

Ерунда я так понял символ похожий на твердый знак?

← →
sniknik © (2012-04-03 14:28) [5]

попробуй так
ListAll.Add(List.Text);
не поможет, то так
ListAll.Add(Trim(List.Text));
не поможет... ну тогда там реально есть что то (типа BOM/признака конца файла) и это нужно "выкусывать"

← →
sniknik © (2012-04-03 14:30) [6]

наиболее вероятно там BOM, который ты смотря в блокноте просто не видишь. посмотри в Far-е/NC-ре.

← →
bibip (2012-04-03 14:53) [7]

Вот паскальный вариант на дельфи
var f, t: TextFile; i: integer; s: string; begin AssignFile(T, "Bes.txt"); Rewrite(T); for I:=0 to ListBox1.Count-1 do begin AssignFile(f, ListBox1.Items.Strings[I]); reset(f); readln(f, s); Writeln(t, s); end; CloseFile(f); CloseFile(t); end;

← →
Inovet © (2012-04-03 15:05) [8]

Есть комаеда
copy 1 + 2 + 3 dst
с разными ключами: /A, /B.

← →
Цукор5 (2012-04-03 15:27) [10]

Спасибо! Действительно BOM был. Век живи, век учись )))
Выкусил так:
List.Strings[0] := StringReplace( List.Strings[0], Chr($EF)+Chr($BB)+Chr($BF),"",[rfReplaceAll]) ;

кабы не было листов

Объединение мелких файлов в один большой Найти похожие ветки