사용자 도구

사이트 도구


kb:visualbasictips


Visual Basic Tips

간단한 텍스트 파일 IO

텍스트 파일을 읽어들여 구분자로 분리한 다음 구조체 리스트에 저장하기. 별 것도 아닌데 VB는 꽤 빡세구만…

Structure EnumDesc
    Public IntName As String
    Public EnumName As String
    Public MaxName As String
End Structure
 
Dim colEnumList As New Generic.List(Of EnumDesc)
Dim objReader As New System.IO.StreamReader("D:\Project\VSMacros80\Enums.txt")
Dim arrTokens As Array
 
Try
    Do
        strLine = objReader.ReadLine
        arrTokens = strLine.split(",")
        If arrTokens.Length = 3 Then
            Dim objDesc As New EnumDesc
            objDesc.IntName = arrTokens.GetValue(0)
            objDesc.EnumName = arrTokens.GetValue(1)
            objDesc.MaxName = arrTokens.GetValue(2)
            colEnumList.Add(objDesc)
        End If
    Loop Until objReader.Peek = -1
Catch
Finally
    objReader.Close()
End Try

문자열 상수 목록

상수 설명
vbCR Chr(13) 캐리지 리턴
vbCrLf Chr(13) & Chr(10) 캐리지 리턴 및 라인 피드
vbFormFeed Chr(12) 폼 피드
vbLf Chr(10) 라인 피드
vbNewLine N/A 새 라인
vbNullChar Chr(0) 0
vbNullString N/A 널 문자열
vbTab Chr(9) 가로 탭
vbVerticalTab Chr(11) 수직 탭

문자열에다 따옴표 집어넣기

따옴표 문자 두 개를 연속으로 쓰거나…

Dim Text As String
Text = "She said, ""You deserve a treat!"" "

Chr 함수를 이용한다.

Dim Text As String
Text = "She said, " & Chr(34) & "You deserve a treat!" & Chr(34)

의외로 찾기가 힘들었다. ㅡ,.ㅡ


kb/visualbasictips.txt · 마지막으로 수정됨: 2014/11/10 16:18 저자 excel96