Редактирование буфер обмена

$TEXT="http://www.forum.com/editpost.php?do=editpost&p=887834"
MsgBox(0,"",StringRegExpReplace($TEXT,"(.*)(=)(.*)","\3"))

$sOldClip = ClipGet()

While 1
	$sCurrentClip = ClipGet()
	
	If $sOldClip <> $sCurrentClip Then
		$sOldClip = StringRegExpReplace($sCurrentClip, '^http://.*=(\d+)$', '\1')
		ClipPut($sOldClip)
	EndIf
	
	Sleep(100)
WEnd

#include <GUIConstantsEx.au3>
#include <ClipBoard.au3>
#include <WindowsConstants.au3>
#include <SendMessage.au3>

; Create GUI
$hGUI = GUICreate("Clipboard", 600, 400)

; Initialize clipboard viewer
$hNext = _ClipBoard_SetViewer($hGUI)

GUIRegisterMsg($WM_CHANGECBCHAIN, "WM_CHANGECBCHAIN")
GUIRegisterMsg($WM_DRAWCLIPBOARD, "WM_DRAWCLIPBOARD")

; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

; Shut down clipboard viewer
_ClipBoard_ChangeChain($hGUI, $hNext)

Func WM_CHANGECBCHAIN($hWnd, $iMsg, $iwParam, $ilParam)
	; If the next window is closing, repair the chain
	If $iwParam = $hNext Then
		$hNext = $ilParam
		; Otherwise pass the message to the next viewer
	ElseIf $hNext <> 0 Then
		_SendMessage($hNext, $WM_CHANGECBCHAIN, $iwParam, $ilParam, 0, "hwnd", "hwnd")
	EndIf
EndFunc

Func WM_DRAWCLIPBOARD($hWnd, $iMsg, $iwParam, $ilParam)
	Local $sClipboard_Data = _ClipBoard_GetData()
	Local $aUrl_Number = StringRegExp($sClipboard_Data, '^http://.*=(\d+)$', 3)
	
	If Not @error Then
		_ClipBoard_SetData($aUrl_Number[0])
		ConsoleWrite($aUrl_Number[0] & @LF)
	EndIf
	
	; Pass the message to the next viewer
	If $hNext <> 0 Then
		_SendMessage($hNext, $WM_DRAWCLIPBOARD, $iwParam, $ilParam)
	EndIf
EndFunc