filesystemobject同时读写（ASP 读取txt 然后累加在写入txt）

本文目录

• ASP 读取txt 然后累加在写入txt
• html或js怎么读写txt文件，如图所示的图片，想要循环读取输出怎么办
• 写个VBS脚本，实现以下功能（读取txt指定内容）大神们帮帮忙
• 如何使用批处理读取文本文档的固定行的内容并顺序添加到一个新的文本文档中
• VBScript中怎样对文本文件里读写数据

ASP 读取txt 然后累加在写入txt

《% dim txtfile,fso,MyFile,a,b,txt a="输入txt内容111111" txtfile=server.mappath("1.txt") Set fso = CreateObject("Scripting.FileSystemObject") set MyFile = fso.opentextfile(txtfile,2,true) Set txt = fso.OpenTextFile(txtfile,1) MyFile.WriteLine(a) b =txt.ReadAll MyFile.WriteLine(b) MyFile.Close %》 这样不就行了吗？结果是两行。干嘛要循环？调试你这玩意我多了一个2G的1.txt 你要刷新一次加一行，那么就要做个判断，判断这个文件是否存在，如果不存在，那么就创建，写入a，如果存在，那么就打开文件，读里面的东西，然后写入a == 你现在的代码是：创建1.txt ，然后写入a，接着把这个文件里面的东西读出来，再写入b。所以无论如何都是两行

html或js怎么读写txt文件，如图所示的图片，想要循环读取输出怎么办

《script language="javascript" type="text/javascript"》
function readFile(filename){
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.OpenTextFile(filename,1);
while (!f.AtEndOfStream)
alert(f.ReadLine());
}

《html》
《input type="button" value="Read!" onclick="document.getElementByIdx_x(’show’).value=readFile(’url.txt’);"/》《br》
《/html》

写个VBS脚本，实现以下功能（读取txt指定内容）大神们帮帮忙

这个比较简单，用 Scripting.FileSystemObject 读文本文件，然后利用 Split 函数处理每行字符串，下面是程序实现： SearchKeyword = InputBox("请输入查找的内容") Set fso = CreateObject(" Scripting.FileSystemObject ") set fp = fso.OpenTextFile("1.txt") Do While Not fp.AtEndOfStream str = fp. ReadLine () array_str = Split(str," ") MAC = array_str(0) HostName = array_str(1) If SearchKeyword=MAC Then Wscript.Echo HostName End If Loop fp.Close()

如何使用批处理读取文本文档的固定行的内容并顺序添加到一个新的文本文档中

