PLSQL入门与精通(第49章:写文件)

本次接着上次文件写入的例子,进行详细解释。

我们需要往test.txt这个文件里边写入2行:

--------------------
你好。
您好吗?
--------------------

代码如下:
SQL> DECLARE
2 /文件句柄的声明/
3 FH UTL_FILE.FILE_TYPE;
4 –
5 BEGIN
6 /文件打开⇒获取文件句柄/
7 FH := UTL_FILE.FOPEN(‘DATA_PUMP_DIR’,‘test.txt’,‘W’);
8 –
9 /用文件句柄往文件里边写一行/
10 UTL_FILE.PUT_LINE(FH,‘你好。’);
11 –
12 /再写一行/
13 UTL_FILE.PUT_LINE(FH,‘你好吗?’);
14 –
15 /最后关闭文件/
16 UTL_FILE.FCLOSE(FH);
17 END;
18 /

PL/SQL过程成功完成。

让我们详细解说一下把:

(1)文件句柄的声明(第3行)
首先,为了处理文件,每个文件都需要文件句柄。
事先在声明部声明要保存的变量。语法结构如下。
文件句柄变量 UTLFILE.FILE_TYPE;
也就是说,文件句柄的变量声明使用UTL FILE软件包的FILE_TYPE类型进行声明的。

(2)打开文件,获取文件句柄(第7行)
接着打开文件,将该文件的文件句柄取到(1)的文件句柄变量中。
语法结构如下。
文件句柄变量 := UTL_FILE.FOPEN(“目录”,“文件名”,“模式”);

	目录的意思是数据库服务器上的目录的名称。

	这个目录需要预先由管理员根据需要做成,并给予必要的用户操作权限(READ权限、WRITE权限)。

	这样,只有适当的用户才能对相应的目录读(READ)并写(WRITE)。这是处于安全考虑的。

	例如,在样本代码中,目录名为“DATA PUMP DIR”,为了调查具体在磁盘的那个目录下,可以进行以下查询。
		SQL> SELECT DIRECTORY_PATH FROM ALL_DIRECTORIES
			2 WHERE DIRECTORY_NAME = 'DATA_PUMP_DIR';

			DIRECTORY_PATH
			----------------------------------------------------------------------
			C:\u01\app\oracle\admin\orcl\dpdump\

			也就是说,“DATA_PUMP_DIR”的实际目录是  'C:\u01\app\oracle\admin \orcl\dpdump\'。
			请注意此目录是“服务器上的目录,不是客户端的目录”。

	在上面的查询中,ALL_ DIRECTORIES是数据的共享视图,是用于调查自己权限下的目录对象。

并且,如果进一步调查自己对该目录对象是否拥有READ权限,是否拥有WRITE权限等等。
调查权限可以通过以下查询语句得出:

SQL> SELECT TABLE_NAME, PRIVILEGE FROM USER_TAB_PRIVS_RECD
2 WHERE TABLE_NAME = ‘DATA_PUMP_DIR’
3 /

TABLE_NAME PRIVILEGE	
----------------------------------------------------------------------
DATA_PUMP_DIR WRITE
DATA_PUMP_DIR READ

上边查询结果表明,我对“DATA_PUMP_DIR”目录有WRITE权限和READ权限。

接下来是文件名,例子代码是“test.txt’。

接下来是模式,模式的意思如下:
R→打开读取(读取)
W→打开写入(Write)
A→用于追加写入的打开(Append)

例子代码中的模式是“W”,这表示打开写入。

(3)指定文件句柄,并写入该文件对应的内容(第10行、第13行)
UTL_FILE.PUT_LINE(文件句柄,字符串);

这样就可以在文件句柄所指定的文件中写入指定的字符串。

有如下语法结构:
UTL_FILE.PUT_LINE(文件句柄,字符串);
→输出一行,并在最后加上换行符(即1行)

UTL_FILE.PUT(文件句柄,字符串);
→输出一行,不加换行符

UTL_FILE.NEW_LINE(文件句柄)
→只写换行符

比如用PUT写ABC’,然后用PUT写‘DEF’,最后用NEW_LINE,最后写入的内容就是‘ABCDEF’这一行。

PUT LINE和PUT+NEW_LINE的结果是相同的。

另外,单独运行NEW_LINE的话,可以空出一行。

