Clipboard

[mLipok]

situation for example:

I write some document in a WORD PROCESSOR PROGRAM => WPP

In this WPP I COPY some CONTENT of this document to clipboard (CTRL+C)

my Question:

How to write clipboard to file in a specific way that give me posibility

to read that file in to clipboard in a future,

and then PASTE (using CTRL+V) the CONTENT (with specific text formating used by WPP)

[cdkid]

You could use INIWrite/INIRead, ClipPut/ClipGet i s'pose

~cdkid

Edited March 19, 2006 by cdkid

[billmez]

situation for example:

I write some document in a WORD PROCESSOR PROGRAM => WPP

In this WPP I COPY some CONTENT of this document to clipboard (CTRL+C)

my Question:

How to write clipboard to file in a specific way that give me posibility

to read that file in to clipboard in a future,

and then PASTE (using CTRL+V) the CONTENT (with specific text formating used by WPP)

You use ClipGet to read the contents into a variable, and then write the contents to a file using FileOpen (search the help file for these)

The clipboard won't contain or save your word processor formatting codes as they are application specific and not in a readable text format. The only way to save these codes with the contents is to save the word processor file from the WP.

[mLipok]

The clipboard won't contain or save your word processor formatting codes as they are application specific and not in a readable text format. The only way to save these codes with the contents is to save the word processor file from the WP.

I know about FileOpen function.

But I need exacly that what You write BINARY CLIPBOARD SAVE/LOAD Method.

This give me a new posibility for example I can save a screenshot....

hm... I have another question similar to the first one:

Can I in AutoIt check that something:

where in memory is located actual CLIPBOARD content

I just thinking how to save memory block to binary file

[Bert]

I made this to work as a clipboard tool. This may help you. I run mine so it uses a hotsetkey. Usually F6 will work fine. If someone wants to improve the script, please feel free to tweak to your heart's content!

expandcollapse popup

ODE
#include<GuiConstants.au3>
#include<file.au3>

#endregion

;-----------------------------



$main_gui = GUICreate("QuickPaste 2.0", 600, 85)

$filemenu = GUICtrlCreateMenu ("&File")

$fileitem = GUICtrlCreateMenuitem ("Paste",$filemenu)

$fileitem1 = GUICtrlCreateMenuitem ("Clean then Paste",$filemenu)

$separator1 = GUICtrlCreateMenuitem ("",$filemenu,2) ; create a separator line

$fileitem2 = GUICtrlCreateMenuitem ("Add Entry",$filemenu)

$fileitem3 = GUICtrlCreateMenuitem ("Remove Entry",$filemenu)

;$separator2 = GUICtrlCreateMenuitem ("",$filemenu,2) ; create a separator line

$fileitem4 = GUICtrlCreateMenuitem ("Open QuickPaste.ini",$filemenu)

$fileitem5 = GUICtrlCreateMenuitem ("Cancel",$filemenu)

$filemenu1 = GUICtrlCreateMenu ("&Help")

$fileitem6 = GUICtrlCreateMenuitem ("Help",$filemenu1)

$fileitem7 = GUICtrlCreateMenuitem ("About",$filemenu1)

$Combo_2 = GUICtrlCreateCombo("", 20, 5, 500, 80)

$data1 = _LoadData(@ScriptDir & "\quickpaste.ini", $Combo_2)

$button1 = GUICtrlCreateButton("Paste", 530, 5, 60, 20)

$button2 = GUICtrlCreateButton("Clean then Paste", 500, 32, 90, 20)

$button3 = GUICtrlCreateButton("Add", 20, 32, 60, 20)

$button4 = GUICtrlCreateButton("Remove", 100, 32, 60, 20)

$button5 = GUICtrlCreateButton("Cancel", 180, 32, 60, 20)

;$button10 = GUICtrlCreateButton("About", 260, 32, 60, 20)

; Run the GUI until it is closed

GUISetState()

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

;When button1 is pressed, label text is copied to the clipboard

Case $msg = $button1 or $msg = $fileitem

$data = GUICtrlRead($Combo_2)

ClipPut($data)

Sleep(200)

GUISetState(@SW_HIDE, $main_gui)

sleep(200)

Send("^v")

Exit

;When button2 is pressed, it will clean the edit field in the application, then paste the contents from the clipboard.

Case $msg = $button2 or $msg = $fileitem1

$data = GUICtrlRead($Combo_2)

ClipPut($data)

Sleep(200)

GUISetState(@SW_HIDE, $main_gui)

sleep(200)

Send("^a")

sleep(200)

Send("{DELETE}")

Send("^v")

Exit

;---------------------------------------

;this will open a sub GUI window to allow for adding or removing data

Case $msg = $button3 or $msg = $fileitem2

GUISetState(@SW_HIDE, $main_gui)

