Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Столбец из .txt в массив? [D7, XP]

Страницы: < 1 2
neon-w © (2008-12-06 18:18:00)
Удалено модератором
Примечание: спам

Германн (2008-12-08 02:09:00) [21]

> Тын-Дын © (08.12.08 02:00) [18]
>
>
> > Германн © (08.12.08 01:53) [17]
> > > Тын-Дын © (07.12.08 14:30) [16]> > > > Johnnnn (07.
>
> > 12.08 09:03) [14]> > > При работе с двузначным числом
> всё
> > будет в порядке.> > Приведённый пример - решение проблемы
> > автора. Проблемы именно > в этом виде, именно этой проблемы,
>
> > и никакой другой проблемы.> Лучше бы ты жевал. :(
>
>
> Ну в этой ветке пока жуёшь только ты из всех. Причем непонятно
> что.
> Понятно было б, если б что сказал... В принципе... А то
> ведь только жуёшь...
>

Образно говоря я жую, а ты отрыгиваешь.

{RASkov} (2008-12-08 02:02:00) [22]
Хватит вам :) Как маленькие)

Тын-Дын (2008-12-08 02:00:00) [23]

> Германн © (08.12.08 01:53) [17]
> > Тын-Дын © (07.12.08 14:30) [16]> > > > Johnnnn (07.
> 12.08 09:03) [14]> > > При работе с двузначным числом всё
> будет в порядке.> > Приведённый пример - решение проблемы
> автора. Проблемы именно > в этом виде, именно этой проблемы,
> и никакой другой проблемы.> Лучше бы ты жевал. :(

Ну в этой ветке пока жуёшь только ты из всех. Причем непонятно что.
Понятно было б, если б что сказал... В принципе... А то ведь только жуёшь...

Германн (2008-12-08 01:53:00) [24]

> Тын-Дын © (07.12.08 14:30) [16]
>
>
> > Johnnnn (07.12.08 09:03) [14]
>
>
> При работе с двузначным числом всё будет в порядке.
>
> Приведённый пример - решение проблемы автора. Проблемы именно
> в этом виде, именно этой проблемы, и никакой другой проблемы.
>

Лучше бы ты жевал. :(

Тын-Дын (2008-12-07 14:30:00) [25]

> Johnnnn (07.12.08 09:03) [14]

При работе с двузначным числом всё будет в порядке.

Приведённый пример - решение проблемы автора. Проблемы именно в этом виде, именно этой проблемы, и никакой другой проблемы.

Если тебе нужно разбирать другой файл - бери и пиши.

Разбор текстовых файлов - как правило в каждом случае уникален.
В этом случае простейшее оптимальное решение такое.
В другом случае я бы посоветовал другое. Например, конечные автоматы.
Может не TStrigList, а построчное чтение из файла.

{RASkov} (2008-12-07 13:30:00) [26]
var Arr: array of array of array of Integer;
....
StLength(Arr, 10, 30, 40);

> [14] Johnnnn (07.12.08 09:03)
> а что будет

Пипец будет... Тут подумать нужно, а не копировать один в один :)
Пример в [8] - больше частный случай, чем универсальный алгоритм... Толчок для мысли.)

Johnnnn (2008-12-07 09:03:00) [27]
Кстати там все конечно хорошо только а что будет если к примеру двузначное число будет записано ну в "B столбец"?

Johnnnn (2008-12-07 08:16:00) [28]
Вы че собственна? Пример как пример, флуд? Ну просто люди которые разбираються им кажется что ето все елементарно, а на самом деле может чел вобще незнает за что ухватиться, а вопрос решить надо, да и к томуже вопрос интиресный.

Тын-дын
А как SetLength работает если массив 2 3 мерный? или вобще никак?

Германн (2008-12-07 02:00:00) [29]

> Тын-Дын © (07.12.08 01:42) [11]
>
>
> > По твоему в текстовом файле можно опираться на значения
> > выдаваемые функцией Pos в первой строке?
>
>
> Ты где-то написал другое?

Я?
А при чём тут я?
В сабже приведён был пример, который никак не вписывается в Тын-Дын © (07.12.08 01:22) [8]

