안산드레아스

(아래 사이트 참고)

https://www.tutorialspoint.com/vbscript/vbscript_strings.htm

(문자열 함수에 대한 자세한 옵션들 설명 자료)

https://www.promotic.eu/en/pmdoc/ScriptLangs/VBScript/PropMeth/InstrRev.htm

VBScript 관련 문자열 처리 함수

1. InStr

  왼쪽부터 "dich" 라는 글자를 찾아 첫 단어의 위치를 리턴

Dim strName 
strName = "Ich liebe dich so wie du mich Am a bend und am morgen"

a = InStr(strName, "dich")

msgbox a

2. Lcase , Ucase

Dim strName 
strName = "Ich liebe dich so wie du mich Am a bend und am morgen"

a = Lcase(strName)
b = Ucase(strName)

msgbox a & vbCrLf & b

  문자열을 대소문자로 출력

3. Left, Right, Mid

Dim strName 
strName = "Ich liebe dich so wie du mich Am a bend und am morgen"

a = Left(strName, 3)
b = Right(strName, 5)
c = Mid(strName, 6, 10)

' vbCrLf 줄바꿈 케리지 리턴
msgbox a & vbCrLf & b & vbCrLf & c

  좌측 우측으로 부터 지정 갯수만큼 출력

  중앙의 시작과 끝 부분 지정으로 출력

4. Ltrim, Rtrim, Trim

   왼쪽 끝, 오른쪽 끝의 공백을 제거,  양쪽모두 공백 제거

Dim strName 
strName = "    Ich liebe    "


' 왼쪽 공백제거
a = LTrim(strName)
' 오른쪽 공백을 제거
b = Rtrim(strName)
' 왼쪽, 오른쪽 끝 모든 공백 제거
c = Trim(strName)

' vbCrLf 줄바꿈 케리지 리턴
msgbox strName & vbCrLf & a & vbCrLf & b & vbCrLf & c

5. Len

  문자열의 갯수를 반환

Dim strName 
strName = "Ich liebe"


a = Len(strName)

msgbox a

6. Replace

    특정 문자열을 대체함

Parameters:

' 소문자 a를 대문자 P로 변경
a = Replace("AaBbBaAaA", "a", "P")
msgbox a

 3번째부터 끝(-1)까지 검사 중, a를 P로 변경

' Replace()
a = Replace("AaBbBaAaA", "a", "P", 3, -1)

msgbox a

7. Space

  지정한 갯수만큼 공백이 채워짐

Dim strName 
strName = "Ich liebe"

repStr = "damm"

a = Space(10)

msgbox strName & a & repStr

8. StrComp

  두 문자열 비교 동일한지 다른지, 긴지 적은지

Dim str1, str2 

' 두 문자열이 동일하면 0을 리턴
str1 = "weAreSame"
str2 = "weAreSameABCD"

a = StrComp(str1, str2)

msgbox a

9. String

  문자열을 지정한 갯수만큼 복사하여 반환

' 지정된 문자를 숫자만큼 복제하여 반환
a = String(5, "*")
b = String(10, "!")

msgbox a & " " & b

10. 문자열을 역순으로 뒤집음

Dim s
s = StrReverse("VBScript")   ' s contains "tpircSBV"
msgbox s

<경로에 파일 생성하여 쓰기>

Dim  fso, fileName, filePath, storing, str, LogFile

' 저장하고자 하는 파일 명, 저장 경로 설정
fileName = "myLog.txt"
filePath = "c:\LogFiles\"
storing = filePath & fileName

' string도 내용 안에 넣을 수 있음. (24번 줄에 추가함)
str ="Hello World"

' 특정 경로에 파일 생성하여 로고 생성
Set fso = CreateObject("Scripting.FileSystemObject")

MsgBox "Logfile path is " & filePath & fileName,,"Check your Path"

' LogFile에 파일생성 후 Write가 가능하도록 object 생성
' WriteBlankLines(아래칸이동)
' vbCrLf : 케리지 리턴 (엔터키)
' WriteLine vs Write : WriteLine는 출력 이후 줄을 바꿉니다. Write 는 출력만 합니다.

Set LogFile = fso.CreateTextFile(storing, True)
LogFile.Write("This is a test write to the logfile")
LogFile.WriteBlankLines(3)
LogFile.Write("The Value of string 3 is " & str & vbCrLf)
LogFile.WriteBlankLines(2)
LogFile.WriteLine("Closing the Logfile")
LogFile.Write("end")
LogFile.close

MsgBox "Log file was successfully created.",,"Done!"

(결과)

    str에 추가한 문자열도 잘 들어가있음, 문자열 변경 후 end도 잘 들어감

(윈도우 상에서 드라이브 맵핑 하는 방법은 아래를 참고...)

