홈으로 | 무료회원가입 | 아이디/비번찾기
추천음악방송
자주 쓰는 내장함수 (VisualBasic6)
12년 전
InStr 함수 예제

다음은 InStr 함수를 사용하여 주어진 문자열 내에서 사용자가 지정된 문자열이 최초로 나타나는 지점을 찾아내는 예제입니다.

Dim SearchString, SearchChar, MyPos

SearchString ="XXpXXpXXPXXP"         ' 찾을 문자열.

SearchChar = "P"                              ' "P" 찾기.

MyPos = Instr(4, SearchString, SearchChar, 1)   ' 4 위치에서 텍스트 비교 시작. 6을 반환합니다.

MyPos = Instr(1, SearchString, SearchChar, 0)   ' 1 위치에서 이진 비교 시작. 9를 반환합니다.

' 비교는 기본값으로 이진법(마지막 인수는 생략).

MyPos = Instr(SearchString, SearchChar)          ' 9를 반환합니다.

MyPos = Instr(1, SearchString, "W")                  ' 0을 반환합니다.




Left 함수 예제

다음은 Left 함수를 사용하여 문자열의 왼쪽 끝에서부터 지정된 문자 수 만큼의 글자를 반환하는 예제입니다.

Dim AnyString, MyStr

AnyString = "Hello World" ' 문자열 정의.

MyStr = Left(AnyString, 1)      ' "H"를 반환합니다.

MyStr = Left(AnyString, 7)  ' "Hello W"를 반환합니다.

MyStr = Left(AnyString, 20) ' "Hello World"를 반환합니다.







Len 함수 예제

다음은 Len 함수를 사용하여 주어진 문자열이나 변수를 저장하는데 필요한 바이트 수를 구해내는 예제입니다. CustomerRecord를 정의하는데 사용하는 Type...End Type 블럭을 클래스 모듈에서 정의할 경우에는 반드시 맨 앞에 Private 키워드를 먼저 선언해 주어야 하고, 그냥 일반 모듈에서 사용할 경우에는 Type 블럭을 Public으로 선언할 수도 있습니다.

Type CustomerRecord ' 사용자 정의 형식 정의.

ID As Integer ' 이 정의를

Name As String * 10에 위치시킴 ' 표준 모듈.

Address As String * 30

End Type

Dim Customer As CustomerRecord ' 변수 선언.

Dim MyInt As Integer, MyCur As Currency

Dim MyString, MyLen

MyString = "Hello World" ' 변수 초기화.

MyLen = Len(MyInt)        ' 2를 반환합니다.

MyLen = Len(Customer) ' 42를 반환합니다.

MyLen = Len(MyString) ' 11을 반환합니다.

MyLen = Len(MyCur)        ' 8을 반환합니다.







Mid 함수 예제

다음은 Mid 함수를 사용하여 문자열로부터 지정된 수 만큼의 문자를  따내는 예제입니다.

Dim MyString, FirstWord, LastWord, MidWords

MyString = "Mid Function Demo" ' 텍스트 문자열 작성합니다.

FirstWord = Mid(MyString, 1, 3)          ' "Mid"를 반환합니다.

LastWord = Mid(MyString, 14, 4)          ' "Demo"를 반환합니다.

MidWords = Mid(MyString, 5)              ' "Function Demo"를 반환합니다.







Abs 함수 예제

다음은 숫자의 절대값을 계산하기 위해 Abs 함수를 사용하는 예제입니다.

Dim MyNumber

MyNumber = Abs(50.3) ' 50.3을 반환합니다.

MyNumber = Abs(-50.3) ' 50.3을 반환합니다.







Int 함수, Fix 함수 예제

다음 예제에서는 Int와 Fix 함수가 숫자의 정수 부분을 반환하는 방법을 보여줍니다. 음수 인수의 경우에는 Int 함수는 그 수보다 작거나 같은 첫번째 음수를 반환하고, Fix 함수는 그 수보다 크거나 같은 첫번째 음수를 반환합니다.  다른표현으로 수직선 상에서, Int함수는 0 을 기준으로 멀어지고 ( <- 0 -> ) Fix함수는 우측방향으로 진행 ( -> 0 -> ) 한다고 이해 하면 된다.



Dim MyNumber

MyNumber = Int(99.8)   ' 99를 반환합니다.

MyNumber = Fix(99.2)   ' 99를 반환합니다.

MyNumber = Int(-99.8)   ' -100를 반환합니다.

MyNumber = Fix(-99.8)   ' -99를 반환합니다.

MyNumber = Int(-99.2)   ' -100를 반환합니다.

MyNumber = Fix(-99.2)   ' -99를 반환합니다.









Round 함수

반올림 또는 4사5입 기능의 함수 입니다. 첫번째 인수로 소수부가 있는 Double형 Number을 주고 두번째 인수에는 소수부의 자리수를 지정합니다. 두번째 인수가 0 이면 소수부가 없는 정수를 반환하고 1이면 소수 둘째자리에서 반올림 하여 첫째자리 까지 남겨줍니다. 두번째 인수는 0보다 큰 정수를 받는다.