’保存为vbs类型文件
’以下2种方法只需0~2毫秒处理完.所以只提供最快的一种方法
On Error Resume Next ’防止整个程序意外中断
dim fso,f,read,file,sread,path,save,savefolder ’声明变量
set fso=createobject("scripting.filesystemobject") ’创建对象fso
path="d:\man"
set f=fso.getfolder("D:\man") ’要读取的路径
savefolder=path&"\new folder" ’保存的路径
save=savefolder&"\New.txt" ’保存的文件
if dir(savefolder)="" then fso.createfolder savefolder ’判断保存的文件夹是否存在.不存在则新建一个文件夹
’分割线
’----------------------------------------------------------
’方法1,去掉每行注释符号’,就可以使用了.不过要注释掉方法2,只能任选其一
’for each i in f.files ’for循环查找目标路径的文件
’if fso.getextensionname(i)="txt" then ’判断后缀名是否是txt类型文件
’read=split(fso.opentextfile(i).readall,vbcrlf) ’读取全文并分割
’mkfile save&"/",read(1) ’截取第2行,并创建文件到目标路径
’end if
’next
’方法2.方法2速度可能会比1快点.只是不容易看出来而已..
for each i in f.files ’for循环查找目标路径的文件
if fso.getextensionname(i)="txt" then ’判断后缀名是否是txt类型文件
read=split(fso.opentextfile(i).readall,vbcrlf) ’读取全文并分割
readstr=readstr&read(1)&vbcrlf ’把要截取的内容储存到变量里
end if
next
readstr=left(readstr,len(readstr)-2) ’删除文件末尾空行
mkfile save,readstr ’写入并创建文件到目标路径
’-----------------------------------------------------------
’分割线
Function mkFile(ByVal File, ByVal Writes) ’自定义函数mkfile(创建文件函数)
On Error Resume Next ’发生错误时忽略中断,此代码是防止函数意外中断,和第一行不同.
If Right(File, 1) = "/" Then ’判断字符串倒数第一个字是否有符号"/".如果有则....
fs = Replace(File, "/", "") ’删除符号"/"
if dir(fs)="" then ’判断文件是否存在,不存在则...
fso.Createtextfile(fs).Write Writes ’新建文件,写入内容
exit function ’退出函数
else ’如果文件存在则...
sread = fso.opentextfile(fs).readall ’读取目标文件...
If Right(sread, 2) 《》 vbCrLf And Len(sread) 》 0 Then sread = sread & vbCrLf ’判断第一行是否有回车符.没有则写入回车符
fso.Createtextfile(fs).Writeline sread & Writes ’创建文件并写入内容到文件(追加新内容到文本末尾)
end if
else ’ 如果字符串倒数第一个字不是符号"/",则...
fso.Createtextfile(File).Write Writes ’创建文件并写入内容到文件(不追加新内容到文本末尾)
End If
End Function ’函数结束
public function dir(byval exist) ’判断文件(夹)存在函数
if fso.folderexists(exist&"\") then ’ 判断文件夹是否存在
if fso.folderexists(exist) then dir=fso.getfolder(exist) else dir=""
else
if fso.fileexists(exist) then dir=fso.getfile(exist) else dir="" ’ 判断文件是否存在
end if
end function
’==========================================
rem 分割线
’==========================================
rem 保存为bat类型文件
rem 方法1, 1秒~1.4秒处理完
@echo off&cd/d "d:\man"&md "New folder"
for /f "delims=" %%1 in (’dir /b "*.txt"’)do (
for /f "tokens=2 delims=:" %%2 in (’type "%%1"^|findstr/n "."^|findstr "2"’)do echo %%2》》"New folder\New.txt"
)
rem 2个for循环截取各个文件内容.一个负责查找文件,一个负责读取文件.给文件快速分行,快速确认目标行数,执行速度稍差.,是逐个文件读取,逐个输出
rem 方法2, 200~400毫秒处理完
@echo off&cd/d "d:\man"&md "New folder"
setlocal enabledelayedexpansion
for /f "delims=" %%1 in (’dir /b "*.txt"’)do (set a=0
for /f "delims=" %%2 in (’type "%%1"’)do (set/a a+=1
if !a!==2 echo %%2》》"New folder\New.txt"
))
rem 2个for循环截取各个文件内容.一个负责查找文件,一个负责读取文件.上面的!a!==2是第2行的意思,把每个文件第2行的内容输出到目标文件里,是逐个文件读取,逐个输出.
=====================
以上代码都是最快的算法

VBScript中怎样对文本文件里读写数据

分类: 电脑/网络 》》 程序设计 》》 其他编程语言
问题描述:

对该文本文件多次写入数据时不影响之前写入的数据; 读数据是只读取文本中指定行的部分数据? 谢谢

解析:

用FileSystemObject对象创建一个TextStream便实现对文本文件的读写

---------------------------------------------------

创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。
语法

object.CreateTextFile(filename)

CreateTextFile 方法的语法有以下部分：

object 必选项。应为 FileSystemObject 或 Folder 对象的名称。

filename 必选项。字符串表达式，指明要创建的文件。

overwrite 可选项。Boolean 值指明是否可以覆盖现有文件。如果可覆盖文件，该值为 True；如果不能覆盖文件，则该值为 False 。如果省略该值，则不能覆盖现有文件。

unicode 可选项。Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。

说明

以下代码举例说明如何使用 CreateTextFile 方法创建并打开文本文件：

Sub CreateAfile

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)

MyFile.WriteLine("这是一个测试。")

MyFile.Close

End Sub

对于 filename 已经存在的文件，如果 overwrite 参数为 False，或未提供此参数时，则会出现错误。

-----------------------------------------------------------

描述

打开指定的文件并返回一个 TextStream 对象，可以读取、写入此对象或将其追加到文件。

语法

object.OpenTextFile(filename)

OpenTextFile 方法的语法有以下部分：

object 必选项。应为 FileSystemObject 对象的名称。

filename 必选项。字符串表达式，指明要打开的文件名称。

iomode 可选项。输入/输出模式，是下列三个常数之一：ForReading，ForWriting,或 ForAppending。

create 可选项。Boolean 值，指出当指定的 filename 不存在时是否能够创建新文件。允许创建新文件时为 True，否则为 False。默认值为 False。

format 可选项。三个 Tristate 值之一，指出以何种格式打开文件。若忽略此参数，则文件以 ASCII 格式打开。

设置

iomode 参数可为下列设置之一：

ForReading 1 以只读模式打开文件。不能对此文件进行写操作。

ForWriting 2 以只写方式打开文件。不能对此文件进行读操作。

ForAppending 8 打开文件并在文件末尾进行写操作。

format 参数可为下列设置之一：

TristateUseDefault -2 以系统默认格式打开文件。

TristateTrue -1 以 Unicode 格式打开文件。

TristateFalse 0 以 ASCII 格式打开文件。

说明

以下代码举例说明如何使用 OpenTextFile 方法打开写文件：

Sub OpenTextFileTest

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("c:\testfile.txt", For Writing, True)

f.Write "嗨，你好！"

f.Close

End Sub

-------------------------------------------------------------

另TextStream还有如下方法:

Close 方法

Read 方法

ReadAll 方法

ReadLine 方法

Skip 方法

SkipLine 方法

Write 方法

WriteLine 方法

WriteBlankLines 方法

详细可参阅VBScript 5.0 帮助文档