$add_gui = GUICreate("Add entry to QuickPaste", 520, 165)

$file = GUICtrlCreateedit("", 10, 5, 500, 130, $SS_LEFT + $WS_VSCROLL) ; , )

GUICtrlSetState(-1, $GUI_ACCEPTFILES)

$button6 = GUICtrlCreateButton("Ok", 10, 140, 60, 20)

$button7 = GUICtrlCreateButton("Cancel", 90, 140, 60, 20)

GUISetState(@SW_SHOW, $add_gui)



$msg2 = 0

While $msg2 <> $GUI_EVENT_CLOSE

$msg2 = GUIGetMsg()

Select

Case $msg2 = $button6 ; this will add data to the quickpaste.ini file. It will make the file if it is missing

$adddata = GUICtrlRead($file)

_SaveData(@ScriptDir & "\quickpaste.ini", $data1 & $adddata & "|")

ExitLoop



Case $msg2 = $button7



ExitLoop

EndSelect



WEnd

GUIDelete($add_gui)

$data1 = _LoadData(@ScriptDir & "\quickpaste.ini", $Combo_2)

GUISetState(@SW_SHOW, $main_gui)



;----------------------------------------

;this will open a window that will remove a entry selected from the drop down list.

Case $msg = $button4 or $msg = $fileitem3

$rem_item = GUICtrlRead($Combo_2)

If StringLen($rem_item) Then

GUISetState(@SW_HIDE, $main_gui)

$del_gui = GUICreate("Remove entry from QuickPaste?", 500, 130)

$file = GUICtrlCreateLabel ("Are you sure you wish to delete the entry:", 5, 5)

$file1 = GUICtrlCreateedit ($rem_item, 5, 25, 490, 80, $WS_VSCROLL + $ES_READONLY)

GUICtrlSetState(-1, $GUI_ACCEPTFILES)

$button8 = GUICtrlCreateButton("Yes, remove it", 150, 108, 100, 20)

$button9 = GUICtrlCreateButton("Cancel", 270, 108, 60, 20)

GUISetState(@SW_SHOW, $del_gui)



$msg2 = 0

While $msg2 <> $GUI_EVENT_CLOSE

$msg2 = GUIGetMsg()

Select

Case $msg2 = $button8 ; this will remove an entry from the quickpaste.ini file.

$data1 = StringReplace($data1, $rem_item & "|", "")

_SaveData(@ScriptDir & "\quickpaste.ini", $data1)



ExitLoop



Case $msg2 = $button9

ExitLoop

EndSelect

WEnd

GUIDelete($del_gui)

$data1 = _LoadData(@ScriptDir & "\quickpaste.ini", $Combo_2)

GUISetState(@SW_SHOW, $main_gui)

EndIf



Case $msg = $button5 or $msg = $fileitem5

exit



Case $msg = $fileitem4

If fileexists("quickpaste.ini") == 0 then

MsgBox(4096,"", "You have not added any entries to this file. Add a entry, then you can open Quickpaste.ini for editing ")

else

Run(@ComSpec & " /c " & 'quickpaste.ini', "", @SW_hide)

endif



Case $msg = $fileitem6

MsgBox(0 + 64, "How to use QuickPaste", "- To select what you want pasted to your current work, use the " & @CRLF _

& " dropdown to select the item you want. Once selected, click PASTE." & @CRLF _

& " If you want to delete the contents from the field you are editing before" & @CRLF _

& " hand, click CLEAN THEN PASTE" & @CRLF _

& "" & @CRLF _

& "- To enter a new item in the list, click ADD" & @CRLF _

& " Type in what you want to have entered, then click OK." & @CRLF _

& "" & @CRLF _

& "- To remove a entry, select the item you wanto to remove, then click on REMOVE" & @CRLF _

& " If you are sure this is what you wish to remove, click YES, REMOVE IT." & @CRLF _

& "" & @CRLF _

& "- You can click CANCEL to back out if needed.")



Case $msg = $fileitem7

MsgBox(0 + 64, "About QuickPaste 2.0", "Designed and written by Martin Hawes" & @CRLF _

& " Richmond Headquarters CTS" & @CRLF _

& "" & @CRLF _

& " To report a bug, call STnet 632-9139")



EndSelect





WEnd

Exit

Func _LoadData($s_file, ByRef $h_Combo)

;$note1 = IniRead($s_file, "QuickType", "items", "")

$note1 = IniRead($s_file, @UserName, "items", "")



GUICtrlSetData($h_Combo, "|" & $note1)

Return $note1

EndFunc ;==>_LoadData

Func _SaveData($s_file, $s_data)

IniWrite($s_file, @UserName, "items", $s_data)

;IniWrite($s_file, "QuickType", "items", $s_data)

EndFunc ;==>_SaveData

 

Edited April 26, 2015 by Jon
Broken formatting