vb문자숫자만1

• 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 F.. IT정보공유 2019. 11. 25.