[已解决]求方法：动态检查路径合法性，不管路径是否存在

bhffhzh · 发表于 2015-9-6 18:22:50

本帖最后由 bhffhzh 于 2015-9-11 19:24 编辑

综合相关贴子，如下代码似乎可以判断，但我要求是能在输入框动态修改也能判断，一直头疼。

需要如果功能：

以下代码是通过浏览按钮实现的代码：
$Search1 = FileSelectFolder("请选择一个文件夹：", "", 1)
If StringRegExp($Search1, "[^\x00-\xff]") Or $Search1 = "" Then ;判断路径是否有中文或返回空值
MsgBox(16, "警告", "路径必须指定正确并且不能含中文或特殊字符,请修改后执行！")
Else
GUICtrlSetData($Input1, $Search1)
GUICtrlRead($Input1)
EndIf

复制代码

user030 · 发表于 2015-9-7 01:07:06

实在找不到能识别单个字母的正则方法，只能瞎搞一个出来，应该勉强满足要求的吧

Local $url,$regExp,$URLarry
$url = "C:\Users\hulu\Desktop\AutoIt"
;~ $url = "C:\Users\hulu\Desktop\AutoIt？%"
;~ $url = "CcCcC:\Users\hulu\Desktop\AutoIt"
;~ $url = "123:\Users\hulu\Desktop\AutoIt"
;~ $url = "ab"
$URLarry = StringSplit($url,":",1) ;根据路径中都会唯一存在的字符串":"进行分割
For $i=0 To UBound($URLarry)-1 ;只是打印分割后的数组元素而已
ConsoleWrite($i &"-->"& $URLarry[$i] & @CR)
Next
If UBound($URLarry)=3 Then ;根据数组元素的个数，判断是否存在":"，而断定路径格式是否有错
If StringLen($URLarry[1])=1 And StringRegExp($URLarry[1],"[a-z,A-Z]") Then ;判断盘符是否为一个英文单词，从而判断盘符的正确性
ConsoleWrite("URL的盘符准确。盘符为："& $URLarry[1] & @CR)
If StringRegExp($URLarry[2], "[^\x00-\xff]") Or $URLarry[2] = "" Then
ConsoleWrite("URL的具体路径错误，路径必须指定正确并且不能含中文或特殊字符。路径为："& $url & @CR)
ElseIf StringRegExp($URLarry[2], "") Then ;判断路径是否有中文或返回空值
ConsoleWrite("URL的具体路径正确。路径为："& $url & @CR)
Else
ConsoleWrite("URL的具体路径出现未知情况，请检查。路径为："& $url & @CR)
EndIf
Else
ConsoleWrite("URL的盘符出错，请检查。盘符为："& $URLarry[1] & @CR)
EndIf
Else
ConsoleWrite("路径格式出错，请检查："& $url & @CR)
EndIf

复制代码

bhffhzh · 发表于 2015-9-7 07:17:39

回复 2# user030

你这似乎也是静态判断。

bhffhzh · 发表于 2015-9-7 07:24:48

本帖最后由 bhffhzh 于 2015-9-7 13:32 编辑

我用一个另类的方法让大家知道我的想法吧。

