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

Free Pascal

Войти
Регистрация
Восстановить пароль
 
galaid
288 / 33 / 2
Регистрация: 20.09.2011
Сообщений: 464
#1

Строки в текстовом файле длиннее 255 символов - Free Pascal

21.01.2012, 13:35. Просмотров 870. Ответов 5
Метки нет (Все метки)

Здраствуйте. Имеется текстовый файл со следующим содержанием:
Код
1 2 .. n
n+1 n+2 ... 2*n
где n - какое-либо число.
Как сохранить данные в масив, учитывая то, что длина любой из строк в файле может превышать 255 символов?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2012, 13:35
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Строки в текстовом файле длиннее 255 символов (Free Pascal):

Как в паскале использовать строки String длиннее 255 символов? - Pascal
Если с числами это понятно, надо думать о длинной арифметике, то со строками не совсем, у меня постоянно происходит переполнение строки,...

Как записать строку длиннее 255 символов в массив? - Pascal
Я понимаю, что надо посимвольно копировать каждую введённую букву в массив, но как выделять эти символы если вводится одна строка...

Как читать строки больше 255 символов - Pascal
Помогите пожалуйста в файле содержится зашифрованный текст но его длина меньше равна 200000 символам!!!!. Текст то я расшифровал а как...

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

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

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

5
Puporev
Модератор
52381 / 40228 / 13565
Регистрация: 18.05.2008
Сообщений: 92,967
21.01.2012, 13:49 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a:array[1..10000] of integer;
     f:text;
     x:integer;
begin
..........................
n:=0;
while not eof(f) do
 begin
  read(f,x);
  n:=n+1;
  a[n]:=x;
 end;
........
end.
0
galaid
288 / 33 / 2
Регистрация: 20.09.2011
Сообщений: 464
21.01.2012, 14:00  [ТС] #3
Puporev, таким образом можно считать в массив одну строку в файле.
А если таких строк несколько?
0
Puporev
Модератор
52381 / 40228 / 13565
Регистрация: 18.05.2008
Сообщений: 92,967
21.01.2012, 14:03 #4
galaid, Так считываются все числа файла, а если 1 строку то
Pascal
1
while not eoln(f) do
0
galaid
288 / 33 / 2
Регистрация: 20.09.2011
Сообщений: 464
22.01.2012, 10:26  [ТС] #5
Реализовал следующим образом:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Assign(Input,'input.txt');
  Reset(Input);
  n1:=0;
  while eof(Input)<>true do
    begin
      while eoln(Input)<>true do
      begin
        Read(Input,Mas1[n1+1]);
        n1:=n1+1;
      end;
      Readln(Input,Mas1[n1+1]);
      n1:=n1+1;
      if Mas1[n1]='' then n1:=n1-1;
    end;
  Close(Input);
0
Puporev
Модератор
52381 / 40228 / 13565
Регистрация: 18.05.2008
Сообщений: 92,967
22.01.2012, 10:53 #6
Цитата Сообщение от galaid Посмотреть сообщение
Реализовал следующим образом:
Ну если нравится через Ж... то вольному воля, нефиг и спрашивать было...
0
22.01.2012, 10:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2012, 10:53
Привет! Вот еще темы с ответами:

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

удаление строки в текстовом файле и поиск. - Pascal
Здарова всем! У меня проблема с написанием кода в Паскале! 1.Вобщем как можно удалить строку (ту которую я захочу) в текстовом...

Строки матрицы в текстовом файле занести в массив - Pascal
есть например некая матрица в текстовом файле 1 -5 7 8 2 -3 5 4 8 -6 1 9 как такую матрицу можно занести в массив,...

В текстовом файле поменять местами чётные и нечётные строки - Pascal
Создать файл, содержащий произвольные строки. Заменить строки файла так, чтобы их порядок был следующим: 2, 1, 4, 3, 6, 5, ... Вывести на...


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

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

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