Открыть файл без расширения. Pascal. Файлы: операции с файлами, виды файлов, примеры задач

27.01.2019

В язык Паскаль выделяются данные файлового типа, которые служат для работы с информацией, расположенной на внешних устройствах. Эта информация формируется во внешней памяти компьютера, образуя некоторую область, называемую файлом. Файлы имеют имя и представляют собой совокупность однотипных элементов. Обычно они применяются, в случаях большого объема данных, долгосрочного хранения, либо необходимости предоставления доступа нескольким приложениям к одной и той же информации.

Файлы принято разделять на физические и логические. Физические файлы имеют имя, и располагаются на съемном носителе, а логические это те переменные файлового типа, которые их представляют в программе.

В Паскале различают следующие три вида файлов (в скобках описаны ключевые слова для инициализации файловой переменной):

текстовые файлы (text);
типизированные (file of <тип>);
бестиповые (file).

Немного позже мы разберемся с каждым из них. А сейчас рассмотрим основные операции для работы с файлами.

Создание файла

Assign(<имя файловой переменной>, <имя файла>)

Процедура Assign связывает переменную файлового типа с физическим файлом. Например, установить соответствие между переменной Fil и текстовым файлом lot, расположенном на диске D, можно так:

Assign(Fil, ‘D:\lot.txt’)

Режим чтения

Reset(<имя файловой переменной>)

Процедура Reset открывает файл в режиме чтения, после чего операторомRead(<файловая переменная>, <считываемый элемент>) можно осуществить последовательное считывание элементов в программу.

Конец файла

ЕOF(<имя файловой переменной>)

Количество элементов в файле заранее не определяется, но часто необходимо знать о моменте достижения конца файла. Для этого в Паскале существует логическая функция EOF, которая проверяет достигнут ли конец, и если это так, то принимает значение True, иначе – False. Осуществляется проверка, как правило, в цикле, в качестве условного выражения выступает функция EOF.

Режим записи

Rewrite(<имя файловой переменной>)

Открыв файл в режиме записи, можно поэлементно записать в него информацию, воспользовавшись процедурой Write(<файловая переменная>, <элемент>).

Закрытие файла

Close(<имя файловой переменной>)

Процедура Close закрывает открытый файл, а также освобождает файловую переменную, указанную в качестве параметра.

Удаление файла

Erase(<имя файловой переменной>)

При помощи процедуры Erase, можно удалить с внешнего носителя, заранее закрытый файл.

Изменение имени файла

Rеnаmе(<имя файловой переменной>, ‘<новое имя файла>’)

Rеnаmе переименовывает физический файл, который перед этим следует закрыть процедурой Close.

Смещение указателя файла

Sееk(<имя файловой переменной>, <номер элемента>)

Процедура Sееk устанавливает позицию указателя в файле на необходимый элемент (нумерация элементов начинается с нуля).

Определение положения указателя

FilePos(<имя файловой переменной>)

Функция FilePos принимает значение порядкового номера элемента, над которым в момент вызова находиться указатель.

Определение количества элементов

FileSize(<имя файловой переменной>)

Функция FileSize определяет количество всех имеющихся в файле элементов.

Текстовые файлы

Текстовые файлы могут состоять из элементов символьного (char) и строкового (string) типа данных. Ключевое слово Text указывает, что файловая переменная создается для работы именно с текстовым файлом:

Var <идентификатор>: Text;

Структура текстового файла представляет собой последовательность строк, которые в свою очередь состоят из символов. Любая строка оканчивается признаком «конца строки», а сам файл признаком «конца файла». Для определения конца файла в Паскаль есть функция EOF, а для конца строки –EOLn:

EOLn(<имя файловой переменной>)

В случае достижения конца строки она (функция EOLn) принимает значение True, в противном случае False.

Примеры задач на работу с файлами в Pascal:

1.Создать файл X компонентами которого являются элемента массива M. Переписать из файла X в файл Y все компоненты, которые стоят на четных местах. Прочитать файл Y.
M = (0,1; 5,6; 0.8; 2,4; 7,3; 6,8; 0,5; 2,3;)

const M: array of real = (0.1, 5.6, 0.8, 2.4, 7.3, 6.8, 0.5, 2.3);
var
x,y: file of real;

