수다닷컴

Private Sub Form_Load()

Dim FF As Integer, tmp As String

FF = FreeFile

Open App.Path & \read.txt For Input As #FF

Line Input #FF, tmp

Close #FF

Open App.Path & \read.txt For Output As #1

Print #1, FF + 1

Close #1

End Sub

-----------------------------------------------------------위처럼 짜봤거든요!보시면 read.txt 에 있는 내용(숫자 1이라고 가정하에)을 불러와서
FF에 저장시킨다 그럼 FF = 1이 될테구요그리고 read.txt 를 다시 열어서다시 read파일로 read파일 + 1 출력을 시킴그럼 2 가나오는게 정상이고
그럼 2가저장됐으니까
다시 껐다키면 2를 불러와서 다시 + 1 이 붙으니까 다시 3이저장되고
이게 정상아닌가요..??
근데 계속 1에서 2로 변경은되는데 2 에서 3으로 넘어가질않고있습니다;read.txt 1 쓰고 프로그램 켰다 끄면
2가되는데 스페이스바가 2앞으로 한칸 뒤로 한칸씩
써져있거든요 아무래도 이것때문에 2를 인식못하는거같은데저 구문들 자체가 잘못된건지? 아니면..제가 저장변수를 잘못 설정하고있는것인지..?

신청하기