 ¼Õº´¸ñ |
´äº¯ÀÌ ³Ê¹« ´Ê¾ú½À´Ï´Ù. Á˼ÛÇÕ´Ï´Ù.
ºñº£¸¦ ´Ù·éÁöµµ ¿À·¡µÇ¾ú°í, ¿ø·¡ºÎÅÍ ¸¹ÀÌ ¾ËÁö ¸øÇÏ¿©¼ Á¦´ë·Î ¾Æ´Â ¹Ù°¡ ¾ø½À´Ï´Ù¸¸ Á¦°¡ ¾Æ´Â ¹üÀ§ ³»¿¡¼ ¼³¸íµå¸³´Ï´Ù.
¸ÕÀú ´ÙÀ½°ú °°Àº ³»¿ëÀÇ ÅØ½ºÆ® ÆÄÀÏÀ» ¸¸µé¾î c:\test ¿¡ test.txt ·Î ÀúÀåÇÕ´Ï´Ù.
000001,È«±æµ¿
000002,ÀÓ²©Á¤
000003,À屿»ê
000004,È«°æ·¡
000005,ÀüºÀÁØ
...
±×¸®°í ºñº£¸¦ ½ÇÇàÇÏ¿© Æû¿¡ ÄÞº¸¹Ú½º¿Í ¸®½ºÆ®¹Ú½º¸¦ Çϳª¾¿ ±×¸®°í ´ÙÀ½°ú °°ÀÌ ÄÚµùÇÏ¸é µË´Ï´Ù.
ÂùÂùÈ÷ »ìÆìº¸½Ã±â ¹Ù¶ø´Ï´Ù.
'ÅØ½ºÆ® ÆÄÀÏ¿¡¼ Çѹø¿¡ Àоî¿Ã ¼ö ÀÖ´Â ·¹ÄÚµå ÇüÅ ÁöÁ¤
Private Type Çлý°ü¸®
Çйø As String * 6
À̸§ As String * 20
End Type
'ÆÄÀÏ¿¡¼ Àоî¿Â ·¹Äڵ带 ±â¾ïÇÒ º¯¼ö¸¦ ÁöÁ¤ÇÔ. »ç¿ëÀÚ Á¤ÀÇÇüÀ¸·Î ¼±¾ð
Dim udtÇлý As Çлý°ü¸® '»ç¿ëÀÚ Á¤ÀÇ
Dim ¹è¿À̸§(100) As String
Dim ¹è¿¹øÈ£ As Integer
Private Sub Combo1_click()
¹è¿¹øÈ£ = Combo1.ListIndex
List1.AddItem ¹è¿À̸§(¹è¿¹øÈ£)
End Sub
'ÆûÀÌ ¿¸®¸é ÀÚµ¿À¸·Î ½ÇÇàµÇµµ·Ï ÇÔ
Private Sub Form_Load()
Open "c:\test\test.txt" For Input As #1 Len = Len(udtÇлý)
i = 0
Do While Not EOF(1)
Input #1, udtÇлý.Çйø, udtÇлý.À̸§
Combo1.AddItem udtÇлý.Çйø
¹è¿À̸§(i) = udtÇлý.À̸§
i = i + 1
Loop
End Sub
'ÆûÀÌ Á¾·áµÇ¸é ¿¸° ÆÄÀÏÀ» ´ÝÀ½
Private Sub form_unload(cancel As Integer)
Close #fn
End Sub |
|
|