n: real; i: byte;
begin
assign(x,"x.dat");
assign(y,"y.dat");
rewrite(x);
for i:=1 to 8 do
write(x, M[i]);
close(x);
reset(x);
rewrite(y);
i:= 1;
while not EOF(x) do begin
read(x, n);
if not odd(i) then
write(y, n);
i:= i + 1;
end;
close(x); close(y);
reset(y);
while not EOF(y) do begin
read(y, n);
write(n:5:1);
end;
writeln;
close(y);
end.

2. Дан файл, в котором через пробел записаны натуральные числа. Вывести на экран суммы цифр каждого числа.

var
f: file of char;
c: char; sum, n: word;

begin
assign(f,"nums.txt");
reset(f);
sum:= 0;
while not eof(f) do begin
read(f,c);

if c <> " " then begin
val(c, n);
sum:= sum + n;
end
else begin
write(sum:5);
sum:= 0
end;
end;

writeln;
end.

3. Дан файл с учебным расписанием. Написать программу, которая определяет количество лекционных, практических и лабораторных занятий. Вывести их количество на экран.

var
f: text;
s: string;
i, lect, pract, lab: byte;
begin
assign(f,"lessons.txt");
reset(f);
lect:= 0;
pract:= 0;
lab:= 0;
while not Eof(f) do begin
readln(f,s);
i:= pos("лекц.",s);
if i <> 0 then lect:= lect + 1
else begin
i:= pos("практ.",s);
if i <> 0 then pract:= pract + 1
else begin
i:= pos("лаб.",s);
if i <> 0 then lab:= lab + 1
end;
end;
end;
close(f);
writeln("Лекций: ", lect);
writeln("Практических: ", pract);
writeln("Лабораторных: ", lab);
end.

4. Дана текстовая строка, состоящая из заглавных латинских букв. Требуется найти подстроку из трёх букв, которая встречается в данной строке чаще всего. Например, в строке DEFDEFABCABCZABCDEFDEF чаще всего (4 раза) встречается подстрока DEF. Входной файл содержит текстовую строку. Выходной файл должен содержать единственное число - количество вхождений самой часто встречающейся подстроки из трёх букв. Длина исходной строки от 3 до 1000000 символов.

var
t1, t2: text;
n, i, j, k: integer;
s, s1, s2: string;
begin
Assign(t1, "D:\Users\Пользователь\Desktop\1.txt");
Assign(t2, "D:\Users\Пользователь\Desktop\2.txt");
reset(t1);
rewrite(t2);
read(t1, s);
k:= 0;
for i:= 1 to length(S) - 2 do
begin
s1:= copy(s, i, 3);
for j:= 1 to length(s) - 2 do
begin
s2:= copy(s, j, 3);
if s2 = s1 then inc(k);;
end;
if k > n then n:= k;
k:= 0;
end;
write(t2, n);
close(t1);
close(t2);
end.

f: file of char;
fname: string;
ch: char;
n, line, w: word;
flag: boolean;
begin
write("File address&name: ");
readln(fname);
assign(f, fname);
reset(f);
n:= 0; line:= 0; w:= 0; flag:= false;
while not EOF(f) do begin
read(f, ch);
if ord(ch) = 13 then begin
read(f, ch);
line:= line + 1;
flag:= false;
end
else begin
n:= n + 1;
if ch = " " then flag:= false
else
if flag = false then begin
w:= w+1;
flag:= true;
end;
end;
end;
if n <> 0 then line:= line + 1;
writeln(n);
writeln(line);
writeln(w);
readln;
end.

var
f_in: text;
f_out: file;
name_in, name_out: string;
buffer: array of integer;
i,k: integer;
begin
{$I-}
write("Входной файл: ");readln(name_in);
assign(f_in,name_in);
reset(f_in);
if IOResult <> 0 then begin
writeln ("Файл не найден!");
exit
end;
write("Выходной файл: ");readln(name_out);
assign(f_out,name_out);
rewrite(f_out,sizeof(integer)*8);
{$I+}
i:= 0;
while not eof(f_in) do begin
inc(i);
read(f_in,buffer[i]);
if i = 8 then begin
blockwrite(f_out,buffer,1);
i:= 0
end;
end;
if i <> 0 then begin
for k:=i+1 to 8 do buffer[k] := 0;
blockwrite(f_out,buffer,1);
end;
close(f_in);
close(f_out);
readln
end.

