关于pb取文档TXT文件每行行数的方法

[oldabc]

关于
pb9.0取文档TXT文件每行行数的方法
大家手里有吗
还是PB自己就提供

大家指教。

解决马上给分！！！






如下：取每行的行值

From:   STACO                                                                                                                   
To:     STACO(BCC),UNISO                                                                                                        
CC:                                                                                                                             
Subj:    XIANG CANG  V.2517E                                                                                                     
Text:                                                                                                                           
00TALLY DATA CHECK              CNSHAPENSHOF PENSHWSXIANG CANG                         2517E 200903232330200903240900           
31F  AMFU8853220HAS151110340HCHHSHA097625269    1074 P'KGS     67000115740 36000020882JPOSAJPOSA    W                           
31F  BMOU2109570I900800   20GPSHAOSA001520       375 P'KGS     22100 37360 22000130582JPOSAJPOSA    W                           
31F  BMOU2141334I653341   20GPSHAOSA001421        43 P'KGS     11060  5740 22000170208JPOSAJPOSA    W                                  

[WorldMobile]

取每行的行值，你想得到长度，还是得到每行的文本


你用fileopen以行模式打开文件，然后读取到字符串中即可

[hxbkkk]

integer li_FileNum

li_FileNum = FileOpen("C:\DEPT\EMPLOYEE.DAT", &

LineMode! , Write!, LockWrite!, Replace!)

[WorldMobile]

integer li_FileNum

string ls_Emp_Input

long ll_FLength

ll_FLength = FileLength64("C:\HR\EMP_DATA.TXT")

li_FileNum = FileOpen("C:\HR\EMP_DATA.TXT", LineMode!)

IF ll_FLength < 32767 THEN

FileRead(li_FileNum, ls_Emp_Input)

END IF

[hxbkkk]

long l_fn
int i_count,i_rc
string s_line
l_fn = fileopen("xxx.txt")

i_rc = fileread(l_fn,s_line)

do while i_rc <>-100
i_count+=1
i_rc = fileread(l_fn,s_line)
loop


i_count总行数

[hxbkkk]

long l_fn
int i_count,i_rc
string s_line
l_fn = FileOpen("C:\DEPT\EMPLOYEE.DAT",LineMode! , Write!, LockWrite!, Replace!)
i_rc = fileread(l_fn,s_line)

do while i_rc <>-100
i_count+=1
i_rc = fileread(l_fn,s_line)
loop


i_count总行数