- °£´ÜÇÑ ÅØ½ºÆ® ÆÄÀÏ IO
- ¹®ÀÚ¿ »ó¼ö ¸ñ·Ï
- ¹®ÀÚ¿¿¡´Ù µû¿ÈÇ¥ Áý¾î³Ö±â
1 °£´ÜÇÑ ÅØ½ºÆ® ÆÄÀÏ 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
2 ¹®ÀÚ¿ »ó¼ö ¸ñ·Ï
| »ó¼ö | °ª | ¼³¸í |
| vbCR | Chr(13) | ij¸®Áö ¸®ÅÏ |
| vbCrLf | Chr(13) & Chr(10) | ij¸®Áö ¸®ÅÏ ¹× ¶óÀÎ Çǵå |
| vbFormFeed | Chr(12) | Æû Çǵå |
| vbLf | Chr(10) | ¶óÀÎ Çǵå |
| vbNewLine | N/A | »õ ¶óÀÎ |
| vbNullChar | Chr(0) | 0 |
| vbNullString | N/A | ³Î ¹®ÀÚ¿ |
| vbTab | Chr(9) | °¡·Î ÅÇ |
| vbVerticalTab | Chr(11) | ¼öÁ÷ ÅÇ |
3 ¹®ÀÚ¿¿¡´Ù µû¿ÈÇ¥ Áý¾î³Ö±â
µû¿ÈÇ¥ ¹®ÀÚ µÎ °³¸¦ ¿¬¼ÓÀ¸·Î ¾²°Å³ª...
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)
ÀǿܷΠã±â°¡ Èûµé¾ú´Ù. ¤Ñ,.¤Ñ
SeriousMoin v1 (koMoinMoin 1.0a4 Modified)