大家运行就知道了，当然这种方法实在不可取。

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 442, 192, 124)
$Input1 = GUICtrlCreateInput("c:", 80, 176, 297, 21)
$Button1 = GUICtrlCreateButton("Button1", 336, 280, 89, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$Search11 = GUICtrlRead($Input1)
$hzh = StringMid($Search11, 1, 3) ;提取路径的前三个字符
$iFileExists1 = FileExists($hzh) ;检查文件或目录是否存在，这里其实是检查诸如是否存在c:盘 d:盘之类的。
If $iFileExists1 = 0 Or _PathValidateCheck1($Search11, 1) = 0 Or StringRegExp($Search11, "[^\x00-\xff]") Then ;盘符不对，路径含中文，不符合Windows文件命名规则均不执行。
GUICtrlSetState($Button1, $GUI_DISABLE)
MsgBox(0,0,"不合法")
Else
GUICtrlSetState($Button1, $GUI_ENABLE)
MsgBox(0,0,"合法")
EndIf
Sleep(500)
WEnd
;验证安装目录路径
Func _PathValidateCheck1($Search11, $OnlyAbsolutePath = 0)
;afan提示:验证路径是否合法(路径可不存在)。
; 本函数可用于验证用户提供的路径是否合法有效。
; 与 FileExists 用途不同，FileExists 验证的路径必须存在，而本函数路径可不存在，只要符合Windows文件命名规则即可。
;$sPath - 待验证的路径字符串
;$OnlyAbsolutePath - 仅验证绝对路径
;返回值 - 合法返回1；非法返回0，并设置@Error非0。
If $OnlyAbsolutePath And Not StringRegExp($Search11, '^[a-zA-Z]:') Then Return SetError(1, 0, 0)
Local $aSR1 = StringRegExp($Search11, '^(.*?)([^\\/]+)\\?
, 1)
If @error Then Return SetError(2, 0, 0)
If StringLen($aSR1[0]) >= 248 Or StringLen($aSR1[1]) >= 260 Then Return SetError(2, 0, 0)
If StringRegExp($Search11, '[[:cntrl:]]') Then Return SetError(3, 0, 0)
Local $sIns = '?'
If $OnlyAbsolutePath Then $sIns = ''
If StringRegExp($Search11, '^(?:[a-zA-Z]:\\?|([a-zA-Z]:\\)' & $sIns & '(\S[^\\/:*?"<>|]*(?<!\s)\\)*\S[^\\/:*?"<>|]*(?<!\s)\\?)
) Then Return 1
Return SetError(4, 0, 0)
EndFunc ;==>_PathValidateCheck1

复制代码

user030 · 发表于 2015-9-7 09:02:01

回复 3# bhffhzh

看了你下面的代码，_PathValidateCheck1()函数的处理可以试下换成我那种判断方法。
你目前遇到的难题应该不是动态与静态，是正则的应用不起作用而已，我弄那个正则也花了不少时间，但au3里面的正则对于单个单词的判断几乎没有，我就换其他方法来进行判断路径了，实在不想花费太多时间在一件能采用其他方法可以解决的事情上。

Alam · 发表于 2015-9-7 09:58:54

我只会简单的：能创建的，路径就是对的！

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 623, 442, 192, 124)
$Input1 = GUICtrlCreateInput("c:", 80, 176, 297, 21)
$Button1 = GUICtrlCreateButton("Button1", 336, 280, 89, 49)
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)
Local $nCode = BitShift($wParam, 16)
Local $ID = BitAND($wParam, 0x0000FFFF)
If $ID <> $Input1 Then Return
If $nCode = $EN_CHANGE Then
;MsgBox(16, '', '')
If _PathValidateCheck(GUICtrlRead($Input1)) = 0 Then
GUICtrlSetState($Button1, $GUI_DISABLE)
Else
GUICtrlSetState($Button1, $GUI_ENABLE)
EndIf
EndIf
EndFunc
Func _PathValidateCheck($sPath)
Local $iRe = 0
If DirCreate($sPath) Then $iRe = 1
DirRemove($sPath)
Return $iRe
EndFunc ;==>_PathValidateCheck

复制代码

水木子 · 发表于 2015-9-7 10:50:55

本帖最后由水木子于 2015-9-7 11:01 编辑

回复 6# Alam

好思路，学习了！

不过你这个有点小问题需要注意下，假如指定路径已经存在呢！
原本存在的路径会被删除哦！所以还需要优化下。

bhffhzh · 发表于 2015-9-7 13:26:07

本帖最后由 bhffhzh 于 2015-9-7 13:28 编辑

回复 5# user030

我要的就是其它方法，我的方法太另类，而且用
while 1
Sleep(500)
wend

很是占用内存。我说了这种方法非常不可取。。

bhffhzh · 发表于 2015-9-7 13:37:48

本帖最后由 bhffhzh 于 2015-9-7 14:32 编辑

回复 7# 水木子

我问题的关键是如何在输入框手动输入地址后，程序立即就响应地址是否合法。
而不需要通过诸如点击按钮去响应。

水木子 · 发表于 2015-9-7 19:30:17

回复 9# bhffhzh

6楼代码，不就是你要的效果么？

bhffhzh · 发表于 2015-9-7 21:01:18

本帖最后由 bhffhzh 于 2015-9-7 21:03 编辑

回复 10# 水木子

我再测试一下。

user030 · 发表于 2015-9-8 22:32:12

回复 8# bhffhzh

sorry，我错了
话说 6楼的那种做法LZ验证通过了没？

bhffhzh · 发表于 2015-9-8 22:44:48

似乎可以哟，之前没仔细看。这两天有事，空了好生测试。
感谢关注

		自动登录	找回密码
密码			加入

[系统综合] [已解决]求方法：动态检查路径合法性，不管路径是否存在

本帖子中包含更多资源

本帖子中包含更多资源