https://ansan-survivor.tistory.com/873

(아래 튜토리얼 참고)

https://www.tutorialspoint.com/vbscript/vbscript_fso_objects.htm

OS에서 특정 드라이브를 읽고 그 용량을 kbyte 단위로 출력해주는 코드

Dim oFS, drive, space
Set oFS = CreateObject("Scripting.FileSystemObject")

dim driveName 
driveName = "C:\" 

Set drive = oFS.GetDrive(oFS.GetDriveName(driveName))

space = driveName & UCase(drvPath) & " - " 
space = space & drive.VolumeName   & "  "
space = space & "Free Space: " & FormatNumber(drive.FreeSpace/1024, 0) 
space = space & " Kbytes"

msgbox("driveName : " & space)

(결과)

만약 다른 드라이브라면, drivename에 드라이브 명만 바꾸면 된다.

Runtime 도중 에러가 발생하면 모든 작업이 중단되고 비정상 종료가 된다.

하지만 중요한 작업의 경우, 또는 시간이 아주 오래걸리는 경우, 별것도아닌 사소한 에러로 종료가 되면 가슴이 아프다.

대표적으로 에러를 무시하고 진행하는 코드

On Error Resume Next

이 스위치를 off 시키는 코드

On Error GoTo 0

에러 핸들링을 위한 예제 코드

아래는 0으로 나눠 고의로 에러를 일으키는 예시이다.

에러가 발생하면 Err.Number에는 에러넘버가 들어가고 그때 발생한 에러의 설명 Err.Description을 출력한다.

해당 에러를 다시 클리어 하고 Err.Clear  계속 진행한다.

On Error Resume Next

' 0으로 나누는 예시
result = 10 / 0

' 오류 체크
If Err.Number <> 0 Then
    ' 오류 발생 시 실행할 작업
    WScript.Echo "오류 발생: " & Err.Description
    ' 오류 정보 초기화
    Err.Clear
End If

On Error GoTo 0
' 다음 작업 계속...

* On Error GoTO 0 와 Err.Clear 차이점.

• On Error GoTo 0: 오류 처리를 기본 상태로 되돌림.
• Err.Clear: 현재 오류 정보를 초기화하여 오류 번호와 설명을 비움.

Error Handling에 대한 자료들

https://www.tutorialspoint.com/vbscript/vbscript_error_handling.htm

VBScript 관련 에러 메세지 종류

https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/error-messages/

User Define Function으로 함수를 만들고, 함수를 호출할 때는 Call 으로 한다.

Function 함수 만들기 기본 예제 사용법...

두 값을 받아 출력하는 함수.

Function sayHello(name, age)
    msgbox( name & " is " & age & " years old.")
End Function

Call sayHello("Tutorials point", 7)

 * Return 값이 있는 함수

선언한 함수명 그 자체는 Return시 자기 이름 자체에 연산결과를 리턴한다.

Function Adder(a, b)
    result = a + b
    ' 함수 내에서 연산된 값을 출력
    msgbox( " output is " & result & " years old.")

    ' 연산결과인 result값을 함수값 자체로 return 시킴
    Adder = result
End Function


dim x,y
x = 1
y = 2



' Return된 함수 Adder에 x, y 값을 넣어서 출력해봄
dim outputVal
outputVal = Adder(x,y)

msgbox( " output is " & outputVal & " years old.")

코드 작동 순서. (Function은 선언만 된거지 호출 전까지 실행은 되지 않는다)

 1. dim x, y 변수 및 값 대입

 2. Adder() 함수가 호출되었으며, 값 x와 y가 대입되었다.

 3. Adder(a, b) 함수에 a=x , b=y 값이 입력되었으며 함수의 연산이 시작된다.

 4. 그리고 msgbox에 우측과 같이 값이 띄어진다.

 5. 함수명이었던 Adder는 값 3을 return받아 갖고 있게되고, 그 값을 ouputVal 이라는 변수에 넣어 주었다.

 6. 그리고 그 결과가 출력된다.

(VBscript 각종 내장 함수들)

https://www.w3schools.com/asp/asp_ref_vbscript_functions.asp

Sub-Procedures are similar to functions but there are few differences.

Sub루틴은 함수와 유사하지만 아래 차이점이 있다.

• Sub-procedures DONOT Return a value while functions may or may not return a value.

        Sub루틴은 Return값이 없다.

• Sub-procedures Can be called without call keyword.

        Sub루틴은 Call 명령 없이 호출 가능하다

• Sub-procedures are always enclosed within Sub and End Sub statements.

        Sub루틴은 항상 Sub과 End Sub 사이에 구문이 있다.

Sub루틴 예제

Sub sayHello()
    msgbox("Hello there")
End Sub

