수다닷컴

현재 이런식으로 txt파일에서 불러와쓰고있답니다
Private Sub Command1_Click()
Dim strTmp As String
Open 1.txt For Input As #1
Line Input #1, strTmp
Text1.Text = strTmp
Line Input #1, strTmp
Text3.Text = strTmp
Line Input #1, strTmp
Text5.Text = strTmp
Close #1
Open 2.txt For Input As #2
Line Input #2, strTmp
Text2.Text = strTmp
Line Input #2, strTmp
Text4.Text = strTmp
Line Input #2, strTmp
Text6.Text = strTmp
Close #2
End Sub
문제는 저장또한

Private Sub Command2_Click()
Dim strTmp As String
Open 1.txt For Output As #1
Print #1, Text1.Text
Print #1, Text3.Text
Print #1, Text5.Text
Close #1
Open 2.txt For Output As #2
Print #2, Text2.Text
Print #2, Text4.Text
Print #2, Text6.Text
Close #2
End Sub
이런식으로 나뉘어있죠

그런데 아래와같이
Dim strTmp As String
Open 1.txt For Output As #1
Print #1, Text1.Text & / & Text2.Text
Close #1
이렇게 / 이용하여 구분하여 저장되게 변경해볼려고해요.
저장은 정상적으로 1/2 이런식으로 잘되는데요.
어찌 불러오기는 이리저리해봐도 오류가나네요.
어찌해야할까요?
1.txt에서 1/2
를 text1 = 1 text2 = 2가불러와지도록하고싶습니다.
여러가지 검색하였고요.
리스트로 불러오는것중.비슷한게있으나
그거슨 /구문뒤를 엔터로되어있더군요.흠..
그럼 이만 줄일께요.

신청하기