하나의 배열에서 다른 배열로 숫자 만 복사하는 방법

Question

몇 년 동안 VB에서 아무 것도 쓰지 않았습니다. 나는 중급반을 듣고 있는데 문제가있다. 나는 텍스트 상자 (도시 국가 및 우편 번호)에서 사용자가 입력 한 데이터를 가져 와서 우편 번호로만 우편 번호를 사용하는 인보이스 프로그램을 작성 중입니다. 사용자 데이터를 저장하는 배열을 만들었지 만이를 반복하고 숫자 값을 다른 배열에만 쓰는 방법을 알 수 없습니다. 일단 완료되면 두 번째 배열을 반복하고 배열 내용을 문자열에 써서 송장 번호로 표시 할 수있게해야합니다. 어떤 도움을 크게 char의 배열로

'the array that holds the user city state and zip 

Dim UserZip As String = txtCItyStateZip.Text 
Dim UserArray() As Char = UserZip.ToCharArray 
Dim ZipArray(4) As Integer 

For num As Integer = 0 To UserArray.Length - 1 
    If IsNumeric(num) Then 
     ZipArray(num) 
     num += 1 
    End If 
Next` 

Answer 1

저장 우편 번호를 평가하고 매개 변수로 char 배열을 유형 string의 생성자를 사용하는 것입니다.

Dim UserZip As String = txtCItyStateZip.Text 
Dim UserArray() As Char = UserZip.ToCharArray 
Dim ZipChars As New List(Of Char)() 

For num As Integer = 0 To UserArray.Length - 1 
    Dim character As Char = UserArray(num) 
    If IsNumeric(character) Then 
     ZipArray.Add(character) 
    End If 
Next 

Dim ZipCode As String = New String(ZipChars.ToArray()) 

가지 경우에 우편하면 코드가 예외를 던질 것보다 다음 4 개 개의 숫자를 포함 할 때 때문에, 우편 번호의 문자를 저장하는 사용 List(Of Char).

Answer 2

IsNumeric (num)은 항상 True를 반환합니다. 그것은이어야합니다

For num As Integer = 0 To UserArray.Length - 1 
    If IsNumeric(UserArray(num)) Then 
     ZipArray.Add(UserArray(num)) 
    End If 
Next