'=================================
' Clipboard auto Fixer     Ver 1.3
'
' 2008/06/04      By CodeH 
'
'=================================
Dim clpData, objIE
Dim i
Dim OutStr

MsgBox "클립보드에 770426-1234567 과 같이 숫자 중간에 하이픈이 들어간 경우"  & vbcrlf  & "숫자만 재조합 해서 다시 클립보드에 넣어주는 동작을 합니다."  & vbcrlf & vbcrlf & "                                                                     2008/06/04" & vbcrlf & "                                                                     By CodeH" , vbokonly, "Clipboard auto Fixer     Ver 1.3"

	Set objIE = CreateObject("InternetExplorer.Application")
	objIE.Navigate("about:blank")
	
Do
	clpData = objIE.document.parentwindow.clipboardData.GetData("text")


	OutStr = ""
	If InStr(clpData,"-") Then 
		
		For i = 1 To Len(clpData)
			If IsNumeric(Mid(clpData,i,1)) Then		
				OutStr = OutStr & Mid(clpData,i,1)
			End if
		Next
		
		If IsNumeric(outstr) Then
			objIE.document.parentwindow.clipboardData.SetData "text",  OutStr

		End If
		
	End If
	WScript.Sleep 1 * 1000
Loop