7. В текстовом файле содержатся сведения о количестве учащихся в классах и их классных руководителях. Количество классов в школе не превышает 20. Для описания каждого класса отводится одна строка. В первых четырех позициях каждой строки файла записано имя класса (например, 5a, 10b) класса (не пишите русских букв), а затем количество человек в нем и ФИО руководителя. Программа по запросу выдает сведения о классе или сообщение о том, что класс не найден.

const n = 20;
type
str4 = string;
clas = record
title: str4;
pupils: byte;
teacher: string;
end;
var
school: array of clas;
i,j,len: integer;
title_search: str4;
found: boolean;
f: text;
begin
assign(f,"c:/school.txt"); reset(f);
i:= 1;
while not Eof(f) do begin
with school[i] do
readln(f,title,pupils,teacher);
i:= i + 1;
end;
while true do begin
write("Input class: ");
readln(title_search);
len:= length(title_search);
if len = 0 then break;
for j:= len + 1 to 4 do
title_search:= title_search + " ";
found:= false;
for j:= 1 to i - 1 do begin
if title_search <> school[j].title then continue;
with school[j] do
writeln(title:5,pupils:5,teacher:25);
found:= true;
break;
end;
if not found then
writeln("No class!");
end;
end.

8.Найти в строке все заданные последовательности символов и заменить их другой последовательностью.

var
s_out, s_in, str: string;
f: text;
i, len: integer;
begin
assign(f,"c:/text.txt");
reset(f);
writeln("What cut? ");
readln(s_out);
writeln("What paste? ");
readln(s_in);
len:= length(s_out);
while not Eof(f) do begin
readln(f,str);
i:= 1;
while i<>0 do begin
i:= pos(s_out,str);
if i<>0 then begin
delete(str,i,len);
insert(s_in,str,i);
end;
end;
writeln(str);
end;
close(f);
readln;
end.

Когда вы скачиваете файлы из сети Интернет, операционная система помечает их особым образом из соображений безопасности. Позднее, когда вы пытаетесь открыть скачанный файл, Windows отображает предупреждение, что файл небезопасен и требует явного подверждения, что вы действительно намерены его открыть. Когда включена функция Smart Screen, некоторые файлы блокируются особенно упорно. Существует способ снять подобные блокировки со всех файлов и папок, находящих в каталоге "Загрузки" или в любой другой папке.
В самом механизме блокировки . Он работает с использованием уже знакомых нам . Для каждого скачанного файла дописывается альтернативный поток данных, параметры в котором и говорят операционной системе, что его получен из всемирной паутины и может быть небезопасен.

Чтобы в этом убедиться, в Windows 10 мы можем воспользоваться инструментом PowerShell. Выполним для одного из скачанных файлов вот такую команду:

Get-item имя_файла -stream *

Самый простой способ открыть PowerShell сразу в нужной папке - это воспользоваться командой-меню Файл в Проводнике Windows 10. Перейдите в папку "Загрузки" и выполните Файл - Запустить Windows Powershell - Запустить Windows Powershell:

Выполним вышеупомянутую команду для файла "winaerotweaker.zip". Это архив с моей же программой Winaero Tweaker, который я специально скачал для примера. Выполняем команду:

Get-item winaerotweaker.zip -stream *

Аргумент "-stream *" указывает команде get-item отобразить все имеющиеся потоки для файла. Zone.Identifier - это как раз и есть альтернативный поток данных, по которому Windows 10 определяет скачанный из Интернет файл. С помощью команды get-content мы можем посмотреть, что в него записано:

Get-content winaerotweaker.zip -stream Zone.Identifier

По своей сути - это обычный ini-файл, в котором определяющее значение имеет параметр ZoneId:

ZoneId=3

Его возможные значения:
0 - Файл создан на локальном компьютере.
1 - Файл получен по локальной сети
2 - Файл получен из доверенной зоны Интернет
3 - Файл получен из Интернет
4 - Файл получен из зоны "опасных сайтов"

Соответственно, чтобы разблокировать его, нужно либо записать 0 в ZoneId, либо вообще удалить альтернативный поток с именем Zone.Identifier.