这就是写文件的详细内容,接下来我们针对文件的读详细解释一下。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Oracle P/L SQL实现FTP上传、下载功能,以下是此过程包的头部,包体经常打包处理plb,感兴趣用户可以下载下来。 --Oracle上的FTP功能 Create or Replace Package UTL_FTP AUTHID CURRENT_USER as Type Connection is Record( Connection UTL_TCP.Connection, AccountInfo VarChar2(1000), TransferMethod Char(1), --A: ASCII, E: EBCDIC, I: IMAGE TransferOption Char(1), LocalDirectory VarChar2(30), LastReply VarChar2(32767 ) ); Type File_List is Table of VarChar2(32767) Index by Binary_Integer; is_FTPStatus VarChar2(800) := 'disconnect'; is_FTPPort Constant Integer := 21; is_TransferMethod Constant VarChar2(10) := 'ASCII'; ii_OutputLog Constant Integer := 1; ii_RollBufferLog Constant Integer := 2; ii_ClientInfoLog Constant Integer := 4; -- Per RFC 959, if account info ( ACCT ) is requested Then a 332 code -- should be Returned from the PASS command instead of a Positive Completion ii_FTPRequestAcct Constant Integer := 332; gb_Verbose Boolean := False; --是否记录冗长、累赘的日志 gi_LogOptions Integer := ii_OutputLog; gs_LogText VarChar2(32767) := Null; Procedure p_SetVerbose( ab_Verbose in Boolean ); Procedure p_SetLogOptions( ai_LogOptions in Integer ); Procedure p_ClearLog; --登录到远程FTP服务器 Function f_Login( as_RemoteHost in VarChar2, as_Username in VarChar2, as_Password in VarChar2, as_LocalDirectory in VarChar2 Default Null, as_RemoteDir in VarChar2 Default Null, as_TransferMethod in VarChar2 Default is_TransferMethod, ai_Timeout in Integer Default Null, ai_FTPPort in Integer Default is_FTPPort, as_AccountInfo in VarChar2 Default Null )Return Connection; Procedure p_Logout( ac_Connection in out Nocopy Connection ); Procedure p_SendFTPCmd( ac_Connection in out Nocopy Connection, as_Command in VarChar2, as_Argument in VarChar2 Default Null, as_AccountInfo in VarChar2 Default Null ); Procedure p_ReadReply( ac_Connection in out Nocopy Connection ); Procedure p_Rename( ac_Connection in out Nocopy Connection, as_OldFilename in VarChar2, as_NewFilename in VarChar2 ); Procedure p_DeleteFile( ac_Connection in out Nocopy Connection, as_Filename in VarChar2 ); Function f_isDirectory( ac_Connection in out Nocopy Connection, as_Directory in VarChar2, ab_CDToo in Boolean Default True )Return Boolean; Procedure p_CreateDirectory( ac_Connection in out Nocopy Connection, as_Directory in VarChar2 ); Procedure p_DeleteDirectory( ac_Connection in out Nocopy Connection, as_Directory in VarChar2 ); Procedure p_SetTransferMethod( ac_Connection in out Nocopy Connection, as_TransferMethod in VarChar2, as_Option in VarChar2 Default Null ); Procedure p_RemoteCD( ac_Connection in out Nocopy Connection, as_Directory in VarChar2, ab_CreateDir in Boolean Default True ); Procedure p_RemoteCDup( ac_Connection in out Nocopy Connection ); Function f_RemotePWD( ac_Connection in out Nocopy Connection )Return VarChar2; Procedure p_PutClob( ac_Connection in out Nocopy Connection, ac_LocalClob in Clob, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null ); Function f_PutClob( ac_Connection in out Nocopy Connection, ac_LocalClob in Clob, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null )Return VarChar2; Procedure p_PutBlob( ac_Connection in out Nocopy Connection, ab_LocalBlob in BLOB, as_RemoteFilename in VarChar2, ab_ForceBinary in Boolean Default True --强制为二进制 ); Procedure p_GetClob( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, ac_LocalClob in out Nocopy Clob, as_TransferMethod in VarChar2 Default Null ); Function f_GetClob( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null )Return Clob; Procedure p_GetBlob( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, ab_LocalBlob in out Nocopy BLOB, ab_ForceBinary in Boolean Default True ); Function f_GetBlob( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, ab_ForceBinary in Boolean Default True )Return BLOB; Procedure p_PutFile( ac_Connection in out Nocopy Connection, ai_LocalFilename in UTL_File.File_Type, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null ); Procedure p_PutFile( ac_Connection in out Nocopy Connection, as_LocalDirectory in VarChar2, as_LocalFilename in VarChar2, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null ); Function f_PutFile( ac_Connection in out Nocopy Connection, as_LocalDirectory in VarChar2, as_LocalFilename in VarChar2, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null )Return VarChar2; Procedure p_PutFile( ac_Connection in out Nocopy Connection, as_LocalDirectory in VarChar2, as_LocalFilename in VarChar2 ); Procedure p_GetFile( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, as_LocalDirectory in VarChar2, as_LocalFilename in VarChar2, as_TransferMethod in VarChar2 Default Null ); Procedure p_GetFile( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, as_TransferMethod in VarChar2 Default Null ); Procedure p_GetFile( ac_Connection in out Nocopy Connection, as_RemoteFilename in VarChar2, ai_LocalFilename in out Nocopy UTL_File.File_Type, as_TransferMethod in VarChar2 Default Null ); Procedure p_GetFileList( ac_Connection in out Nocopy Connection, afl_List out File_List, as_RemotePath in VarChar2 Default Null, ab_FilenameOnly in Boolean Default True, as_FilenamePrefix in VarChar2 Default Null, as_FilenameExt in VarChar2 Default Null, as_TransferMethod in VarChar2 Default is_TransferMethod ); Function f_GetFileList( ac_Connection in out Nocopy Connection, as_RemotePath in VarChar2 Default Null, ab_FilenameOnly in Boolean Default True, as_FilenamePrefix in VarChar2 Default Null, as_FilenameExt in VarChar2 Default Null, as_TransferMethod in VarChar2 Default is_TransferMethod )Return File_List; --根据FTP参数或系统事先设定好的IP登录到FTP服务器 --Select UTL_FTP.f_ConnectFTP() From dual; Function f_ConnectFTP( as_RemoteSubDir in VarChar2 Default Null, --Remote Subdirectory as_RemoteFileWildcard in VarChar2 Default Null, --Remote File Wildcard --删除之前生成的文件 如I02-UB*.xls as_FTPServer in VarChar2, --FTP Server as_FTPUserID in VarChar2, --FTP User ID as_FTPPasswd in VarChar2 --FTP Password )Return UTL_FTP.Connection; END UTL_FTP; /

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值