Вниз
Скачать: CL | DM;

чтение из файла   Найти похожие ветки 

← →
~Alice~ ©   (2002-03-13 22:20) [0]

Люди тут такая фигня: есть txt-файл содержимое которого примерно такое:
1#30#123
2#20#123
3#40#123
посоветуйте, как можно считать из этого файла так что бы при обнаружении # данные до нее(#) заносились в ячейку базы данниых например в access


← →
Miwa ©   (2002-03-13 22:27) [1]

Немного не понял сути вопросса. Может, вот это?

AssignFile(txtfile,"yourfile.txt");
Reset(txtfile);
while not eof(txtfile) do
begin
readln(txtfile,s);
for i:=1 to length(s) do if s[i]="#" then break;
delete(s,i,length(s));
//ну вот, теперь в переменной s у тебя то, что в строке до символа "#"
end;


← →
Anatoly Podgoretsky ©   (2002-03-13 22:38) [2]

Если содержимое именно такое, то
S := Copy(S,1,Pos("#",S)-1);
это вместо for/delete так как по определению это не рабочий код, хотя выглядит таковым


← →
Miwa ©   (2002-03-14 01:19) [3]

2 Anatoly Podgoretsky © (13.03.02 22:38)

> по определению это не рабочий код, хотя выглядит таковым

Объясните, пожалуйста, почему? У меня вроде работает.


← →
Ирина   (2002-03-14 02:59) [4]

Удалено модератором


← →
ProgMan ©   (2002-03-14 08:57) [5]

> Miwa © (14.03.02 01:19)
Возможно, уважаемый Anatoly Podgoretsky имел ввиду не это, но попробую ответить:
Счетчик цикла после окончания цикла имеет неопределенное значение.


← →
SVM   (2002-03-14 09:25) [6]

А нельзя использовать импорт из файла прямо в Accesse?


← →
Anatoly Podgoretsky ©   (2002-03-14 23:11) [7]

ProgMan © (14.03.02 08:57)
Это тоже и в конкретных реализациях I будет иметь разное значение по окнчанию цикла (для случая если цикл отработает полностью), но есть еще и второе - это направление цикла в зависимости от оптимизации это может быть или первый или второй символ # вот это уже похуже. Поэтому этот код нельзя считать рабочим, надо обеспечить две вещи действительность указателя и его правильность.

Я объяснил?



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c
1-90958
Alibaba
2002-03-14 17:47
2002.03.28
Delphi-Excel


3-90798
Ozz
2002-03-01 13:04
2002.03.28
Надоели проблемы с BDE!


1-90997
Brand
2002-03-13 14:45
2002.03.28
Delphi6 and Rxlib


1-90877
Man-In-Red
2002-03-17 14:42
2002.03.28
Help!!!


1-90970
Art1
2002-03-14 09:40
2002.03.28
Где найти компонент для чтения и записи XLS файлов?




   Наверх