수다닷컴

list1에는 1로시작하는 5자리숫자를 가진 텍스트의 내용을 불러오는 방법무엇인지..

12345.txt의 내용은 list1에 로딩
23456.txt의 내용은 list2에 로딩
34567.txt의 내용은 list3에 로딩

아래는 제가 예전에 썼던 코드입니다.
이걸로 수정해주시거나 되는 것으로 해주셔도됩니다.
------------------------------------
Private Sub Form_Load()
Dim str, div, i, q
On Error Resume Next
FF = FreeFile
If Dir(App.Path & \database\data.txt) = vbNullString Then
q = MsgBox(DATA가 존재하지 않습니다. & vbCrLf & 새로 작성하시겠습니까?, vbInformation + vbYesNo, 파일 없음)
If q = vbYes Then
Open App.Path & \database\data.txt For Output As FF
Close #FF
Else
MsgBox 데이터베이스 파일이 존재하지 않아 실행할 수 없었습니다, vbCritical + vbOKOnly, 데이터 파일을 찾을 수 없음
Exit Sub
End If
End If
FF = FreeFile
Open App.Path & \database\data.txt For Input As FF
Do
If EOF(FF) = True Then Exit Do
Line Input #FF, str
div = Split(str, /)
List1.AddItem (div(0))
List2.; List2.AddItem (div(1))
List3.AddItem (div(2))
List4.AddItem (div(3))
List5.AddItem (div(4))
List6.AddItem (div(5))
List7.AddItem (div(6))
List8.AddItem (div(7))
List9.AddItem (div(8))

Loop
Close #FF
End Sub

신청하기