中国最全IT社区平台 联系我们 | 收藏本站
阿里云优惠2流量王
您当前位置:首页 > 数据库 > sybase > pb获取文本文档(txt文件)总行数的方法

pb获取文本文档(txt文件)总行数的方法

来源:程序员人生   发布时间:2014-03-04 01:24:03 阅读次数:991次

 在某些情况下,我们可能会有获取文本文档(txt文件)的总行数的需求。常规的做法是通过fileread,一行一行的读,然后统计累加行数,这样的做法是逼不得已的做法,因为我们都晓得它的效率有多低。
    其实,可以将文本文档(txt文件)当成数据库文件来处理,这样就可以通过sql语句简单快速的获取文本文档(txt文件)的总行数了。
   
[csharp]
global function long f_txt_rowcount (string as_file); 
 
 
//获取txt文件as_file的行数  by yyoinge 20111102 
if not fileexists(as_file) then return -1 
string ls_path, ls_file, ls_ext //路径、文件名(不带后缀)、后缀名 
long ll_rowcount 
//(1)分隔传入的文件名 
if posw(as_file, '.') = 0 or posw(as_file, '') = 0 then return -1 //传入的文件名有误 
ls_path = leftw(as_file,lenw(as_file) - posw(reverse(as_file), '') + 1) //文件路径 
ls_file = rightw(as_file,posw(reverse(as_file), '') - 1) //文件名(带后缀) 
ls_ext = midw(ls_file, posw(ls_file, '.') + 1) //后缀名 
ls_file = leftw(ls_file, posw(ls_file, '.') - 1) //文件名(不带后缀) 
     
//(2)连接txt文件 
oleobject rs, conn 
rs = create oleobject 
if rs.connecttonewobject("ADODB.Recordset") <> 0 then 
    destroy rs  
    messagebox('', '无法连接【ADODB.Recordset】!') 
    return -1 
end if 
conn = create oleobject 
if conn.connecttonewobject("ADODB.Connection") <> 0 then 
    destroy rs 
    destroy conn 
    messagebox('', '无法连接【ADODB.Connection') 
    return -1 
end if 
//conn.Open("Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" + ls_path + ';Extensions=' + ls_ext + ';') 
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ls_path + ';Extended Properties="text;HDR=No";') 
//rs.Open("select 1 from [" + ls_file + "#" + ls_ext + "]", conn, 3,3, 1) 
//ll_rowcount = long(rs.RecordCount()) 
//下面这种方法快一些 
rs.Open("select count(1) from [" + ls_file + "#" + ls_ext + "]", conn, 3,3, 1) 
ll_rowcount = long(rs.GetString(2, 1))// + 1用 
 
 
rs.close() 
conn.close() 
destroy rs 
destroy conn 
 
 
return ll_rowcount 
end function 
 
 
 
    调用方法如下:
 
long ll_rowcount 
ll_rowcount = f_txt_rowcount("e:3.txt")   
 

摘自 yyoinge的专栏
生活不易,码农辛苦
如果您觉得本网站对您的学习有所帮助,可以手机扫描二维码进行捐赠
程序员人生
------分隔线----------------------------
分享到:
------分隔线----------------------------
关闭
程序员人生