- 浏览: 70326 次
- 性别:
- 来自: 天津
文章分类
最新评论
-
tamsiuloong:
不错,基本操作全写上了。
哥们,有没有cvsnt window ...
Windows7下的CVSNT安装配置,用户分配 -
eason007:
<p>js的动态加载,要处理异步不难。难的是如何并 ...
JavaScript中的对象动态加载技术 -
eason007:
ajax方式是不能加载跨域文件的。
JavaScript中的对象动态加载技术 -
eueuy:
dzxiang 写道eueuy 写道rainsilence 写 ...
JavaScript中的对象动态加载技术 -
dzxiang:
eueuy 写道rainsilence 写道var remot ...
JavaScript中的对象动态加载技术
{===================================================
功 能 : 检查文件路径和文件名是否合法
参 数 : Filename : string //文件名
返 回 值 : True : 合法 | False : 不合法
备 注 : 仅检查是否合法,不检测文件是否存在
作 者 : yueue (antong) 2004.8.22
QQ: 20613165 Email: yueue{A}qq.com
=====================================================}
//检查文件名&路径是否合法的函数
function checkFilename(strFilename:string):boolean;
function c(s:string):boolean; //子函数:连带检测
var
i:integer;
s1:string;
f,g,h:boolean;
begin
f:=false;
g:=false;
h:=false;
result:=true;
for i:=0 to length(s)-1 do
begin
s1:=copy(s,i,1);
//////检测\的连带
if s1='\' then
begin
if f then
begin
result:=false;
exit;
end
else
begin
f:=true;
result:=true;
end;
var
i:integer;
s1:string;
f,g,h:boolean;
begin
f:=false;
g:=false;
h:=false;
result:=true;
for i:=0 to length(s)-1 do
begin
s1:=copy(s,i,1);
//////检测\的连带
if s1='\' then
begin
if f then
begin
result:=false;
exit;
end
else
begin
f:=true;
result:=true;
end;
end
else
begin
f:=false;
result:=true;
end;
//////检测:的连带
if s1=':' then
begin
if g then
begin
result:=false;
exit;
end
else
begin
g:=true;
result:=true;
end;
end
else
begin
g:=false;
result:=true;
end;
//////检测.的连带
if s1='.' then
begin
if h then
begin
result:=false;
exit;
end
else
begin
h:=true;
result:=true;
end;
end
else
begin
h:=false;
result:=true;
end;
////
end;
else
begin
f:=false;
result:=true;
end;
//////检测:的连带
if s1=':' then
begin
if g then
begin
result:=false;
exit;
end
else
begin
g:=true;
result:=true;
end;
end
else
begin
g:=false;
result:=true;
end;
//////检测.的连带
if s1='.' then
begin
if h then
begin
result:=false;
exit;
end
else
begin
h:=true;
result:=true;
end;
end
else
begin
h:=false;
result:=true;
end;
////
end;
end;
begin
if (extractfilename(strFilename)=strFilename)////是否只输入了文件名而没有输路径
or (extractfilename(strFilename)='')//是否只输入了路径没有输文件名
or (extractfileext(extractfilename(strFilename))='')//是否格式错误(比如乱输)
or (extractfileext(extractfilename(strFilename))='.')//是否没有后缀
or (extractfileext(extractfilename(strFilename))=extractfilename(strFilename))
//是否只输入了文件名而没有输路径
or (length(extractfileext(extractfilename(strFilename)))>5)//后缀是否超了5个字节
or (length(extractfilename(strFilename))>225)//文件名是否超过255个字节
or (pos('\',strfilename)=0)//判断是否有'\'
or (pos('.',strfilename)=0)//判断是否有'.'
or (pos(':',strfilename)=0)//判断是否有':'
or (pos('\',extractfilename(strfilename))<>0)//判断文件名是否有非法字符
or (pos('/',extractfilename(strfilename))<>0)
or (pos(':',extractfilename(strfilename))<>0)
or (pos('*',extractfilename(strfilename))<>0)
or (pos('?',extractfilename(strfilename))<>0)
or (pos('"',extractfilename(strfilename))<>0)
or (pos('<',extractfilename(strfilename))<>0)
or (pos('>',extractfilename(strfilename))<>0)
or (pos('|',extractfilename(strfilename))<>0)
or (strfilename='')//是否没有输入任何东西
or (not c(strfilename))//用检测连带函数检测是否出现\.:的连带
then
result:=false else result:=true; //输出
end;
begin
if (extractfilename(strFilename)=strFilename)////是否只输入了文件名而没有输路径
or (extractfilename(strFilename)='')//是否只输入了路径没有输文件名
or (extractfileext(extractfilename(strFilename))='')//是否格式错误(比如乱输)
or (extractfileext(extractfilename(strFilename))='.')//是否没有后缀
or (extractfileext(extractfilename(strFilename))=extractfilename(strFilename))
//是否只输入了文件名而没有输路径
or (length(extractfileext(extractfilename(strFilename)))>5)//后缀是否超了5个字节
or (length(extractfilename(strFilename))>225)//文件名是否超过255个字节
or (pos('\',strfilename)=0)//判断是否有'\'
or (pos('.',strfilename)=0)//判断是否有'.'
or (pos(':',strfilename)=0)//判断是否有':'
or (pos('\',extractfilename(strfilename))<>0)//判断文件名是否有非法字符
or (pos('/',extractfilename(strfilename))<>0)
or (pos(':',extractfilename(strfilename))<>0)
or (pos('*',extractfilename(strfilename))<>0)
or (pos('?',extractfilename(strfilename))<>0)
or (pos('"',extractfilename(strfilename))<>0)
or (pos('<',extractfilename(strfilename))<>0)
or (pos('>',extractfilename(strfilename))<>0)
or (pos('|',extractfilename(strfilename))<>0)
or (strfilename='')//是否没有输入任何东西
or (not c(strfilename))//用检测连带函数检测是否出现\.:的连带
then
result:=false else result:=true; //输出
end;
发表评论
-
判断文件是否使用中 Checking If File Is In Use
2010-06-11 10:07 762Checking If File Is In Us ... -
INT 转 BOOL 值的方法
2010-06-11 10:06 1846来自:独孤客, 时间:2004-8-9 19:10:58, ... -
Tray Menu 不点不消失的问题
2010-06-11 10:05 1010问题:Tray Menu 问题 ( 积分:10 ... -
API读取注册表
2010-06-11 10:05 830vartmp:string; const REG_I ... -
比较IP地址
2010-06-11 10:02 775问题:请问这样的字符串怎么比较? ( 积分:2 ... -
移动窗体自制
2010-06-11 10:01 761在private处输入: { Private decla ... -
获得Windows系统路径
2010-06-11 10:01 751varwindir:array[0..255] of char ... -
如何让窗体总是显示在最上面?
2010-06-11 10:00 1427问题:问个比较白的问题--如何让窗体总 ... -
后缀名相关
2010-06-11 09:59 683知道了文件名怎么去掉后缀名? Functi ... -
下载文件 Get File From the Net
2010-06-11 09:59 980Get File From the Ne ... -
在桌面上创建.lnk的方法
2010-06-11 09:58 1383procedure createico(s:string;s1 ... -
WindowsAPI - shellexecute
2010-06-11 09:58 680shellexecute(application.Handle ... -
如何注册dll组件
2010-06-11 09:57 2191问题:怎样注册dll组件? ( 积分:100, ... -
文件关联相关
2010-06-11 09:56 700问题:我想象Word和Excel一样。一双击文 ... -
下载文件的WindowsAPI - DownloadFile
2010-06-11 09:56 929uses urlmon; function Do ... -
简介的读写 INI文件方法
2010-06-11 09:55 837with TInifile.Create(ExtractFi ... -
如何捕捉WebBrowser中点击一个链接
2010-06-11 09:54 1289问题:在WebBrowser中点击一个 ... -
文件复制 CopyFile Functions
2010-06-11 09:53 741{This way uses a File stream.}P ... -
Windows API - MessageBox
2010-06-11 09:52 1265if MessageBox(handle,'確定要刪除當前記錄 ... -
给纯Pascal程序换图标(LoadIcon)
2010-06-11 09:51 917=====================程序代码====== ...
相关推荐
“检查文件/文件路径”,“检查文件路径是否存在”,“分离文件路径及文件名”,“分离文件扩展名“,”得到文件名”和得到”文件路径“。 import os '''获得当前路径 ''' cwd=os.getcwd() print(cwd) ''' 得到...
windows下的dos函数 一)MD——建立子目录 1.功能:创建新的子目录 2.类型:内部命令 3.格式:MD[盘符:][路径名]〈子目录名〉 4.使用说明: (1)“盘符”:指定要建立子目录的磁盘驱动器字母,若省略...
函数作用:检查一个数组是否为空.....................90 '81.函数作用:字母栏名转数字栏名.......................91 '82.函数作用:数字栏名转文字栏名.......................91 '83.函数作用:判断一件活页夹中是否...
php中判断文件是否存在我们会使用file_exists函数或is_file函数,但在使用file_exists时如果你文件名或路径是中文在uft8编码文档时是无效。本文就来解决此问题,下面我们一起来看看。 定义和用法: file_exists() ...
使用API函数复制移动文件 使用API访问ListBox项 使用GetTempFileName创建一个唯一的临时文件 使用INI文件 使用INI文件保存、装载字体信息 使用TFileStream 使用TStream保存字符串 使用TTreeview显示目录 使窗体的...
在Windows上,使用/ /计算机名/共享/文件名或 计算机名共享文件名,以检查网络共享文件。 在 Windows 中要用 //computername/share/filename 或者 \\computername\share\filename 来检查网络中的共享文件
如果 filename 是一个相对路径,则按照当前工作目录检查其相对路径。 Note: 本函数的结果会被缓存。更多信息参见 clearstatcache()。 is_dir() 例子1复制代码 代码如下: <? var_dump(is_dir(‘a_file.txt’)) . ...
1.只需指明ocx文件的路径(含文件名),函数即可自动从文件中提取控件的CLSID,然后检查是否已 注册,如果已注册则不再注册;如果未注册则自动进行注册。 2.ocx控件必须包含TypeLib信息,一般VC++/VB/DELPHI7等生成...
'作 用:检查是否为空 '参 数:tstr ----字符串 '返回值:true不为空,false为空 '**************************************************** '**************************************************** '函数名...
80.检查一个数组是否为空 81.字母栏名转数字栏名 82.数字栏名转文字栏名 83.判断一件活页夹中是否还有子目录 84.判断一个文件是否在使用中 85.列出档案详细摘要信息 86.获取菜单ID编号及名称列表 87.状态列动态显示...
如果 filename 是一个相对路径,则按照当前工作目录检查其相对路径。 注: 本函数的结果会被缓存。更多信息参见 clearstatcache()。 例子1 <? var_dump(is_dir('a_file.txt')) . "\n"; var_dump(is_dir('bogus_...
pathinfo() 函数以数组或字符串的形式返回关于文件路径的信息。 返回的数组元素如下: [dirname]:返回文件路径中的目录部分 [basename]:返回文件路径中文件名的部分 [extension]:返回文件路径中文件的类型的部分 ...
UniqueFuncNames - 检查函数名称的唯一性 如果您安装大型 3rd 方工具箱,文件名可能会干扰其他已安装的工具箱。 这个简单的函数比较在 Matlab 路径中找到的所有 M-、P- 和 Mex-文件的名称并显示非唯一名称。 如果在...
delphi函数集 1. CustomCursor ................. 自定义光标 2. ReadRegKey ................... 读注册表键值 3. WriteRegKey .................. 写注册表键值 4. GetExePath ................... 取应用程序路径...
[basename]:返回文件路径中文件名的部分 [extension]:返回文件路径中文件的类型的部分 语法 pathinfo(path,options) 参数 描述 path 必需。规定要检查的路径。 options 可选。规定要返回的数组元素。默认是...
编写一个函数来检查给定的单词是否是回文。 字符大小写应忽略。 ChangeDirectory.cs 编写一个为抽象文件系统提供更改目录(cd)功能的函数。 注意:根路径为“ /”。 路径分隔符为“ /”。 父目录的地址为“ ..”...
地位代码气候 GPA 执照 密码 标签 问题 GitHub 分叉 GitHub 版本 GitHub 关注者 新版本 依赖关系文件名文件路径将相对于settings.userDir中设置的路径,或者如果未从 Node-RED 安装目录设置。 在节点的配置对话框中...
3.5 检查是否可以在目标字符串中找到匹配 3.6 检查正则表达式能否整个匹配目标字符串 3.7 获取匹配文本 3.8 决定匹配的位置和长度 3.9 获取匹配文本的一部分 3.10 获取所有匹配的列表 3.11 遍历所有匹配 3.12 在过程...
其中,pathname是希望检验的文件名(包含路径),mode是欲检查的访问权限,如下所示 R_OK 检验调用进程是否有读访问权限W_OK 检验调用进程是否有写访问权限X_OK 检验调用进程是否有执行访问权限F_OK
3.5 检查是否可以在目标字符串中找到匹配 3.6 检查正则表达式能否整个匹配目标字符串 3.7 获取匹配文本 3.8 决定匹配的位置和长度 3.9 获取匹配文本的一部分 3.10 获取所有匹配的列表 3.11 遍历所有匹配 3.12...