Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
gaji4ehok
0 / 0 / 0
Регистрация: 05.12.2011
Сообщений: 65
#1

Текстовый файл. Получить новый файл, исключая из i-той строки i первых символов - Pascal ABC

13.05.2012, 21:35. Просмотров 411. Ответов 1
Метки нет (Все метки)

Помогите, пожалуйста. Не знаю как перейти на нужную строку и создать новый фийл.
Дан текстовый файл f, содержащий 20 строк. Получить g исключая из i-той строки f i первых символов.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var s:string;
i,a,d:integer;
f,g:text;
 
begin
assign(f,'f.txt');
reset(f);
write('Enter nomer stroki');
readln(a);
i:=a;
while not (eof(f)) do
      begin
      assign (g,'g.txt');
      rewrite(g);
      readln(f,s);
      delete(s,1,i);
      end;
      close(g);
close(f);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2012, 21:35
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Текстовый файл. Получить новый файл, исключая из i-той строки i первых символов (Pascal ABC):

Дан текстовый файл f, содержащий 20 строк. Получить g исключая из i той строки f i последних символов - Pascal ABC
Дан текстовый файл f, содержащий 20 строк. Получить g исключая из i-той строки f i последних символов.

Текстовый файл. Сформировать новый файл, исключив строки, длина которых превышает 50 символов - Pascal ABC
Дан текстовый файл. Сформировать новый файл, исключив из него строки, длина которых превышает 50 символов. ЕСЛИ можно подправить незнаю...

Дан текстовый файл f и две строки s1 и s2. Получить текстовый файл g заменой ввода в файл f строки s1 на s2 - Pascal ABC
Дан текстовый файл f и две строки s1 и s2. Получить текстовый файл g заменой ввода в файл f строки s1 на s2. Помогите пожалуйста,...

Текстовый файл. В новый файл поместить те строки файла, которые содержат заданное слово - Pascal
Дан текстовый файл и некоторое слово. В новый файл поместить те строки файла, которые содержат данное слово. помогите пожалуйста!!!!

Файлы: переформатировать текстовый файл Т1 в файл Т2 с длинной строки N символов - Pascal ABC
составить программу которая переформатирует текстовый файл Т1 в файл Т2 с длинной строки N символов.Переформатирование производится без...

Получить текстовый файл g путём смены вхождений в файл f строки s1 на s2 - Pascal
Дано текстовый файл f и две строки s1 и s2. Получить текстовый файл g путём смены вхождений в файл f строки s1 на s2.

1
Одиночка
3927 / 1852 / 88
Регистрация: 16.03.2012
Сообщений: 3,869
15.05.2012, 01:11 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var s:string;
i,a,d:integer;
f,g:text;
 
begin
  assign(f,'f.txt');
  reset(f);
  assign (g,'g.txt');
  rewrite(g);
  write('Enter nomer stroki');
  readln(a);
  i:=1;
  while not (eof(f)) do
  begin
    readln(f,s);
    If i=a Then delete(s,1,i);
    WriteLn(g,s);
    Inc(i);
  end;
  close(g);
  close(f);
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2012, 01:11
Привет! Вот еще темы с ответами:

Текстовый файл. Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и записать в новый файл - Pascal
Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и записать её в новый файл. помогите...

Записать последовательность символов в текстовый файл, вставляя символы перевода строки через каждые 40 символов - Pascal ABC
Дана последовательность символов, заканчивающаяся точкой и вводимая пользователем с клавиатуры. Необходимо записать её в текстовый файл,...

Переписать второе слово каждой строки в новый текстовый файл - Pascal ABC
дан текстовый файл. переписать второе слово каждой строки в новый текстовый файл

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.