@echo off

REM -----------------------------------------
REM ----------------------------------------

set PARAM_ONE=%1

:loop
if (%PARAM_ONE%)==() goto parsed
if  (%PARAM_ONE%)==(kim) goto kim
if  (%PARAM_ONE%)==(2) goto kim
goto exe

:kim
 echo "My name is kim"
 goto end

:parsed
 echo "No Parameter"
 goto end
 
:exe
 echo "Parameter OK"

:end
    echo "end"
    echo %PARAM_ONE%

REM --------------------------------------------------------------
REM --------------------------------------------------------------

ARIS VB 분석시.

- Option Explicit     ' 명시적 변수 선언

- ReDim : 배열 변수의 저장 공간을 다시 할당합니다.
            프로시저 수준에서 동적 배열 변수를 선언하고 저장 공간을 할당하거나 다시 할당합니다.

        ReDim [Preserve] varname(subscripts) [, varname(subscripts)] . . .

                Preserve   :   ※. 기존 데이터 유지하면서 배열 증가시
                                마지막 차원의 크기를 바꿀 경우 기존 배열 안에 있는 데이터를 보존합니다.
                varname   :  변수 이름. 표준 변수 명명 규칙을 따릅니다.
                subscripts    :    배열 변수의 차원. 60개까지의 차원을 선언할 수 있습니다. subscripts 요소의 구문은 아래와 같습니다.
                upper [,upper] . . . :    배열의 하한값은 항상 0입니다.

        ReDim 문은 배열 차원의 첨자 없이 빈 괄호와 함께 Private, Public 또는 Dim 문을 사용하여 이미 정식으로 선언된 동적 배열의 크기를 정의하거나 다시 정의하는 데 사용합니다. ReDim 문을 반복하여 사용하면 배열의 차원과 요소를 바꿀 수 있습니다.
        Preserve 키워드를 사용하면 마지막 배열 차원의 크기만 변경할 수 있으나, 그 차원의 개수는 바꿀 수 없습니다. 예를 들어 1차원 배열만 있는 마지막이면서 유일한 차원이기 때문에 그 차원의 크기를 조절할 수 있지만, 2차원 이상의 배열인 경우 최종 차원의 크기만 조절할 수 있지만 그 배열의 내용은 그대로 보존하고 있습니다.
        아래 예제에서는 배열에 있는 기존 데이터를 삭제하지 않으면서 동적 배열의 마지막 차원의 크기를 늘리는 방법을 보여줍니다.

        ReDim X(10, 10, 10)
        . . .
        ReDim Preserve X(10, 10, 15)


- UBound 함수  : 지정 배열 차원에서의 배열 수 리턴    <->    LBound
        > UBound(배열명[, 배열차수])    : 배열차수 생략시 1로 간주
        > Dim A(100,3,4)
                UBound(A, 1)        :    100
                UBound(A, 2)        :    3
                UBound(A, 3)        :    4

- Private Function    : 리턴 값이 있는 함수
        [Public [Default] | Private] Function name [(argumentlist)]
          [statements]
          [name = expression]
          [Exit Function]
          [statements]
          [name = expression]
        End Function

- Private Sub         : 일반 함수.
        [Public [Default] | Private] Sub name [(argumentlist)]
          [statements]
          [Exit Sub]
          [statements]
        End Sub


- Type        
        [Private | Public] Type Type명
            요소명 As type
            요소명 As type
            . . .
        End Type

        Ex)
        Private Type Test
            Name1 as String * 6
            Age as Byte
            Address as String * 60
        End Type

        Private Sub Command1_Click()
            Dim a as Test
            a.Name1 = "먹순이" : a.Age = 1 : a.Address = "마당 화분 옆"
            Print "이름:" & a.Name1
            Print "나이:" & a.Age
            Print "주소:" & a.Address
        End Sub


- instr /  inStrRev
        instr 함수는 문자열중에 찾고자 하는 문자를 처음부터 찾아서 제일먼저 나오는 문자의 위치를 돌려줍니다.

        dim XX as integer
        xx=inStr("c:\windows\exeplorer.exe","\")

        이렇게 하게되면 xx는 3이 되죠 \가 3번째에 있으니까
        반대로 instrRev 함수는 문자열중에 찾고자 하는 문자를 뒤에서부터 찾습니다.

        dim XX as integer
        xx=inStrRev("c:\windows\exeplorer.exe","\")

        이러면 xx는 11이 됩니다.
        뒤에서 부터 \를 찾아봤을때 \는 11번째위치에 있는거죠 앞에서 11번째위치...
        이 위치를 알게되면 Mid나 Left,Right 같은 문자를 짜르는 함수를 이용하여        원하는 것을 할수 있을겁니다.


- Nothing
        VBScript의 Nothing 키워드는 개체 변수를 실제 개체와 구분하는 데 사용합니다.
        Set 문을 사용하여 Nothing을 개체 변수로 할당합니다. 사용 예는 아래와 같습니다.

        Set MyObject = Nothing

        여러 개체 변수들이 동일한 실제 개체를 참조할 수 있습니다.
        한 개체 변수를 Nothing으로 할당하면 그 변수는 어떠한 실제 개체도 참조하지 않습니다.
        여러 개체 변수들이 동일한 실제 개체를 참조할 경우 명시적으로 Set 문을 사용하여 해당되는 모든 변수들이 Nothing으로 설정된 후
        또는 함축적으로 Set 문을 사용하여 Nothing으로 설정된 마지막 개체 변수가 범위밖으로 빠져나간 후에만
        그 변수들이 참조하는 개체에 연결된 메모리와 시스템 리소스를 해제합니다.