Вниз
Скачать: 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.013 c
1-90925
User_
2002-03-14 08:50
2002.03.28
Есть TListBox. Есть 2 строки в нем.


3-90741
Turalyon
2002-03-01 09:31
2002.03.28
InterBase 6


1-90840
-Stealtch-
2002-03-13 17:16
2002.03.28
Проблема импортированного ActiveX


4-91104
OGR
2002-01-27 23:23
2002.03.28
Как использовать функцию PrintWindow?


1-90982
anod
2002-03-14 14:00
2002.03.28
Отображение файлов FileListBox




   Наверх