Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
ВнизDos-unix Найти похожие ветки
← →
Arkan (2002-06-18 17:22) [0]Уважаемые мастера подскажите как досовский файл преобразовать в unix файл
напишите именно код спасибо!
← →
MBo (2002-06-18 17:24) [1]текстовый?
← →
Arkan (2002-06-18 17:29) [2]ну да
← →
Arkan (2002-06-18 17:30) [3]слушай MBo а ты что здесь сутками дежуриш?
← →
MBo (2002-06-18 17:42) [4]StringList.LoadFromFile(имя);
fs:=TFileStream.Create("unix.txt",fmCreate);
abyte:=$0A;
for i:=0 to StringList.Count-1 do begin
s:=StringList[i];
l:=Length(s);
fs.write(s[1],l);
fs.write(abyte,1);
end;
fs.free;
← →
Arkan (2002-06-18 17:56) [5]круто что такое fs, abyte:=$0A; fmCreate
← →
MBo (2002-06-18 18:01) [6]fs:TFilestream;
abyte:byte;
$0A - unix перевод строки
fmCreate - константа для создания нового файла
или перезаписи старого
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c