Dim MyNumber

MyNumber = Round(321.23, 1)   ' 321.2 를 반환합니다.

MyNumber = Round(321.23, 0)   ' 321 를 반환합니다.

MyNumber = Round(321.23, -1)  ' 에러발생

MyNumber = Round(321.4, 0)    ' 321 를 반환합니다.

MyNumber = Round(321.5, 0)    ' 322 를 반환합니다.


MyNumber = Round(-321.4, 0)   ' -321 를 반환합니다.

MyNumber = Round(-321.5, 0)   ' -322 를 반환합니다.












DateAdd 함수 예제

이 예제는 날짜를 선택하고 DateAdd 함수를 사용하여 미래의 지정된 달에 따른 날짜를 나타냅니다.

   Dim FirstDate As Date ' 변수를 선언합니다.

   Dim IntervalType As String

   Dim Number As Integer

   Dim Msg

   IntervalType = "m" ' "m" specifies months as interval.

   FirstDate = InputBox("Enter a date")

   Number = InputBox("Enter number of months to add")

   Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)

   MsgBox Msg







Dir 함수 예제

이 예제는 Dir 함수를 사용하여 어떤 파일과 디렉토리가 존재하는지 확인합니다.

Dim MyFile, MyPath, MyName   ' 만일 MyFile = Dir("C:\WINDOWS\WIN.INI")이 존재하면 "WIN.INI"를 반환합니다.

   ' 지정된 확장자로 파일 이름을 반환합니다. 둘 이상의 *.ini 파일이 존재하면, 찾은 첫번째 파일을 반환합니다.

MyFile = Dir("C:\WINDOWS\*.INI")    ' 같은 디렉토리에서 그 다음 *.INI 파일을 반환할 인수 없이 Dir을 다시 호출합니다.

MyFile = Dir  

MyFile = Dir("*.TXT", vbHidden)   ' 숨겨진(hidden) 속성을 가진 *.TXT 파일을 먼저 반환합니다.

MyPath = "c:\" ' 경로를 설정합니다.   ' 디렉토리를 나타내는 C:\에서 이름을 표시합니다.

MyName = Dir(MyPath, vbDirectory)    ' 첫번째 항목을 검색합니다.

Do While MyName <> ""    ' 루프(loop)를 시작합니다.

' 현재 디렉토리와 포함하는 디렉토리를 무시합니다.

If MyName <> "." And MyName <> ".." Then

  ' MyName이 디렉토리인지 확인하기 위해서 비트별(bitwise) 비교를 사용합니다.

  If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

Debug.Print MyName ' 항목만 표시합니다

  End If ' 그것은 디렉토리를 표시합니다.

End If

MyName = Dir ' 다음 항목을 읽어들입니다.

Loop
추천추천 : 302 추천 목록
번호 제목
3,036
 PHP 함수 정리
3,035
 아이프레임(iframe) 비율 유지하면서 크기 조절하는 방법
3,034
 PHP 배열에서 무작위로 하나 뽑아주는 array rand() 함수
3,033
 PHP 정규식 정리
3,032
 PHP 정규식을 활용한 태그 및 특정 문자열 제거 및 추출 방법
3,031
 php 크롤링 또는 파싱 함수, 정규식 모음
3,030
 제이쿼리 기본 명령어
3,029
 웹페이지 가로 모드세로 모드 인식하기
3,028
 모바일 웹 화면 강제 회전(가로모드 고정)
3,027
 [HTML5]에서 frameset 대체 방법과 iframe 속성
3,026
 HTML <Audio> 사용법
3,025
 윈도우10 시스템파일 손상 (초간단 오류 복구방법!!)
3,024
 PHP 파일 존재 여부 파악하기(로컬 파일 존재 및 원격지 파일 존재)
3,023
 [CSS] 박스 세로 가운데 중앙 정렬 6가지
3,022
 CSS Layout 수평 & 수직 정렬
3,021
 여러 도메인들 간 쿠키 공유하기
3,020
 태그 사이에 있는 텍스트를 추출
3,019
 [JQuery] textbox focus on off일때 숫자 콤마 보여주기
3,018
 쿠키 생성,가져오기,삭제
3,017
 사용자 함수 모음
3,016
 마우스,키보드 제한 ( 오른쪽클릭,드래그,영역선택등..)
3,015
 [HTML5] <video> - DOM으로 제어하기
3,014
 HTML5 video 태그에서 영상 좌우반전
3,013
 PHP - 특정 태그 및 문자열 추출, 제거
3,012
 [PHP] define과 defined의 차이
목록
뮤직트로트 부산광역시 부산진구 가야동 ㅣ 개인정보취급방침
Copyright (C) musictrot All rights reserved.