如何对文件进行操作？

2024-11-26 08:09:50

<%@ LANGUAGE="VBScript" %>

<% 'Set file i/o constants.
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
filename = "test.txt"
path = Server.MapPath("data") & "\" & filename

' 映射文件名到服务器的物理路径.
operation = Request.Form("operation") %>

' 得到请求操作.
<html>
<head>
<title>千花飞舞之处理文件</title>
</head>
<body>
<font face="Arial,Helvetica" size=2>

<table bgcolor="#000000" border=0 cellpadding=1 cellspacing=0><tr><td>
<table bgcolor="#008080" border=0 cellpadding=8 cellspacing=0><tr valign=bottom><td>
<font face="Arial,Helvetica" size=2>
<form action="<% = Request.ServerVariables("script_NAME") %>" method="post">
<input name="operation" type="radio" value="create"> 创建
<input name="operation" type="radio" value="delete"> 删除
<input name="operation" type="radio" value="read" checked> 读取
<input name="operation" type="radio" value="write"> 写入
<input name="operation" type="radio" value="append"> 添加
<p>
<center>
<input type="submit" value="确定"> <input type="reset" value="重置">
</center>
</form>
<p>
<a href="fileops.html"><b>返回</b></a>
</font>
</td></tr></table>
</td></tr></table>
<p>

<%
if operation = "create" then
call CreateFile(path)
call ReadFile(path)
elseif operation = "delete" then
call DeleteFile(path)
elseif operation = "read" then
call ReadFile(path)
elseif operation = "write" then
call WriteFile(path)
call ReadFile(path)
elseif operation = "append" then
call AppendFile(path)
call ReadFile(path)
end if

' 执行请求操作.
%>
<p>
</font>
</body></html>

