[Script] 클립보드 숫자 중간에 하이픈 제거.

일반적으로 많이 쓰이진 않겠지만..
주민번호라던지....전화번호라던지...숫자 중간에 하이픈이 들어가 있는경우...
클립보드로 복사하면 중간에 하이픈을 강제로 빼주는 동작을 합니다.
응용하면 좀더 원하는 동작이 가능 하겠죠?
Windows Based Script 로 만들어져서 첨부 파일 더블 클릭하면 실행됩니다.

invalid-file

소스 입니다.
'=================================
' 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