Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

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

 
Цукор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.


 
Jeer ©   (2012-04-03 15:06) [9]


> Inovet ©   (03.04.12 15:05) [8]


Кому это надо :)


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

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


 
Sha ©   (2012-04-03 16:10) [11]

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


 
Jeer ©   (2012-04-03 20:08) [12]


> Sha ©   (03.04.12 16:10) [11]
>
> кабы не было листов


то бы не было гл..ов. :)



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.061 c
2-1345815783
Разведка
2012-08-24 17:43
2013.03.22
немогу найти причину ошибки


15-1342010746
alexdn
2012-07-11 16:45
2013.03.22
java скрипт


2-1333722471
ford
2012-04-06 18:27
2013.03.22
загрузка бинарного дерева


15-1345212220
Jimmy
2012-08-17 18:03
2013.03.22
Описание exe-файла


15-1338429114
Думкин
2012-05-31 05:51
2013.03.22
Жизнь