<% sub CreateFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists(path) then
Response.Write(<b>噢,文件" & filename & " 已经存在,创建失败!</b><br>" & vbCrLf)

' 如果文件早已存在则显示一个错误信息
else
Response.Write(恭喜, " & filename & "创建成功!<br>" & vbCrLf)

' 否则创建它并写入数据
set file = fs.CreateTextFile(path)
Response.Write(向" & filename & "写入数据...<br>" & vbCrLf)
file.WriteLine("Line 1 added " & Now() & ".")
file.WriteLine("Line 2 added " & Now() & ".")
file.WriteLine("Line 3 added " & Now() & ".")
file.WriteLine("Line 4 added " & Now() & ".")
file.WriteLine("Line 5 added " & Now() & ".")
file.Close()
end if
end sub
sub DeleteFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then

' 如果文件不存在则显示一个错误信息.
Response.Write(<b>噢,文件" & filename & "不存在,您删除什么!</b><br>" & vbCrLf)
else
Response.Write(恭喜," & filename & "删除成功!<br>" & vbCrLf)

' 否则删除它.
fs.DeleteFile(path)
end if
end sub
sub ReadFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
Response.Write(<b>噢,文件" & filename & "不存在,您读取什么!</b><br>" & vbCrLf)
' 如果文件不存在则显示一个错误信息.

else
set file = fs.OpenTextFile(path, ForReading)
Response.Write(恭喜," & filename & "读取成功!" & vbCrLf)

' 否则打开它并显示内容.
Response.Write("<p>" & vbCrLf)
Response.Write("<hr size=1>" & vbCrLf)
Response.Write("<font size=3><pre>" & vbCrLf)
do while not file.AtEndOfStream
Response.Write(file.ReadLine & vbCrLf)
loop
Response.Write("</pre></font>" & vbCrLf)
Response.Write("<hr size=1>" & vbCrLf)
file.Close()
end if
end sub
sub WriteFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
Response.Write(<b>噢,文件" & filename & "不存在,您写入什么!</b><br>" & vbCrLf)

' 如果文件不存在则显示一个错误信息.

else
set file = fs.OpenTextFile(path, ForWriting)

' 否则,改写内容.
Response.Write(Rewriting file " & filename & ".<br>" & vbCrLf)
file.WriteLine("Rewritting file with line 1 added " & Now() & ".")
file.WriteLine("Rewritting file with line 2 added " & Now() & ".")
file.WriteLine("Rewritting file with line 3 added " & Now() & ".")
file.Close()
end if

end sub

sub AppendFile(path)

dim fs, file

set fs = CreateObject("Scripting.FileSystemObject")

if fs.FileExists(path) then
set file = fs.GetFile(path)
if file.size > 500 then

' 如果文件存在,检查它的大小并退出,如果它超过500K.
Response.Write(<b>噢,文件" & filename & "超过了大小限制, 添加失败!</b><br>" &
vbCrLf)
exit sub
end if

else
Response.Write(噢,文件" & filename & "不存在!但它将会被创建...<br>" & vbCrLf)
end if
' 如果文件不存在,显示一个提示信息.

Response.Write(添加内容到文件" & filename & "...<br>" & vbCrLf)
set file = fs.OpenTextFile(path, ForAppending, true)
file.WriteLine("添加的新内容:" & Now() & ".")

' 当需要给它添加新内容时打开或创建文件
file.Close()

end sub %>

[1]

Java 对 Properties 文件的操作详解及简单实例

Java 对 Properties 文件的操作简介在 Java 中,我们常用 java.util.Properties.Properties 类来解析 Properties 文件,Properties 格式文件是 Java 常用的配置文件,它用来在文件中存储键-值对,其中键和值用等号分隔,格式如下: name=shawearn Properties 类是 java.util.Hashtable<Object, Object> 的子类,用于键和值之间的映射. 在对 Properties 格式
python文件读写操作与linux shell变量命令交互执行的方法

本文实例讲述了python文件读写操作与linux shell变量命令交互执行的方法.分享给大家供大家参考.具体如下: python对文件的读写还是挺方便的,与linux shell的交互变量需要转换一下才能用,这比较头疼. 代码如下: 复制代码代码如下: #coding=utf-8 #!/usr/bin/python import os import time #python执行linux命令 os.system(':>./aa.py') #人机交互输入 S = raw_input("
java之File对象对文件的操作常用的几个方法(推荐)

File对象是对文件操作最常用的类,平常工作总用的很多,贴出来了几个我工作常用的几个方法.简单总结了下直接上代码: //构建文件对象 File file=new File("E:/android_demo/a"); File fileTest=new File("E:/android_demo/a/test.mp3"); //获取文件的父路径 File f=file.getParentFile(); System.out.println("f==&quo
BAT批处理之文件与文件夹操作代码(附xcopy命令详解)

批处理中的文件.文件夹操作,xcopy命令的用法. 一,建bat文件自动执行复制,删除命令. 例1:复制cd.dll文件至windows\system32的bat文件内容: 复制代码代码如下: copy cd.dll %windir%\system32 例2:卸载windows\system32目录中的cd.dll,即把上面复制的文件删除: 复制代码代码如下: del %windir%\system32\cd.dll 例3:删除download文件夹中的文件,例子如下: 复制代码代码如下:
java使用Jdom实现xml文件写入操作实例

本文实例讲述了java使用Jdom实现xml文件写入操作的方法.分享给大家供大家参考,具体如下: package com.yanek.demo.xml.test; import java.io.File; import java.io.FileWriter; import org.jdom.Attribute; import org.jdom.Document; import org.jdom.Element; import org.jdom.input.SAXBuilder; import o
IOS 文件读写操作详解及简单实例

iPhone 文件读写操作 1,写文件操作 - (IBAction)btnWrite:(id)sender { //创建文件管理器 NSFileManager *fileManager = [NSFileManager defaultManager]; //获取路径 //参数要获取的哪种路径 NSArray *paths = NSSearchPathForDirectoriesInDomains(NSDocumentDirectory, NSUserDomainMask, YES); NSSt
asp.net 细说文件读写操作（读写锁）

问题大部分如下: 1:写入一些内容到某个文件中,在另一个进程/线程/后续操作中要读取文件内容的时候报异常,提示 System.IO.IOException: 文件"XXX"正由另一进程使用,因此该进程无法访问此文件. 2:在对一个文件进行一些操作后(读/写),随后想追加依然报System.IO.IOException: 文件"XXX"正由另一进程使用,因此该进程无法访问此文件.次问题与1相似. 3:对一个文件进行一些操作后,想删除文件,依然报System.IO.IO
Path类与Directory类与File类对路径/目录/文件的操作实例

Path 对路径字符串进行操作获得后缀能合并路径获取文件名 Directory和DirectoryInfo 对目录进行操作判断目录是否存在创建目录删除目录获取目录下所有的子目录获取目录下所有的子文件 File和FileInfo 对文件进行操作读文件写文件追加文件判断文件是否存在创建文件删除文件 1.Path类复制代码代码如下: using System; using System.IO;//目录和文件操作的名称空间 namespace _11_Path类 { c
PHP文件及文件夹操作之创建、删除、移动、复制

创建FileUtil.php文件,内容及调用方式如下: <?php /** * 操纵文件类 * * 例子: * FileUtil::createDir('a/1/2/3'); 测试建立文件夹建一个a/1/2/3文件夹 * FileUtil::createFile('b/1/2/3'); 测试建立文件在b/1/2/文件夹下面建一个3文件 * FileUtil::createFile('b/1/2/3.exe'); 测试建立文件在b/1/2/文件夹下面建一个3.exe文件 * FileUtil
python写xml文件的操作实例

本文实例讲述了python写xml文件的操作的方法,分享给大家供大家参考.具体方法如下: 要生成的xml文件格式如下: <?xml version="1.0" ?>  <book> <title> sample xml thing </title> <author> <name> <first> ma </fir

如何对文件进行操作？

相关推荐

随机推荐