명령행 인자 처리 예제 for Visual Basic

소스 파일명: TestArguments.vbs

Imports System

Namespace MyTestApplication1

    public class TestArguments

        ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main
        Shared Sub Main(ByVal args As String())
            Dim sum As Double = 0.0    ' 초기화

            ' 명령행 인자(command-line argument) 개수 출력
            Console.WriteLine("Count of arguments: " & args.Length)

            For i As Integer = 0 To args.Length - 1
                ' 스트링을 배정밀도 부동소수점수로 변환하여 누적
                sum = sum + Convert.ToDouble(args(i))
            Next

            ' 출력 값이 ".0"으로 끝나는 경우 꼬리 제거하기
            Dim strSum As string = "" & sum
            If strSum.EndsWith(".0") Then
                strSum = Mid(strSum, 0, strSum.Length - 2)
            End If

            ' 누적된 값을 출력한다.
            Console.WriteLine("The sum of arguments is " & strSum)
        End Sub

    End Class
       
End Namespace

 

컴파일> vbc TestArguments.bas

실행> TestArguments 1 2 3 4
Count of arguments: 4
The sum of arguments is 10

실행> TestArguments 1 2.1 3 4.5
Count of arguments: 4
The sum of arguments is 10.6

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.