Тын-Дын (2008-12-07 01:42:00) [30]

> По твоему в текстовом файле можно опираться на значения
> выдаваемые функцией Pos в первой строке?

Ты где-то написал другое?
Ну тогда тебе в трёп и там отсиживаться, слушая более знающих людей.

Германн (2008-12-07 01:31:00) [31]

> Тын-Дын © (07.12.08 01:22) [8]
>
>
> > Нужно вытащить из него столбец B и занести его значения
> > в массив... Как это можно сделать?Если не трудно приведите
> > плиз примеры кода.Заранее благодарен.
>
>
> var
> n1,n2: Integer;
> i: integer;
> L: TStringList;
> Arr: array of Integer;
> begin
> L := TStringList.Create;
> try
> L.LoadFromFile('file.txt');
> n1 := Pos('B',L[0]);
> n2 := Pos('C',L[0]);
> if not (n2>n1) then raise Exception.Create('Error');
>
> n2 := n2-n1;
> SetLength(Arr,L.Count-1);
> for i := 1 to L.Count-1 do
> begin
> Arr[i-1] := StrToInt(Trim(Copy(L[i],n1,n2)));
> end;
> finally
> L.Free;
> end;
> <Цитата>
>
> Тын-Дын © (07.12.08 01:23) [9]
>
> PS. Самое безобидное слово - бредофлудогоны.
>

Самое безобидное слово - неучи!
Которые возомнили себя грамотеями!
По твоему в текстовом файле можно опираться на значения выдаваемые функцией Pos в первой строке?

Тын-Дын (2008-12-07 01:23:00) [32]
PS. Самое безобидное слово - бредофлудогоны.

Тын-Дын (2008-12-07 01:22:00) [33]

> Нужно вытащить из него столбец B и занести его значения
> в массив... Как это можно сделать?Если не трудно приведите
> плиз примеры кода.Заранее благодарен.

var n1,n2: Integer; i: integer; L: TStringList; Arr: array of Integer; begin L := TStringList.Create; try L.LoadFromFile('file.txt'); n1 := Pos('B',L[0]); n2 := Pos('C',L[0]); if not (n2>n1) then raise Exception.Create('Error'); n2 := n2-n1; SetLength(Arr,L.Count-1); for i := 1 to L.Count-1 do begin Arr[i-1] := StrToInt(Trim(Copy(L[i],n1,n2))); end; finally L.Free; end;

Германн (2008-12-07 00:37:00) [34]
Опять кто-то в текстовом файле нашёл "столбцы" и не может понять как к ним достучаться.
Привет Джо ещё раз :) Уверен, что не последний :)

Johnnnn (2008-12-06 22:38:00) [35]
Memo1.loadfromfile('1.txt');
for i:=0 to memo1.lines.count-1 do begin
s:=memo1.lines[i];
while i2=0 do begin
if pos(' ',s)<>0 then begin
s1:=copy(s, 1, pos(' ',s)-1);
delete(s, 1, pos(' ',s)+1);
end else begin
s1:=s;
i2:=1;
end;
i1:=i1+1;
a[i].[i1]:=s1;
end;
end;

чисто так просто от нечего делать нет желания разбираться правильно или нет может комуто тож скучно подправит че нетак

Johnmen (2008-12-06 21:07:00) [36]

> Anatoly Podgoretsky © (06.12.08 20:51) [3]
> Что лично ты сделал для решение данной "проблемы".

Вот так ответил бы аффтар:
Как "что"??? Запостил сюда! Это большая и сложная работа. И я с ней справился!

Смирнов Сергей (2008-12-06 21:06:00) [37]

> Anatoly Podgoretsky © (06.12.08 20:51) [3]

Задал вопрос :)

Anatoly Podgoretsky (2008-12-06 20:51:00) [38]
Что лично ты сделал для решение данной "проблемы".

Johnmen (2008-12-06 20:38:00) [39]

> Нужно вытащить из него столбец B и занести его значения
> в массив...

Кому нужно?

{RASkov} (2008-12-06 18:35:00) [40]
> Как это можно сделать?

Что именно непонятно?

> приведите плиз примеры кода.

Это ты приводи, а мы поможем где не ясно....

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »