UC知道关于消除空行
来源：百度知道 编辑：UC知道 时间：2024/06/01 09:46:23
Const ForReading=1,ForWriting=2,TristateUseDefault=-2
Dim fsoA,fA,tA,fsoB,fB,tB,s,dir
'如果脚本程序和A文件在同一目录下，直接输入A文件的文件名和扩展名即可
dir=inputbox("请输入源文件的路径或相对路径:")
if dir<>""then
'初始化A文件的对象
Set fsoA=CreateObject("Scripting.FileSystemobject")
Set fA=fsoA.GetFile(dir)
Set tA=fA.OpenAsTextStream(ForReading,TristateUseDefaule)
'创建并初始化B文件的对象
Set fsoB=CreateObject("Scripting.FileSystemObject")
fsoB.CreateTextFile("_"+dir)
Set fB=fsoB.GetFile("_"+dir)
Set tB=fB.OpenAsTextStream(ForWriting,TristateUseDefault)
'逐行读A文件并把非空行写入B文件
while not tA.AtEndOfStream
s=tA.ReadLine
if trim(s)<>"" then tB.WriteLine s
wend
'关闭文件对象
tB.Close
tA.Close
end if
这端程序，他让输入相对路径或绝对路径，请问是什么意思？什么是相对路径和绝对路径，请举例说明。
请问这段命令有什么问题吗?为什么我怎么弄他都说，错误，文件未找到，怎么办呀
Dim fsoA,fA,tA,fsoB,fB,tB,s,dir
'如果脚本程序和A文件在同一目录下，直接输入A文件的文件名和扩展名即可
dir=inputbox("请输入源文件的路径或相对路径:")
if dir<>""then
'初始化A文件的对象
Set fsoA=CreateObject("Scripting.FileSystemobject")
Set fA=fsoA.GetFile(dir)
Set tA=fA.OpenAsTextStream(ForReading,TristateUseDefaule)
'创建并初始化B文件的对象
Set fsoB=CreateObject("Scripting.FileSystemObject")
fsoB.CreateTextFile("_"+dir)
Set fB=fsoB.GetFile("_"+dir)
Set tB=fB.OpenAsTextStream(ForWriting,TristateUseDefault)
'逐行读A文件并把非空行写入B文件
while not tA.AtEndOfStream
s=tA.ReadLine
if trim(s)<>"" then tB.WriteLine s
wend
'关闭文件对象
tB.Close
tA.Close
end if
这端程序，他让输入相对路径或绝对路径，请问是什么意思？什么是相对路径和绝对路径，请举例说明。
请问这段命令有什么问题吗?为什么我怎么弄他都说，错误，文件未找到，怎么办呀
比如你有一个文件AAA在D盘CC文件下
假设你现在CC目录下,你要使用AAA文件,可以/AAA或d:/cc/AAA
这里/AAA就是相对路径,d:/cc/AAA就是绝对路径
相对路径,当然是相对一个路径而言
绝对路径:是相对根目录而言
举例说明，如绝对路径：直接输入“C:\aaa.txt”
；相对路径：（前提是aaa.txt与你脚本文件在同一目录）直接输入aaa.txt即可