找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 利用DOS流取短名的函数(畸形名称也可以)(纯练手产物,结 ...
12下一页
返回列表 发新帖
查看: 11326|回复: 15

[AU3基础] 利用DOS流取短名的函数(畸形名称也可以)(纯练手产物,结果14楼)[已解决]

 火 [复制链接]
_ddqs.
发表于 2010-10-28 19:44:28 | 显示全部楼层 |阅读模式
本帖最后由 _ddqs. 于 2010-12-30 18:49 编辑

后期源码下载在 14 楼：http://www.autoitx.com/forum.php ... amp;fromuid=7653769
------
;XP-SP3测试（操作畸形不件夹）（查看——短文件名）（不使用缓冲文件识别，直接流操作）
#include <Constants.au3>
;#include<process.au3>

$_weizi = 'f:\'
$_weizi = 'f:\我的文档\'
;$_filename = '爱 什么 是什么........'
$_filename = ' 爱 什么 是什么........'
DirCreate($_weizi & $_filename & './')

$f=$_weizi&$_filename
;$f="C:\Program Files\yqsclient.bak"
;$f="C:\Program Files\yqsclient.bak"
;$f="C:\Program Files\yqsclient"
;$f="C:\Program Files\yqsclient"
$a = _FileGetShortName($f)
MsgBox(0,"<"&$f&">取得的短文件名为：",$a )


Func _FileGetShortName($FilePath)
        
        Local $fp=StringSplit($FilePath,""), $fpp
        If $fp[UBound($fp)-1]<>"" then
                $fpp=""
                $c=UBound($fp)-1
        Else
                $fpp=""
                $c=UBound($fp)-2
        EndIf
        Local $fps
        For $i=1 To $c
                If $fps<>"" Then  $fps &= ""
                $fps &= $fp[$i]
                If $i>1 Then $fps = _FileGetShortName_($fps)
        Next
        
        Return $fps&$fpp
EndFunc


Func _FileGetShortName_($FilePath)
        
        Local $fp=StringSplit($FilePath,"")
        Local $fps
        For $i=1 To UBound($fp)-2
                $fps &= $fp[$i]&""
        Next
        Local $string='FOR /F "eol=; tokens=2,3* delims=>" %i in ('&"'dir/x/n "& $fps &' ^| find /i /n "'& $fp[UBound($fp)-1] &'" '&"') do @ECHO %i"
        Local $foo = Run(@ComSpec & " /c "&$string, @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
        Local $line
        While 1
                $line &= StdoutRead($foo)
                If @error Then ExitLoop(StdioClose($foo))
        Wend
        $line = StringSplit ( $line, @CR, 0)
        For $i=1 To $line[0]
                $ros = $line[$i]
;~#CS （先按位置取字串，比这更准确）（如果原名以空格开头的则有可能不准）
                $ros = StringReplace($ros,"          ","*")
                While 1
                        $ros = StringReplace($ros,"     ","*")
                                If @extended Then ExitLoop
                        $ros = StringReplace($ros,"    ","*")
                                If @extended Then ExitLoop
                        $ros = StringReplace($ros,"   ","*")
                                If @extended Then ExitLoop
                        $ros = StringReplace($ros,"  ","*")
                                If @extended Then ExitLoop
                        $ros = StringReplace($ros," ","*")
                                If @extended Then ExitLoop
                        If 1 Then ExitLoop
                WEnd
;                $ros = StringReplace($ros,"     ","*")
;                $ros = StringReplace($ros,"**","*")
                $ros = StringSplit ( $ros, "*", 0)
;~#CE
                If $ros[3] = $fp[UBound($fp)-1] Then ExitLoop;Return $ros[2]
        Next
        Return $fps&$ros[2]
EndFunc
[code]
个类, 函数, 畸形, 名称, 系统

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
_ddqs.
 楼主| 发表于 2010-10-28 19:55:30 | 显示全部楼层
InputBox("","<"&$f&">"&@CR&@CR&"取得的短文件名为：",$a)
回复

举报

kood481748
发表于 2010-10-28 20:52:21 | 显示全部楼层
这个东西别人早就研究出来了，你还去研究，这无疑是浪费时间，或者你根本就是拿别人的代码来改了就说自己原创
回复

举报

_ddqs.
 楼主| 发表于 2010-10-28 22:50:23 | 显示全部楼层
刚上路
别人的看不懂
准练练手
回复

举报

_ddqs.
 楼主| 发表于 2010-10-28 22:52:02 | 显示全部楼层 
;XP-SP3测试（操作畸形不件夹）（查看——短文件名）（不使用缓冲文件识别，直接流操作）
#include <Constants.au3>
;#include<process.au3>

$_weizi = 'd:\'
$_weizi = 'd:\我的文档\'
$_weizi = 'd:\我的文档\我的文档.bak\'
$_filename = '爱 什么 是什么........'
;$_filename = ' 爱 什么 是什么........'
DirCreate($_weizi & $_filename & './')

$f=$_weizi&$_filename
;$f &= "\yqsclient.exe"
$f &= "\bargames.exe"
$f="d:\我的文档\爱什么~1\yqsclient.exe"

;$f="C:\Program Files\yqsclient.bak"
;$f="C:\Program Files\yqsclient.bak"
;$f="C:\Program Files\yqsclient"
;$f="C:\Program Files\yqsclient"
;$f="C:\Program Files\yqsclient.bacccc"
;$f="C:\Program Files\yqsclient.bacccc"
;$f="C:\Program Files\yqsclient\yqsclient.exe"
;$f = 'd:\我的文档\RealVNC_454连接'
;$f = 'd:\我的文档\RealVNC_454连接\Documentation\VNC Enterprise Edition on the Web.url'



$a = _FileGetShortName($f)
;MsgBox(0,"<"&$f&">取得的短文件名为：",$a )
InputBox("","<"&$f&">"&@CR&@CR&"取得的短文件名为：",$a)


Func _FileGetShortName($FilePath)
        
        Local $fp=StringSplit($FilePath,""), $fpp,$ros
        If $fp[UBound($fp)-1]<>"" then
                $fpp=""
                $c=UBound($fp)-1
        Else
                $fpp=""
                $c=UBound($fp)-2
        EndIf
        Local $fps
        For $i=1 To $c
                If $fps<>"" Then  $fps &= ""
                $fps &= $fp[$i]
                If StringLen($fp[$i])<9 Then 
                        ContinueLoop ;字符长度9个以内不处理，处理也是错误！
                Else 
                        $ros = $fp[$i]
                        $ros = StringSplit($ros,".")
                        If StringLen($ros[1])<9 And StringLen($ros[2])<4 And $ros[0]<3 Then ContinueLoop ;
                EndIf
                If $i>1 Then $fps = _FileGetShortName_($fps)
        Next
        
        Return $fps&$fpp
EndFunc


Func _FileGetShortName_($FilePath)
        
        Local $stra=FileGetAttrib ($FilePath)
         If StringInStr($stra,"D")=0  And $stra<>"" Then  ;如果是,当成文件处理（有待恶补……再写写）
                 ;$FilePath = _FileGetShortName_isFILE($FilePath)
                 ;$FilePath = FileGetShortName ($FilePath)
                 Return $FilePath
         EndIf
        
        Local $fp=StringSplit($FilePath,"")
        Local $fps
        For $i=1 To UBound($fp)-2
                $fps &= $fp[$i]&""
        Next
        Local $string='FOR /F "eol=; tokens=2,3* delims=>" %i in ('&"'dir/x/n "& $fps &' ^| find /i /n "'& $fp[UBound($fp)-1] &'" '&"') do @ECHO %i"
        Local $foo = Run(@ComSpec & " /c "&$string, @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
        Local $line
        While 1
                $line &= StdoutRead($foo)
                If @error Then ExitLoop(StdioClose($foo))
        Wend
        $line = StringSplit ( $line, @CR, 0)
        For $i=1 To $line[0]
                $ros = $line[$i]
;~#CS （先按位置取字串，比这更准确）（如果原名以空格开头的则有可能不准）
                $ros = StringReplace($ros,"          ","*")
                While 1
                        $ros = StringReplace($ros,"     ","*")
                                If @extended Then ExitLoop
                        $ros = StringReplace($ros,"    ","*")
                                If @extended Then ExitLoop
                        $ros = StringReplace($ros,"   ","*")
                                If @extended Then ExitLoop
                        $ros = StringReplace($ros,"  ","*")
                                If @extended Then ExitLoop
                        $ros = StringReplace($ros," ","*")
                                If @extended Then ExitLoop
                        If 1 Then ExitLoop
                WEnd
;                $ros = StringReplace($ros,"     ","*")
;                $ros = StringReplace($ros,"**","*")
                $ros = StringSplit ( $ros, "*", 0)
;~#CE
                If $ros[3] = $fp[UBound($fp)-1] Then ExitLoop;Return $ros[2]
        Next
        ;MsgBox(0,"",$fps&$ros[2])
        Return $fps&$ros[2]
EndFunc
回复

举报

_ddqs.
 楼主| 发表于 2010-10-28 23:01:05 | 显示全部楼层
这个东西别人早就研究出来了，你还去研究，这无疑是浪费时间，或者你根本就是拿别人的代码来改了就说自己原 ...
kood481748 发表于 2010-10-28 20:52



   
给俺个连接，俺去学习学习！
条条大道通罗马，何况自己写的东西还有多少个不同版本，并不是有了就不去做
去做了就想更有能合适自己的东西
同时也能加深自己的认识
！
回复

举报

kood481748
发表于 2010-10-28 23:51:51 | 显示全部楼层
你自己运用论坛的搜索功能找一下看看，反正我之前是见人做过这类似程序的了，
和别人做的东西对比一下，也互相学习一下。
回复

举报

_ddqs.
 楼主| 发表于 2010-10-29 00:40:27 | 显示全部楼层
本帖最后由 _ddqs. 于 2010-10-29 10:23 编辑


自己试下，对文件名或中文名称也能识别了！
代码不多贴，贴多了就乱
Func _FileGetShortName_isFILE($FilePath)
        
        Local $fp=StringSplit($FilePath,"")
        Local $fps
        For $i=1 To UBound($fp)-2
                $fps &= $fp[$i]&""
        Next
        Local $string='FOR /F "eol=; tokens=2,3* delims=]" %i in ('&"'dir/x/n "& $fps &' ^| find /i /n "'& $fp[UBound($fp)-1] &'" '&"') do @ECHO %i"
        Local $foo = Run(@ComSpec & " /c "&$string, @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
        Local $line
        While 1
                $line &= StdoutRead($foo)
                If @error Then ExitLoop(StdioClose($foo))
        Wend
        $line = StringSplit ( $line, @CR, 0)
;        Local $ros1,$ros2
        For $i=1 To $line[0]
                $ros = $line[$i]
                $ros = StringReplace($ros,1,"************************************")
                $ros = StringSplit ( $ros, $fp[$fp[0]], 1) ;会区别大小写
                If @error<>1 Then 
                        $ros[1] = StringReplace($ros[1],"*"," ")
                        $ros[1] = StringStripWS ( $ros[1] , 8 ) 
                        ExitLoop
                EndIf
        Next
        If $ros[1]="" Then Return "区别大小写,请指定正确名称。"
        Return $fps&$ros[1]
EndFunc

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

_ddqs.
 楼主| 发表于 2010-10-29 00:47:58 | 显示全部楼层
你自己运用论坛的搜索功能找一下看看，反正我之前是见人做过这类似程序的了，
和别人做的东西对比一下，也 ...
kood481748 发表于 2010-10-28 23:51



是有看过
但试了不行（源码也没细看，看了头晕……功力不够）
并系统原有的函数也有时会出错
要不，就没动力自己去动手咯
玩也要有目的、有动力
没动力玩不了

评分

参与人数 1金钱 +20 收起 理由
3mile + 20 我很赞同

查看全部评分

回复

举报

C.L
发表于 2010-10-29 08:21:23 | 显示全部楼层
自已多写写代码，对自已的AU3水平的提高，确定有好处
回复

举报

_ddqs.
 楼主| 发表于 2010-10-30 08:35:25 | 显示全部楼层
写了就发,硬盘挂了,工作白忙
;X查看——短文件名（还是整合不了，加了2个自定义函数协助处理）;类原有系统取短名函数功能！

#include <Constants.au3>


$f="f:\我的文档\『 提问交流 』 - AUTOIT CN AutoIt中文论坛acnau3软件汉化 - 分享您的技术!.url" 
$f="f:\我的文档\『 提问交流 』 - AUTOIT CN AutoIt中文论坛acnau3软件汉化 - 分享您的技术!.URL" 



$_FileGetShortName = _FileGetShortName($f)

If @error Then MsgBox(0,"出错啦！",@CR&"指定的名称错误或不存在."&@CR)
;;
$_FileGetShortName = InputBox("_FileGetShortName()","<"&$f&">"&@CR&@CR&"取得的短文件名为：",$_FileGetShortName)


Func _FileGetShortName($filename)
        
        Local $fp=StringSplit($filename,""), $fpp,$fps,$ros, $fp2,$fps2,$string,$foo,$line,$ros1,$ros2,$ros3
        
        If $fp[$fp[0]]<>"" then
                $fpp=""
                $c=$fp[0]
        Else
                $fpp=""
                $c=$fp[0]-1
        EndIf
        
        For $i=1 To $c
                
                If $fps<>"" Then  $fps &= ""
                $fps &= $fp[$i]
                
                $ros = $fp[$i]
                $ros = StringSplit($ros,".")
                If @error<>1 Then 
                        If _StringLen($ros[1])<9 And _StringLen($ros[2])<4 And $ros[0]<3 Then ContinueLoop ;
                Else
                        If _StringLen($fp[$i])<9 Then ContinueLoop ;字符长度9个以内不处理，处理也是错误！
                EndIf

                If $i>1 Then 

                        $fp2=StringSplit($fps,"")
                        $fps2=""
                        For $j=1 To $fp2[0]-1
                                $fps2 &= $fp2[$j]&""
                        Next
                        $string='FOR /F "eol=; tokens=2,3* delims=]" %i in ('&"'dir/x/n "& $fps2 &' ^| find /i /n "'& $fp2[$fp2[0]] &'" '&"') do @ECHO %i"
                        $foo = Run(@ComSpec & " /c "&$string, @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) 
                        
                        $line=""
                        While 1
                                $line &= StdoutRead($foo)
                                If @error Then ExitLoop;(StdioClose($foo))
                        Wend
                        $line = StringSplit ( $line, @CR, 0)
                        
                        $ros3=""
                        For $j=1 To $line[0]
                                $ros3 = $line[$j]
                                $ros1 =  StringReplace($ros3, _StringLeft($ros3, 36) ,"")
                                $ros2=  StringReplace($ros1, _StringLeft($ros1, 13) ,"")
                                $ros1 =  StringStripWS ( _StringLeft($ros1, 13) , 8 )
                                If $j > 1 Then 
                                        If StringInStr($ros2,$fp2[$fp2[0]]) >1  Then ExitLoop ;匹配以空白符开头的名称（差出1字节）
                                Else
                                        If StringInStr($ros2,$fp2[$fp2[0]]) =1  Then ExitLoop
                                EndIf

                        Next
                        
                        $fps = $fps2&$ros1
                EndIf

        Next

        If FileExists($fps&$fpp) Then Return $fps&$fpp ;"检测文件存在！返回字符串"
        SetError(1)
        Return "" ;"错误！返回空 并设 @error=1 ，……指定的文件(夹)不存在.
        
EndFunc


Func _StringLen($string) ;计算字串长度
        Local $str=StringSplit($string,"")
        Local $len=0
        For $i=1 To $str[0]
                $len += 1
                If StringIsASCII ($str[$i]) = 0 Then $len += 1
        Next
        Return $len
EndFunc


Func _StringLeft($string, $len) ;按长度左取字串
        Local $ret, $str = StringSplit($string,"")
        $x=1
        Do
                If $x<$str[0] Then 
                        $ret &= $str[$x]
                        If StringIsASCII ($str[$x]) = 0 Then $len -= 1
                EndIf
                $x += 1
                $len -= 1
        Until $len <= 0
        If $ret="" Then Return SetError(1)
        Return $ret
EndFunc

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

_ddqs.
 楼主| 发表于 2010-10-30 14:52:49 | 显示全部楼层 
;取短名应用示例：
;-------------------------->

#include <Constants.au3>

$f = 'E:\我的文档\ 欢迎使用 DOS 系统...'
        DirCreate($f & './')

$f = _FileGetShortName($f) ;取回短名

$f &= '\来到.我的.控制台...'
        DirCreate($f & './')

$f = _FileGetShortName($f) ;取回短名

#include <Process.au3>
_RunDOS('start "" "'&$f&'"') ;打开文件夹

;-------------------------->
回复

举报

_ddqs.
 楼主| 发表于 2010-10-30 15:06:37 | 显示全部楼层
本帖最后由 _ddqs. 于 2010-11-1 00:09 编辑

_FileGetShortName.rar 
;取短名应用示例：
;-------------------------->
#include <Constants.au3> 
#include <_FileGetShortName.au3> ;并入更名后的取名脚本


$f = 'g:\我的文档\ 欢迎使用 DOS 系统...'
        DirCreate($f & './')

$f = _FileGetShortName($f) ;取回短名
$f &= '\来到.我的.控制台...'
        DirCreate($f & './')

$f = _FileGetShortName($f) ;取回短名
$f &= '\图片收藏.dir'
        DirCreate($f & './')


#include <Process.au3>

$f = _FileGetShortName($f) ;取回短名

If Not @error Then _RunDOS('start "" "'&$f&'\."') ;正常打开上行语句返回值的文件夹
If @error Then Exit(MsgBox(0,0,"不存在"))

_RunDOS('start "" "'&$f&'"') ;打开文件夹……不加条件检测，当变量为空时以斜杆结尾会打开：脚本所在的根目录
_RunDOS('start "" "'&$f&'."') ;打开文件夹……不加条件检测，当变量为空时以点结尾会打开：脚本所在的目录



;-------------------------->

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

_ddqs.
 楼主| 发表于 2010-11-12 17:29:55 | 显示全部楼层 
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=C:\WINDOWS\system32\SHELL32.dll|-166
#AutoIt3Wrapper_Res_Comment=拖到上面放开……以短名方式打开文件或文件夹(不支持网络路径)，特殊名称也可以！
#AutoIt3Wrapper_Res_Description=_ddqs. @ www.autoitx.com
#AutoIt3Wrapper_Res_Fileversion=20101112.1.0.3
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=你说
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
;拖到上面放开……以短名方式打开文件或文件夹(不支持网络路径)，特殊名称也可以！
#include <_FileGetShortName.au3> ;并入更名后的取名脚本



If $Cmdline[0] < 1 Then Exit
If StringInStr($Cmdline[1], "\")>0  Then Exit
Run( @ComSpec &' /c start "" "'& _FileGetShortName($Cmdline[1]) &'."' ,@SystemDir ,@SW_HIDE )

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×

评分

参与人数 1金钱 +50 收起 理由
afan + 50 执着

查看全部评分

回复

举报

afan
发表于 2010-11-12 17:31:06 | 显示全部楼层
LZ真是执着哦~ ^ ^
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-26 23:55 , Processed in 0.090789 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表