Joined: 15 Mar 2002 Posts: 155 Location: Новиков Алексей Юрьевич Occupation: ПБОЮЛ Interests: Пермь
Posted: 26 Sep 2007 16:14 Post subject:
Добрый день.
Вот кусок кода, читающий строки из текстового файла. Проверено, работает. Очередная строка содержится в a1 и cLine.
Code:
local vipfilename:='C:\besttree\12\import\vip.txt'
local vipfile:=fopen(vipfilename,0)
local aEol := { Chr(13) + Chr(10), Chr(10) }
local cLine
if vipfile<0
return
endif
a8:=0
do while a8=0
a8:=HB_FReadLine( vipfile, @cLine, aEol )
a1:=cLine
sayandwait(a1)
//Здесь Ваши операторы
enddo
fclose(vipfile)
a8:=HB_FReadLine( vipfile, @cLine, aEol ) - читает из файла с номером vipfile очередную строку, ограниченную символом(строкой) из aEol в переменную cLine. В a8 оказывается результат чтения. Если он меньше нуля, значит произошла ошибка чтения (например, файл закончился).
В БЭСТ-5 используется точно такой же блок код _________________ С уважением, Новиков Алексей.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
