Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Владимир Делфи
1

Считать из текстового файла определенное количество символов

11.09.2013, 19:22. Просмотров 1088. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
Добрый вечер уважаемые форумчане у меня такой вопрос 
как из текстового файла считать определенное число символов в переменную 
например 3000 символов а затем их удалить из текстового файла чтобы считать следующие 
3 000 символов
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.09.2013, 19:22
Ответы с готовыми решениями:

Считать определенное количество символов из файла
Здравствуйте. У меня возникла необходимость считать из файла по одному символу. Тоесть у меня в...

Нужно считать с файла определенное число символов и эти символы удалить из файла
Нужно считать с файла определенное число символов и эти символы удалить из файла

Нужно считать с конца файла определенное число символов
Нужно считать с конца файла определенное число символов.

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

1
Фрилансер
3404 / 2801 / 3000
Регистрация: 08.02.2012
Сообщений: 7,818
Записей в блоге: 1
13.09.2013, 10:57 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Const n=3000;
Var a:array[1..n] of char;
    f,g:text;
    k:integer;
    ch:char;
Begin
    Assign(f,'in.txt');Reset(f);
    k:=0;
    While k<n do
    Begin
      read(f,ch);
      if (ch<>#10) and (ch<>#13) then
      Begin
        inc(k);
        a[k]:=ch;
      End;
    End;
    Assign(g,'out.txt');Rewrite(g);
    read(f,ch);
    While not Eof(f) do
    Begin
      read(f,ch);
      write(g,ch);
    End;
    Close(f);Close(g);
    Erase(f);
    Rename(g,'in.txt');
    readln;
End.
У меня работает)Проверял при N=10
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.09.2013, 10:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вырезать из одного текстового файла определённое количество первых строк и вставить их в другой
Здравствуйте. Пожалуйста, помогите создать батник. Необходимо, чтобы из файла &quot;2.txt&quot;...

Как считать определённое количество цифр заданного числа (считать число до заданной цифры)?
как считать число 12345 до символа 5? То есть 1234 присвоить другой переменной?.:wall:

Из файла вывести строки, имеющие 3 пробела или определенное количество заданных символов
из текстового файла вывести строки имеющие 3 пробела или определенное кол-во определенных...

Запуск bat-файла определенное количество раз и определенное количество дней
1 есть .bat файл, который запускает некий скрипт. Требуется настроить его так, что бы запуск...


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

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

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