' call없이 이름만 아래와 같이 쓰면 실행 된다. 
' 만약 function이라면 call sayhello() 이런식으로 해야 한다.
sayHello()

아래를 참고하면 좋다.

https://www.tutorialspoint.com/vbscript/vbscript_procedures.htm#:~:text=The%20most%20common%20way%20to,the%20end%20of%20the%20function.

VBscript에서 배열을 선언하는 방식은 아래와 같다.

'Method 1 : 동적 배열 선언 (사이즈를 한정하지 않음)
Dim arr1() 'Without Size

'Method 2 : 정적 배열 선언 (사이즈를 한정함 5칸)
Dim arr2(5) 'Declared with size of 5

'Method 3 : 정확한 parameter 를 넣어 선언
Dim arr3
arr3 = Array("apple","Orange","Grapes")


for i = 0 to 2 step 1
    msgbox "num of " & arr3(i),, ""
next

(결과)

for문으로 3번 반복하게 했으며, 그때마다 출력이 달라진다.

Array에 정해진 크기를 할당한 후, 각 array 칸당 하나씩 값을 입력하기

출력할 수 있는 타입들. (문자열, 숫자(정수/소수) , 날짜, 시간

' array를 5칸 지정(assign)하고,
' 그러면 0부터 5까지 총 6개의 array가 할당된다.
' 아래와 같이 각 array에 값을 하나씩 넣을 수 있다.


Dim arr(5)
arr(0) = "1"            'Number as String
arr(1) = "VBScript"     'String
arr(2) = 100            'Number
arr(3) = 2.45           'Decimal Number
arr(4) = #10/07/2013#   'Date
arr(5) = #12.45 PM#     'Time


for i = 0 to 5 step 1
    msgbox "num of " & arr(i),, ""
next

(결과) 아래와 같이 msgbox가 연달아 실행된다.

ReDim a()  : 이미 정의되어있는 배열크기 재정의

ReDim Preserve a() : 기존의 배열값을 유지한 채 array 크기를 다시 정의

ubound(a)  : 배열의 사이즈 (크기)를 담음

' array의 크기를 한정하지 않고, dynamic하게 조절
' ReDim은 다시 정의 한다는 뜻으로 안에 내용물을 싹 지우고 새롭게 할당.
' REDIM PRESERVE 는 기존 내용물은 그데로 두고 수정 및 추가에 사용.


' a()는 dynamic 사이즈의 array로 들어오는 array따라 유동적으로 크기 변경
DIM a()
i = 0

' REDIM 으로 선언하여 기존의 a()를 새롭게 5칸 크기로 재정의
REDIM a(5)
a(0) = "XYZ"
a(1) = 41.25
a(2) = 22


'위에서 선언된 a(5) 까지 모든 항목은 그대로 유지한체, 사이즈를 a(7)까지 늘림
'즉 a(0),a(1),a(2) 값은 그대로 유지
REDIM PRESERVE a(7)
For i = 3 to 7
   a(i) = i
Next
  
'for문의 루프수를 a배열의 갯수만큼 돌림
For i = 0 to ubound(a)
   Msgbox a(i)
Next


for i = 0 to 5 step 1
   msgbox "num of " & arr(i),, ""
next

(결과)

배열의 갯수 만큼 a(0) 값부터 쭉 출력됨

그밖에 배열 관련 함수

FunctionDescription

<배열의 차원 및 갯수 구할때 사용 LBound , UBound>

* LBound

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/lbound-function

* UBound

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/ubound-function

<문자열을 특정 Delimete으로 자르기 Split>

https://www.w3schools.com/asp/func_split.asp

<문자열을 특정 Delimete으로 붙이기 Join>

https://www.w3schools.com/asp/func_join.asp

<문자열 내 특정 단어를 검색하여 내부 값을 찾아냄 Filter>

https://www.w3schools.com/asp/func_filter.asp

아래 간단한 코드를 돌려보면서 이해

' 변수 정의하기
Dim temparr

' 이미 정의된 변수 재정의하며 동시에 크기까지 지정 (여기서 크기 1은, 0과 1까지 총 2칸이다)
Redim temparr(1)

' 0번칸에 값 넣기
temparr(0) = "hi"

' array는 0부터시작
msgbox temparr(0)

Redim Preserve temparr(3)
msgbox temparr(0)


txt = "a,b,c,e"
temparr = split(txt, ",")

' 0,1,2,3 숫자세서 마지막 숫자를 셈
msgbox Ubound(temparr)

' Ubound는 temparr의 크기값이 들어감
for i = 0 to Ubound(temparr)
    msgbox temparr(i)
Next

2차원 배열에 대해서는 아래를 참고.

https://ansan-survivor.tistory.com/1939

* 매우 유용. (생성한 List (Array)에 대해서 Append 시키거나 하는 방법), Collection을 사용하여 List와 같이 활용

https://ansan-survivor.tistory.com/1945

마소 공식 가이드 

https://docs.microsoft.com/ko-kr/dotnet/visual-basic/language-reference/statements/set-statement

특징.

  변수의 앞글자에 숫자x

  마지막에 특수문자 . 들어가면 안됨

  변수길이 255자 이내

  대소문자 구분 안함

  문자열(String) 오직 " " 큰따옴표만 사용 내부에 있는 경우 String이 됨,

  작은따옴표 ' 는 주석으로만 사용.  
  날짜, 시간 저장 가능. ex) 함수 : Now()    /   날자형 변수(#)사용 Today = #20/07/2020#

  True

 숫자 타입. (Digit Type)

결과값 출력확인을 위해서 Msgbox를 쓸 수 있다.

https://ansan-survivor.tistory.com/1510

1. 주석달기, 변수 선언하기

변수선언 : Dim [변수명]

주석달기 : 문자 ' 를 앞에 쓰면 뒤에는 모두 주석이 됨.

예)

