:: View topic - ��

through

#1: ��  Author: ��,

Posted: 26 Sep 2007 15:55
—
�� ? � �� -�� . �� :

Code:

Local vipfilename := "E:\SED\0721l119.xr8"
Local vipfile := fopen(vipfilename, 0)
Local aEol := { Chr(13) + Chr(10), Chr(10) }
Local cLine, a1, a8, a2

if vipfile<0
return
endif

if a8=0
a8:=HB_FReadLine( vipfile, @cLine, aEol )
nLineCount++
dispoutat(1,0,'�� '+alltrim(str(nLineCount,5)))
a2 := ToRep(1)
endif
a1:=cLine
SayAndWait(a1)

� �� a1, a8 �� nil

�� HB_FReadLine()?

�� ?

� ��5 �� ?

#2: Author: Behemoth, Location: ��

Posted: 26 Sep 2007 16:14
—
�� .

�� , �� . ��, ��. �� 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 ��

-> �� -4

output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Page 1 of 1