Средствами графического интерфейса разблокировать файл можно через его свойства. Там есть соответствующий флажок (который в русской версии не совсем вписывается в диалоговое окно):

Как разблокировать сразу все файлы в папке Загрузки в Windows 10

Если нужно разблокировать много файлов или сразу все, открывать свойства каждого из них - очень утомительное занятие. К счастью, эту операцию можно упростить опять-таки при помощи PowerShell. Достаточно выполнить команду:

Dir -Recurse | Unblock-File

Её, естественно, нужно выполнить в нужной папке. В нашем случае PowerShell уже открыт в папке "Загрузки". Давайте выполним её и посмотрим, что из этого выйдет.

Команда отрабатывает без какого-либо вывода. Проверим альтернативные потоки данных:

То есть, команда Unblock-File просто удаляет поток Zone.Identifier у каждого из файлов:

Готово! Теперь, когда вам будет нужно разблокировать сразу несколько файлов в какой-либо папке на вашем компьютере, вы знаете, что делать. Кроме того, этот же трюк должен работать и в Windows 8/8.1, но проверить это в настоящий момент я не могу.

Узнайте, какие форматы файлов можно использовать с программой Pages, как открывать эти файлы и как преобразовать документы Pages в другие форматы.

Pages для iOS

Pages для iOS позволяет открывать, редактировать и предоставлять для общего доступа файлы на iPhone, iPad или iPod touch, даже если работа с ними велась не в программе Pages.

Программа Pages для iOS может открывать:

файлы.rtf.

Программа Pages для iOS может экспортировать:

файлы в формате PDF;
файлы Word (только.docx);
файлы.rtf;
файлы ePub.

Открытие файла в Pages для iOS

Чтобы открыть файл в программе Pages для iOS на iPhone, iPad или iPod touch, выберите его менеджере документов при запуске программы. Если требуется открыть файл, созданный в другой программе, откройте эту программу и выберите вложение. Когда оно откроется, выделите файл и нажмите значок . Нажмите кнопку «Скопировать в Pages».

После того как файл откроется, может появится сообщение о том, что последнее редактирование выполнялось не в последней версии Pages для iOS.

Экспорт файла с помощью Pages для iOS

Документы в Pages для iOS хранятся в виде файлов.pages, но отправить документ можно и в другом формате. Выполните следующие действия, чтобы отправить документ в определенном формате:

Pages для Mac

Pages для Mac упрощает импорт файлов и работу с ними, даже если в последний раз они редактировались не в Pages.

Программа Pages для Mac может открывать:

файлы Pages ’05 или более поздних версий;
файлы Microsoft Word - Office Open XML (.docx) и Office 97 или более поздних версий (.doc);
файлы.rtf.
обычные текстовые файлы (.txt);

Pages для Mac может экспортировать:

файлы в формате PDF;
файлы Microsoft Word - Office Open XML (.docx) и Office 97 или более поздних версий (.doc);
обычные текстовые файлы (.txt);
файлы.rtf;
файлы ePub;
файлы Pages "09.

Открытие файла в Pages для Mac

Чтобы импортировать текстовый документ из Finder, щелкните правой кнопкой мыши по нужному файлу и выберите «Открыть с помощью» > Pages. Если Pages является единственным текстовым редактором на компьютере Mac, достаточно дважды щелкнуть по файлу.

Если программа Pages для Mac уже открыта, выберите «Файл» > «Открыть» и щелкните по нужному файлу. Если файл отображается серым цветом, его формат не поддерживается.

После импорта файла могут появится предупреждения. Дополнительную информацию о предупреждениях, которые могут появиться при открытии документа, созданного в более старой версии Pages, см. в

Экспорт файла в Pages для Mac

Перед закрытием убедитесь, что файл был сохранен. Если в файл будут внесены какие-либо изменения после экспорта, они будут видны только в рабочем файле Pages.

Pages для iCloud

Pages для iCloud позволяет открывать, редактировать и предоставлять для общего доступа файлы на любом компьютере Mac или компьютере с ОС Windows через Интернет.

Программа Pages для iCloud может открывать:

файлы Pages ’05 или более поздних версий;
файлы Microsoft Word - Office Open XML (.docx) и Office 97 или более поздних версий (.doc);
обычные текстовые файлы (.txt);
файлы.rtf.