' 주석달기
' 변수 하나
Dim MyVar
' 변수 여럿
Dim a,b,c,d

2. 변수에 값 대입하기

숫자 : [변수명] = 12.34  

문자 : [변수명] = "hello world"

예)

pi = 3.1415
str = "come back"

3. 상수 선언하기

  (변수는 언제든 값을 바꿔서 넣을 수 있지만, 상수는 한번 선언하면 계속 그값이 유지된다)

Const [상수명] = 값

예)

Const MAXMEMBER = 12039382
Const PI = 3.1415

4. Set 사용하기, 개채변수 선언, Object나 Collection을 담는 변수

  Dim으로 선언 후, Set으로 개채변수로 사용

Set [개채변수] = object

예) dict 개체변수선언, 그리고 dict에 여러개 object를 넣음

Dim dict 
Set dict = CreateObject("Scripting.Dictionary")
dict.Add "Name", "VBScript" 
dict.Add "Id", "1" 
dict.Add "Trainer", "K Mondal"

If dict.Exists("Name") Then 
    msgbox true
Else 
    msgbox false
End If

5. 두개의 문자열 합치기 & 연산자

str1 = "hello "
str2 = "world"
str3 = str1 & str2 & "nice to meet you"

6. 조건문 (If, Elseif, Else ,End if)

형태

If condition Then
     [statements]

[Elseif condition Then]

     [elseif_statements]

[Else]

     [elsestatements]

End If

예)

dim a
a = 11

if a < 10 Then
    result = True
elseif a >= 5 Then
    result = false
else
    result = 0
end if

msgbox result

7. 비교문 (AND, OR, IS NOTHING, NOT)

Dim dict 
Set dict = Nothing

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

(Nothing 출처: http://www.namsam.com/asp/vbscript/ko_597.htm)

8. for 반복문 (for ... next)

형태

For counter = start To end [Step step]

     [statements]

Next

예)

for i = 0 to 10 step 1
    msgbox i
next

9. for each 반복문 (for ... Each)

여러항목이 있는 Lists 안에 각각 하나씩 빼서 다 나올 때까지 반복

형태

For Each OneList In Lists

     MsgBox & OneList   

Next

10. While 반복문

여러항목이 있는 Lists 안에 각각 하나씩 빼서 다 나올 때까지 반복

형태

예)

dim a
a = 3


while a < 10
    msgbox "num of " & a,, ""
    a = a + 1
wend

11. Case 문

형태

 Select Case [variable_name]

        Case   [value1] 

                   [statements]

        Case  [value2] 

                [statements]

        Case Else

                 [statements]

  End Select

예)

dim a
a = 3

select case a

    case 1
        msgbox "a is 1"
    case 2
        msgbox "a is 2"
    case else
        msgbox "nothing"
        
end select

참고하기 좋은 사이트

-> https://kkamikoon.tistory.com/entry/VBVisual-Basic-Script-%EA%B8%B0%EB%B3%B8-%EB%AC%B8%EB%B2%95

Microsoft에서 가벼운 텍스트 편집기로 지원하는 VScode Editor는 기업무료 지원이다.

따라서 자유롭게 설치하여 사용할 수 있따.

(설치는 아래 링크에서 한다)

https://code.visualstudio.com/download

설치가 완료되면 사용하고자 하는 언어팩 패키지를 설치하여 사용한다.

단축키 Ctrl + Shift + x 를 누르면 좌측에 창이 나온다.

원하는 언어를 치고 다운받자

그리고 아래 사이트는 각종 꿀팁들...

https://demun.github.io/vscode-tutorial/#_12