![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
чтение из файла [D5, Win95/98]
~Alice~ © (2002-03-13 22:20:00)Люди тут такая фигня: есть txt-файл содержимое которого примерно такое:
1#30#123
2#20#123
3#40#123
посоветуйте, как можно считать из этого файла так что бы при обнаружении # данные до нее(#) заносились в ячейку базы данниых например в access
Anatoly Podgoretsky (2002-03-14 23:11:00) [1]ProgMan © (14.03.02 08:57)
Это тоже и в конкретных реализациях I будет иметь разное значение по окнчанию цикла (для случая если цикл отработает полностью), но есть еще и второе - это направление цикла в зависимости от оптимизации это может быть или первый или второй символ # вот это уже похуже. Поэтому этот код нельзя считать рабочим, надо обеспечить две вещи действительность указателя и его правильность.
Я объяснил?
SVM (2002-03-14 09:25:00) [2]А нельзя использовать импорт из файла прямо в Accesse?
ProgMan (2002-03-14 08:57:00) [3]> Miwa © (14.03.02 01:19)
Возможно, уважаемый Anatoly Podgoretsky имел ввиду не это, но попробую ответить:
Счетчик цикла после окончания цикла имеет неопределенное значение.
Ирина (2002-03-14 02:59:00) [4]Удалено модератором
Miwa (2002-03-14 01:19:00) [5]2 Anatoly Podgoretsky © (13.03.02 22:38)
> по определению это не рабочий код, хотя выглядит таковым
Объясните, пожалуйста, почему? У меня вроде работает.
Anatoly Podgoretsky (2002-03-13 22:38:00) [6]Если содержимое именно такое, то
S := Copy(S,1,Pos("#",S)-1);
это вместо for/delete так как по определению это не рабочий код, хотя выглядит таковым
Miwa (2002-03-13 22:27:00) [7]Немного не понял сути вопросса. Может, вот это?
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;