Программа Pages для iCloud может экспортировать:

файлы Microsoft Word (только.docx);
файлы в формате PDF;
файлы ePub.

Требования.
Для выполнения указанных в этой статье действий, необходимо на компьютере иметь права локального администратора.
Статья действительная для Windows 98/Me/2000/XP/Vista.

Информация.
Первый случай.
Бывает что после установки новой программы, некоторые файлы начинают открываться именно в это программе. Например, всю жизнь Вы смотрите кино с помощью WinAmp и однажды решили установить новые кодеки, а установка этих кодеков предусматривала установку проигрывателя Windows Media Classic . И теперь файлы с расширением .avi , открываются в новом проигрывателе, но Вам же хочется смотреть с помощью WinAmp , поэтому сделаем небольшие настройки.

Второй случай.
После удаления программы, некоторые файлы перестают открываться вообще. Такое случается если за этим типом файлов, нет закрепленной программы. Поэтому нужно вручную определить какой программой нужно открывать этот тип файлов.

Закрепление типа файла за программой.
1. Щелкните правой кнопкой мыши на файле;
2. Выберите пункт меню "Свойства ";
3. В окне "Свойства", переходим на вкладку "Общие ";
4. В пункте "Приложение ", будет отображено с помощью какой программы открывается этот файл (в наше случаи это "Windows Media Classic ");
5. Нажимаем кнопку "Изменить ";
6. В окне "Выбор программы", найдите и щелкните по необходимой программе (а нашем случаи это "WinAmp ");
7. Поставьте галочку "Использовать выбранную программу для всех файлов такого типа ", если она не установлена;

8. Нажмите кнопку "ОК";

Теперь файлы с расширением .avi , будут открываться с помощью WinAmp .

У вас есть вопросы по форматам файлов и расширениям? Мы постарались помочь и дали ответы на самые популярные из них!

На каждом компьютере хранятся сотни тысяч самых разнообразных файлов: текстовые, аудио, файлы изображений и многие другие. Что происходит, когда вы открываете какой-либо файл? Вначале операционная система определяет, к какой программе относится этот файл. Затем если на компьютере установлена программа, соответствующая файлам этого типа, она и открывает этот файл.

А как же система определяет тип того или иного файла? На самом деле, все не так сложно, как кажется на первый взгляд. У каждого файла существует расширение, именно по расширению операционная система и определяет, к какой программе относится файл.

Расширение файла необходимо для определения формата того или иного файла. Расширение прописывается в имени файла после точки в виде последовательности символов. Как пример, рассмотрим файл «Document.txt », «Document » - это имя файла, а «txt » - его расширение. В MS-DOS длина расширения была ограничено тремя символами. В современных операционных системах ограничение по количеству символов снято. При инсталляции программ, в системный реестр записываются соответствия расширений и программ, способных открывать такие файлы.

Заставить компьютер показывать расширения файлов возможно сделав несколько совсем несложных манипуляций. Покажем на примере Windows XP.

Необходимо войти в меню «Пуск », там выбрать пункты «Настройка»=>«Панель управления» , в открывшемся списке дважды кликнуть на ярлык «Свойства папки» и в появившемся окне выбрать закладку «Вид» .

Затем снимаем галочку напротив пункта «Скрывать расширения для зарегистрированных типов файлов» . Всё, теперь расширения файлов видны!

Довольно часто возникает такая ситуация, когда расширение неизвестно операционной системе и она не знает, в какой программе нужно открывать файл. Появляется окно, в котором предлагается выполнить поиск нужной программы в интернете или выбрать программу самостоятельно из списка.

Поиск в интернете, к сожалению, вам ничем не поможет, поэтому можете смело выбирать второй вариант. Перед вами появится окно со списком программ, с помощью которых можно попытаться открыть данный файл.

Раз операционной системе не удалось определить, какой программой был создан файл, то заняться этим должны вы. Сделать это очень просто с помощью нашего сайта. Просто введите в строку поиска расширение файла без точки и кликните по кнопке «Найти ». Определив программу, выберите ее на своем компьютере или установите, если такой у вас еще нет.

