【已解决】如何判断剪切板中的内容是字符串还是文件

kenan

If ClipGet ()=??????

lanfengc

1. While 1
   
2.         ToolTip(ClipGet())
   
3.         Sleep(1000)
   
4. WEnd

复制代码

看到你的问题， 我用了以上的函数测试了一下。 一直都没注意过，原来WINDOWS复制文件的时候，点了复制只复制的是文件的路径信息。 不管什么文件， 只复制路径信息。

由此，可以对剪贴板中的信息判断，如果前3个字符为C:\，D:\，等这样的字符，基本可以判断剪贴板中的数据是一个文件。如果你需要更准确的判断，可以对剪贴板中的数据进行按\分割，或者判断最后的4个字符是不是.au3,.txt等这样的文件后缀名。 前后综合起来，前面判断盘符，后面判断文件类型。 最后再加上FileExists(ClipGet()) 判断是不是一个文件， 基本上，剪贴板中是不是文件就可以一清二楚了。

kenan

回复 2# lanfengc

谢谢了
但我复制一个文件后，在记事本中却不能粘贴路径信息
所以我想是字符串还是文件应该还是有一点不同吧
不过ClipGet ()确实是得到路径信息
你这种判断方法似乎有点麻烦

kenan

在帮助里查了一下
成功: 返回剪贴板的文本字符串.
失败: 如果剪切板为空, @error设为1
如果剪切板为非文本, @error设为2.
如果无法访问剪切板, @error设为3或4.

我想弱弱的问一下，怎么获得这些返回值

ClipGet()
MsgBox("","",@error )

怎么老是得到  0

rikthhpgf2005

看看也学习下

lanfengc

1. While 1
   
2. If FileExists(ClipGet()) Then
   
3.         ToolTip("剪贴板中的数据是文件或文件路径。")
   
4. Else
   
5.         ToolTip("剪贴板中的数据是文本。")
   
6. EndIf
   
7. WEnd

复制代码

这个代码能达到你的要求了吧？

kenan

如果我剪切板里面是字符串，而且是一个文件路径，而且这个路径刚好存在，那么你这个判断就出问题了

告诉我怎么获得返回值吧，

lanfengc

如果我剪切板里面是字符串，而且是一个文件路径，而且这个路径刚好存在，那么你这个判断就出问题了

告诉 ...
kenan 发表于 2010-4-25 17:18

    这种特殊情况。。。确实没法判断。 你想做什么？

zjimmy

回复 4# kenan


    4楼的代码没有错，之所以得到0，是因为成功返回了。
你可以打开画图，选定一片区域，然后复制，你就会发现 @error 不为0了。

kenan

我在写个程序里面需要获得剪切板的内容，其实也可以不用做判断，一般不会是文件
但我想在某些情况下可能就会出问题，所以我想写得更严谨一点

kenan

回复 9# zjimmy


    确实是这样剪切板中如果是一副图的话就会返回2，我原以为如果是文件的话也应该返回2

我就想剪切板中是字符串还是文件总会有一点不同吧

zjimmy

_ClipBoard_GetData 好像可以解决，例如：

1. #Include <Clipboard.au3>
   
2. MsgBox(0,0,_ClipBoard_GetData($CF_TEXT))

复制代码

3mile

1. #include <GuiConstantsEx.au3>
   
2. #include <GuiEdit.au3>
   
3. #include <ClipBoard.au3>
   
4. #include <WindowsConstants.au3>
   
5. 
   
6. Opt('MustDeclareVars', 1)
   
7. 
   
8. Global $iMemo
   
9. 
   
10. _Main()
    
11. 
    
12. Func _Main()
    
13.         Local $hGUI, $btn_SetData, $btn_GetData,$str,$str1
    
14. 
    
15.         ; Create GUI
    
16.         $hGUI = GUICreate("Clipboard", 400, 350)
    
17.     $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, BitOR($ES_AUTOVSCROLL, $ES_READONLY))
    
18.         GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    
19.         $btn_SetData = GUICtrlCreateButton("Set ClipBoard Data", 50, 310, 120, 30)
    
20.         $btn_GetData = GUICtrlCreateButton("Get ClipBoard Data", 210, 310, 120, 30)
    
21.         GUISetState()
    
22. 
    
23.         ; Loop until user exits
    
24.         While 1
    
25.                 Switch GUIGetMsg()
    
26.                         Case $GUI_EVENT_CLOSE
    
27.                                 ExitLoop
    
28.                         Case $btn_SetData
    
29.                                 _ClipBoard_SetData ("ClipBoard Library")
    
30.                         Case $btn_GetData
    
31.                                 $str=_ClipBoard_GetData ()
    
32.                                 If $str<>0 Then
    
33.                                 MemoWrite($str)
    
34.                         Else
    
35.                                 $str1=ClipGet()                               
    
36.                                 MemoWrite($str1)
    
37.                                 EndIf
    
38.                 EndSwitch
    
39.         WEnd
    
40. 
    
41. EndFunc   ;==>_Main
    
42. 
    
43. ; Write message to memo
    
44. Func MemoWrite($sMessage = "")
    
45.         GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
    
46. EndFunc   ;==>MemoWrite

复制代码

kenan

回复 12# zjimmy

谢谢zjimmy
问题解决了

kenan

回复 13# 3mile


    3mile 还是谢了
看不懂你的代码什么意思，以后再看吧