`
- 浏览:
826777 次
- 性别:
- 来自:
珠海
-
-
createorreplacepackageYLFileop_packis
- --Author:YANLEI
-
--Created:2008-12-2416:08:02
- --Purpose:文件操作包
-
YL_DIRCONSTANTvarchar2(32):='YL_DIR';--财务表收费FormID
- --从后面查找
-
functionlastindex(strinvarchar2,findstrinvarchar2)returninteger;
- --获得一个文件的路径
-
functiongetpath(filenameinvarchar2)returnvarchar2;
- --获得一个文件的文件
-
functiongetfilename(filenameinvarchar2)returnvarchar2;
-
procedurewritefile(filenameinvarchar2,strinlong);
-
functionreadfilereturnvarchar2;
-
endYLFileop_pack;
- /
-
createorreplacepackagebodyYLFileop_packis
-
isto_fileutl_file.file_type;--如上
-
proceduresetoraclepath(pathinvarchar2)is
-
sqlstrvarchar2(1024);
-
begin
-
sqlstr:='createorreplacedirectory'||YL_DIR||'as'''||path||'''';
- executeimmediatesqlstr;
-
end;
-
--oracle字符串从后面查找byyanleigisEmail:landgis@126.com
-
functionlastindex(strinvarchar2,findstrinvarchar2)returnintegeris
-
iinteger;
-
numinteger;
-
sublninteger;
-
begin
- num:=length(str);
- subln:=length(findstr);
-
ifsubln>numthen
-
return-1;
-
endif;
-
i:=num-subln+1;
-
whilei>0loop
-
ifsubstr(str,i,subln)=findstrthen
- returni;
-
endif;
-
i:=I-1;
-
endloop;
-
return-1;
-
end;
- --获得一个文件的路径
-
functiongetpath(filenameinvarchar2)returnvarchar2is
-
idxinteger;
-
begin
-
idx:=lastindex(filename,'/');
-
if(idx>0)then
-
returnsubstr(filename,1,idx);
-
endif;
-
return'';
-
end;
- --获得一个文件的文件
-
functiongetfilename(filenameinvarchar2)returnvarchar2is
-
idxinteger;
-
begin
-
idx:=lastindex(filename,'/');
-
if(idx>0)then
-
returnsubstr(filename,idx+1);
-
endif;
-
return'';
-
end;
-
functionopenfile(filenameinvarchar2,stateinvarchar2)returnintegeris
-
pathvarchar2(1024);
-
begin
- path:=getpath(filename);
- setoraclepath(path);
-
isto_file:=utl_file.fopen(YL_DIR,getfilename(filename),state);
-
return1;
- exception
-
whenothersthen
-
dbms_output.put_line(sqlcode||':'||sqlerrm);
-
return0;
-
end;
-
functionopenfileread(filenameinvarchar2)returnintegeris
-
begin
-
returnopenfile(filename,'R');
-
end;
-
functionopenfilewrite(filenameinvarchar2)returnintegeris
-
begin
-
returnopenfile(filename,'W');
-
end;
-
procedurewriteline(strinvarchar2)is
-
begin
-
utl_file.put_line(isto_file,str);--写入字符串
-
end;
-
procedurewritelinelong(strinlong)is
-
begin
-
utl_file.put_line(isto_file,str);--写入字符串
-
end;
-
procedureclosefileis
-
sqlstrvarchar2(1024);
-
begin
-
--utl_file.fflush(isto_file);--刷缓冲
-
utl_file.fclose(isto_file);--关闭文件指针
-
sqlstr:='dropdirectory'||YL_DIR;
- executeimmediatesqlstr;
-
end;
-
procedurewritefile(filenameinvarchar2,strinlong)is
-
begin
-
ifopenfilewrite(filename)>0then
- writelinelong(str);
- closefile();
-
endif;
-
end;
-
functionreadlinereturnvarchar2is
- --读取一行放到fp_buffer变量里面
-
fp_buffervarchar2(20000);--
-
strvarchar2(4000);
-
begin
- loop
-
begin
-
utl_file.get_line(isto_file,str);--读取一行放到fp_buffer变量里面
- fp_buffer:=fp_buffer||str;
-
fp_buffer:=fp_buffer||chr(13);--chr(10)
- exception
-
whenno_data_foundthen
- exit;
-
end;
-
endloop;
- returnfp_buffer;
-
end;
-
functionreadfilereturnvarchar2is
-
strvarchar2(20000);
-
begin
-
ifopenfileread('c:/yl.w')>0then
- str:=readline;
- closefile();
- returnstr;
-
endif;
-
return'读文件失败';
-
end;
-
endYLFileop_pack;
- /
分享到:
Global site tag (gtag.js) - Google Analytics
相关推荐
如何将对ldap的操作与对oracle的操作封装在一个事务中? 如何处理分布的database,LDAP事务? 详见项目代码 其中测试文件位置:src\test\com\aua\service\impl\StudentServiceTest.java spring配置文件位置: src...
c#封装Oracle的oci驱动,可以直接操作Oracle。对以前的代码完善了下。由于上传大小原因,只保留了dll32里面的dll,32位系统直接复制到dll文件里面,64位系统则要下载对应的dll.
#封装Oracle的oci驱动,可以直接操作Oracle。继续对以前的代码完善了下。由于上传大小原因,只保留了dll32里面的dll,32位系统直接复制到dll文件里面,64位系统则要下载对应的dll.封装基本结束,以后有问题在继续。
通过jdbc的方式访问数据库: 1.程序是整理的韩顺平oracle教学视频中的一个例子。 2.假设本机安装了oracle...4.程序对数据库操作进行了一定程度的封装,封装函数放在SQLHelper类中,在TestOracleCrud中对函数进行测试。
分别是SQL、Access、Oracle的操作类,这三个类都是源于微源提供的高效率源码,其中Access类经过本人修正完善,Access和SQL类函数经过扩充,使其更加符合实际开发的需要,提高开发效率,缩短开发时间。本人为政府与...
c# 数据库操作的封装类,压缩包里的文件包含了所有数据库操作的封装类,很全,用取来也很方便
最近收集了一些关于THinkPHP连接Oracle数据库的问题,有很多朋友按照连接mysql的方法来操作,导致有一些方法在Oreale中无法正常使用。比如说:findAll,Select方法无法使用,获取不到需要的数据。Create和add方法...
1. 通用类库 DC.CommonLiteLib针对一些常用算法,线程管理,IO控制,以及ConvertHelper类型转换,StringHelper字符串封装,FileHelper 文件操作封装等,另有CHM官方文件解释用法。 2. 用数据库类库 DC....
对log4net进一步封装,即:LogBLL.cs(业务逻辑通用调用类)、LogOper.cs(文本日志文件操作类)、LogInfo.cs(日志实体类),支持mssqlserver2008(向下兼容)、oracle11g(向下兼容)。 本例附:dll文件、config...
Direct Oracle Access还含有一个Package向导,可以生成类,用以封装程序单元,并记录程序包中定义的类型。最终,将您的Oracle程序包变为Object Pascal或C++语言的自然扩展。 TOracleDataSet ——该数据集组件支持...
在VC中使用PRO*C时,先用PRO*C编写所需的操作数据库的子程序,再运行PRO*C预编译程序把PRO*C源程序转成相应的.CPP源程序,将该程序插入到用户工程文件中,并在需要对插入函数进行调用的模块中说明函数,然后就可以在...
数据库底层操作,调用相当简单,可以完成Sql、Oracle数据的增、删、改、执行存储过程功能,所有封装的方法请看文件"ConcSoft.Database.TXT",调用事例请看"调用ConcSoft.Database.dll事例.TXT",带日志追踪
其实sql server中也有侦听端口,只不过microsoft将侦听端口固定为...而oracle中的侦听端口直接在配置文件中,允许随便改动,只不过无论怎样改动,客户端的配置文件中的侦听端口要与oracle服务器端设置的侦听端口一致。
PDFOperation--C#PDF文件操作帮助类 类主要功能有1.构造函数2.私有字段3.设置字体4.设置页面大小 5.实例化文档6.打开文档对象7.关闭打开的文档8.添加段落9.添加图片10.添加链接、点 等功能 10.ResourceManager 操作...
FileHelper 文件操作封装等。 2,通用数据库类库 DC.CommonDbLiteLib 对常用的Access SqlServer,Oracle,mysql数据库进行了封装,一般情况下只需要调用一个IDatabaseInfo接口即可使用,而且切换数据库,除了数据库本...
针对不同数据库,进行的操作方法封装。 满足基本操作条件,增加、删除、修改、查询、事务、存储过程。 目前支持的数据库有:MySql,SqlServer,Oracle,SQLite,Access 调用方法 需要先配置访问数据库连接,并在初始化...
土地档案管理系统是主要是对文件档案进行操作的,即其主要的业务。所以本系统主要针对档案的记录进行增删改查的操作。实现这些核心功能之后,可以参考实际应用中个性化操作来添加功能。而在于开发的技术方面,主要...
剩下三个虚拟共享磁盘分别为 Q:1G,L:20G,M:20G 分区完成后,将除了系统盘外的所有逻辑驱动器进行格式化,之后将oracle与sap的安 装文件拷贝到H:盘 注:系统盘C:的空间分配可在安装操作系统时做好,以上操作就是两个节点...
通用的jdbc工具类封装,适合mysql和sqlserver以及oracle,其需要手动更改你所连接的数据库类型,配置文件在xml文件中,只需要修改xml的属性就可以正常连接你自己的数据库了。其中MySQL和sqlserver均已测试成功,因为...
08.文件操作 09.PB读写文件 10.关闭所有窗口+背景完善 11.错误捕获1+SystemError事件 12.错误捕获2+SystemError事件 13.数据窗口数据导出功能+ItemError事件+调用外部函数API 14.PB与Word、Excel的交互 15.图表控件...