Случается, что расширение у файла просто отсутствует. А возможно вы просто неудачно переименовали этот файл, стерев его расширение. Если это файл с вашего компьютера, и вы помните, какой программой вы его открывали ранее, то попытайтесь его открыть с помощью этой программы. Для этого кликните по нему правой кнопкой мыши и выберите из контекстного меню пункт «Открыть с помощью ». Выберите из списка нужную программу и нажмите кнопку «ОК ».

Если файл без расширения попал к вам через электронную почту, попробуйте выяснить у отправителя, к какой программе относится этот файл. С таким файлом нужно быть осторожным, так как он может оказаться вирусом.

Если вам удалось выяснить причину отсутствия расширения у файла и вы нашли программу, которая открывает этот файл, то лучше добавить отсутствующее расширение, дописав его через точку к названию.

Пример ситуации: вы хотите посмотреть фильм, а он у вас открывается не вашим любимым плеером, а Winamp’ом, который хорош для музыки, но никак не для видео.

Чтобы это исправить, нужно нажать правой кнопкой мыши на файле и выбрать во всплывающем меню «Открыть с помощью ». Далее смотрите список предлагаемых программ. Если нужной программы среди них нету, в самом низу меню нажимаете «Выбрать программу... ».

Затем вручную выбираете программу при помощи которой вы хотите открыть этот файл. Если вы хотите постоянно открывать данный тип файлов именно этой программой, то просто поставьте галочку возле «Всегда использовать для всех файлов такого типа ».

Чтобы поменять расширение, для начала нужно убедиться, что показ расширений включен. Для этого, в любой открытой папке, в меню «Сервис » выберите пункт «Свойства папки… ». В открывшемся окне кликните по вкладке «Вид ». В меню дополнительных параметров найдите строку «» и уберите галочку рядом с ней. Нажмите кнопку «ОК ».

Теперь вы уверены в том, что показ расширений включен. Далее необходимо кликнуть правой кнопкой мыши по файлу, расширение которого необходимо изменить. В контекстном меню выберите пункт «Переименовать ». Сотрите расширение после точки и напечатайте новое. После этого появится окно с предупреждением, в котором нужно нажать «ОК ».

Если у файла отсутствует расширение, то дописать его можно аналогичным способом. Главное, не забывайте, что название файла и расширение разделяются точкой.

Изначально у операционной системы Windows 7 в целях безопасности функция смены расширения отключена.

Первое, что нужно сделать, это выбрать меню «Пуск », после чего зайти в «Панель управления ». В открывшемся окне найти и дважды кликнуть на ярлык «Параметры папок ». Затем во вкладке «Вид » следует убрать галочку напротив надписи «Скрывать расширения для зарегистрированных типов файлов ». Нажимаем «Применить ».

Теперь расширения отображаются, осталось только поменять расширение нужного файла. Кликаем на нем правой кнопкой мыши, в открывшемся меню выбираем «Переименовать » и меняем расширение на нужное.

Мнение, будто каждому типу файлов соответствует только одна программа в корне не верно. Практически любой файл может быть открыт несколькими разными программами. Как пример такого утверждения - самый обыкновенный рисунок в формате , его можно открыть в практически любой программе просмотра изображений.

На вопрос всегда ли одинаковое расширение означает один и тот же формат файла можно дать однозначный ответ: нет.

Нередки случаи, когда из-за этого происходят недоразумения. Есть файлы одного формата но содержащие различные виды данных. Как пример, этого может быть видео в формате , в котором само видео может быть в формате DivX или Indeo.

А есть и форматы с одинаковым расширением, но абсолютно разные по содержанию. Например файлы с расширение, нередко код вируса дописывается в один из системных файлов ОС, например в explorer.exe или shell32.dll.

Стоит опасаться и файлов с двойным расширением, например «sexy_girl.jpg.exe» . В последнем случае, если вы не пользуетесь файловым менеджером, а работаете через проводник, то вы увидите просто «sexy_girl.jpg» , настоящего расширения проводник при стандартных настойках вам не покажет, так как.exe считается стандартным расширением и не отображается.

В меню любой папки нужно зайти в Сервис => Свойства папки . На вкладке Вид выбираем Показывать скрытые файлы и папки и убираем галочку на Скрывать защищённые системные файлы .

Теперь все эти файлы отображаются, но будьте осторожны! Как правило, эти файлы нельзя переименовывать, перемещать, редактировать или удалять!