Join 메서드 String 조작 Visual Basic

Question

ReDim 메서드를 다루는 Visual Basic (VB.Net)에서 조인 메서드 String Manipulation을 사용하는 것과 관련된이 연습에서는 약간의 도움이 필요합니다.

목표는 입력 상자를 사용하는 프로그램을 만드는 것입니다.

입력 상자는 루프 여야하며 지정된 명령을 눌러 제한에 도달 할 때까지 한 번에 한 단어 씩 표시합니다.

간단히 말해서 고정 루프는 없으며 사용자가 얼마나 많은 루프를 처리했는지에 따라 달라집니다.

일단 완료되면 조인 방법은 사용자 입력 수에 따라 작동합니다. 예 : "Hello + Hi + testing + one + two + three + four + five"

여기까지 지금까지 알아낼 수없는 코드가 있습니다.

Dim inputtext As String 
    Dim counter As Integer 
    Dim language() As String 


Do Until inputtext = "." 
     inputtext = InputBox("Enter the language as many as you can") 
     MsgBox(inputtext) 
     counter = counter + 1 
    Loop 

    ReDim Preserve language(inputtext) 


    inputtext = String.Join("+", language) 
    MsgBox(inputtext.ToString) 

Answer 1

당신의 설명을 따라 난 당신이 다음과 같다 필요가 무엇이라고 생각 : 내가 당신 Do..Until 코드 블록을 업데이트 한 참조하십시오.

Dim inputtext As String="" 
    Dim counter As Integer =0 
    Dim language(0) As String 


Do Until inputtext = "." 
     inputtext = InputBox("Enter the language as many as you can") 
     ReDim Preserve language(UBound(language) + 1) 
     language(counter) = inputtext 
     MsgBox(inputtext) 
     counter = counter + 1 

    Loop 

    ' ReDim Preserve language(inputtext) 


    inputtext = String.Join("+", language) 
    MsgBox(inputtext.ToString) 

Answer 2

당신은 그렇지 않으면 당신은 마지막 값을 추가합니다, 배열을 REDIM 루프 내부 inputtext을 추가해야합니다.

Dim inputtext As String 
Dim counter As Integer 
Dim language() As String 

Do Until inputtext = "." 
    inputtext = InputBox("Enter the language as many as you can") 
    If inputtext <> "." Then 
     MsgBox(inputtext) 
     ReDim Preserve language(counter) 
     language(counter) = inputtext 
     counter = counter + 1 
    End If 
Loop 

inputtext = String.Join("+", language) 
MsgBox(inputtext.ToString)