VB6 숫자만 추출 하는 함수

문자열 중에서 숫자만 골라 추출해내는 함수입니다.

예를 들어 "12나3456" 같은 문자열이 있다고 했을때, 123456만 솎아낼 수 있습니다.

VB6의 문자열 관련 추출 함수인 Mid()와 
숫자를 판별해주는 함수인 IsNumeric 함수가 사용되었습니다.

 

Function GetOnlyNumber(ByVal InputStr As String)

   Dim i As Integer
   Dim NoStr As String

   For i = 1 To Len(InputStr)
      If IsNumeric(Mid(InputStr, i, 1)) Then
          NoStr = NoStr & Mid(InputStr, i, 1)
      End If

   Next i

   GetOnlyNumber = NoStr

End Function

VB Mid Function

Function Mid(String, Start As Long, [Length])
    VBA.Strings 구성원
    문자열에서 지정된 수만큼의 문자들을 반환합니다.
    

 

VB IsNumeric

Function IsNumeric(Expression) As Boolean
    VBA.Information 구성원
    식이 숫자 값으로 계산될 수 있는 경우 True를 반환합니다.