…
텍스트 파일을 읽어들여 구분자로 분리한 다음 구조체 리스트에 저장하기. 별 것도 아닌데 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)
의외로 찾기가 힘들었다. ㅡ,.ㅡ