VBNet - Форум - Сохранение данных в файл

Вопрос: Сохранение данных в файл Добавлено: 04.08.07 18:19

Автор вопроса: Administrator | Web-сайт: www.-.www | ICQ: ------------------------------

У меня есть вот такая форма:

http://img487.imageshack.us/my.php?image=screenuz7.jpg

Это компонент тестовой системы. Он помогает писать тесты. У меня прблема. Как уже набранный тест сохранить в файл. Дело в том чот я не ввожу только один вопрос и пять ответов а может даже сотню вопросов с пятью ответами на каждый. Все это надо вывести в файл. Помогите пожалуйста с написанием этого фрагмента программы.
Спасибо

P.S.: Вот исходный код формы:

Option Explicit
Private lngIndex As Long
Private chkIndex As Long
Private chkData() As String
Private arData() As String
Private Sub Command1_Click()
If lngIndex = UBound(arData) Then Exit Sub
    arData(lngIndex) = Text1.Text & ";" & Text2.Text & ";" & Text3.Text & ";" & Text4.Text & ";" & Text5.Text & ";" & Text6.Text
    lngIndex = lngIndex + 1
    LoadQuestion

If chkIndex = UBound(chkData) Then Exit Sub
    chkData(chkIndex) = Check1.Value & ";" & Check2.Value & ";" & Check3.Value & ";" & Check4.Value & ";" & Check5.Value
    chkIndex = chkIndex + 1
    LoadCheck
End Sub

Private Sub Command2_Click()
If lngIndex = 1 Then Exit Sub
    arData(lngIndex) = Text1.Text & ";" & Text2.Text & ";" & Text3.Text & ";" & Text4.Text & ";" & Text5.Text & ";" & Text6.Text
    lngIndex = lngIndex - 1
    LoadQuestion

If chkIndex = UBound(chkData) Then Exit Sub
    chkData(chkIndex) = Check1.Value & ";" & Check2.Value & ";" & Check3.Value & ";" & Check4.Value & ";" & Check5.Value
    chkIndex = chkIndex - 1
    LoadCheck
End Sub

Private Sub Command3_Click()
CommonDialog1.ShowSave
End Sub

Private Sub Form_Load()
ReDim arData(1 To 1000)
lngIndex = 1
LoadQuestion

ReDim chkData(1 To 1000)
chkIndex = 1
LoadCheck
End Sub

Private Sub LoadQuestion()
Dim arTmp() As String
Label1.Caption = lngIndex
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
arTmp = Split(arData(lngIndex), ";")
If UBound(arTmp) = -1 Then Exit Sub
Text1.Text = arTmp(0)
Text2.Text = arTmp(1)
Text3.Text = arTmp(2)
Text4.Text = arTmp(3)
Text5.Text = arTmp(4)
Text6.Text = arTmp(5)
End Sub

Private Sub LoadCheck()
Dim chkTmp() As String
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check4.Value = False
Check5.Value = False

chkTmp = Split(chkData(chkIndex), ";")
If UBound(chkTmp) = -1 Then Exit Sub
Check1.Value = chkTmp(0)
Check2.Value = chkTmp(1)
Check3.Value = chkTmp(2)
Check4.Value = chkTmp(3)
Check5.Value = chkTmp(4)
End Sub

Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: -АлександР- Вопросов: 55 Ответов: 1008	Web-сайт: sham.clan.su Профиль \| \| #1	Добавлено: 05.08.07 22:42
	учи матчасть: http://books.kulichki.com/data/basic/vb3/page_7.htm Ответить

Номер ответа: 2 Автор ответа: Administrator ICQ: ------------------------------ Вопросов: 6 Ответов: 98	Web-сайт: www.-.www Профиль \| \| #2	Добавлено: 09.08.07 21:34
	Спасибо, учту. Теперь работаю над реализацией этой функции. Ответить

Страница: 1 |