Тест на VB

[mallchel]

Всем привет! объясните пожалуйста как мне использовать функцию Seek или может какую нибудь другую, для моего теста. что бы можно было в Project1 выводите все вопросы (вперед назад) на форму и редактировать их?

[gaw4]

покажите процедуру записи вопросов в файл

[mallchel]

совсем забыл.. вот прогаVB 6.0 тест.zip

[mallchel]

программа Project1

[mallchel]

F = FreeFile

NameTest = Text6.Text

Open App.Path & "\" & NameTest & ".txt" For Append As #F

Print #F, Text1.Text

Print #F, kpo

Print #F, Text2.Text

If Check1.Value = 1 Then
Print #F, 1
Else
Print #F, 0
End If

Print #F, Text3.Text

If Check2.Value = 1 Then
Print #F, 1
Else
Print #F, 0
End If

Print #F, Text4.Text

If Check3.Value = 1 Then
Print #F, 1
Else
Print #F, 0
End If

Print #F, Text5.Text

If Check4.Value = 1 Then
Print #F, 1
Else
Print #F, 0
End If

[gaw4]

Вы работаете с текстовыми файлами
функция Seek не подойдет

[mallchel]

а вы можете подсказать как мне лучше сделать?