Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Помогите сделать сохранение

Автор: Pringles 21.5.2006, 12:30

Всем доброго времени суток.
Программа готова, и сохранение есть, только оно мне немного непонятное:

Код


Private Sub Command1_Click()
If iNited = True Then
    Dim strFileName As String, strText As String, strFilter As String, strBuffer As String
    Dim FileHandle%
    CommonDialog1.Filter = "Text (*.txt)|*.txt|All Files (*.*)|*.*"
    CommonDialog1.ShowSave
    If CommonDialog1.FileName <> "" Then
        strFileName = CommonDialog1.FileName
        FileHandle% = FreeFile
        Open strFileName For Output As #FileHandle%
            MousePointer = vbHourglass
            For i = 0 To m
                strText = ""
                For j = 0 To n + 1
                    pole1.Row = i
                    pole1.Col = j
                    strText = strText + "  " + pole1.Text
                Next j
                strText = strText + vbCrLf
                Print #FileHandle%, strText
            Next i
        MousePointer = vbDefault
        Close #FileHandle%
        MsgBox "Все сохранено как положено :)"
    End If
Else
    MsgBox "Утром деньги - вечером стулья. Вечером деньги - утром стулья.."
End If
End Sub

Может можно как-то упростить? Мне нужно сделать просто сохранение в текстовый файл, но тут половину оператиоров я незнаю smile

и ещё вопрос, как сюда добавить процедуры?

Автор: cardinal 21.5.2006, 13:28

Цитата(Pringles @ 21.5.2006, 11:30

)

Мне нужно сделать просто сохранение в текстовый файл, но тут половину операторов я незнаю

Поищи слова, которые ты не знаешь на форуме или в google...

Автор: XPurple 22.5.2006, 07:02

Не программа, а сплошлое недоразумение. Сдули откуда-то ?
Надо создать форму (создается в VB автоматически при создании проекта) и размеcтить рядом с вашей процедурой

Код


Private Sub Form_Load()
...
End Sub

Автор: boevik 22.5.2006, 07:25

Нормальная процедурка.
1-10: Запрашивает имя файла в которое сохранится grid, через стандартное окошко системы
14-18: Формирует строку, пробегая по строке i в гриде.
19-20: Запись строки в файл
12-13, 21: Переход к следующей строке grid-a
23: Закрытие файла.

Не понятно откуда взялись n и m.
strFilter, strBuffer не используются.

А в остальном, все OK.

Автор: XPurple 22.5.2006, 07:31

boevik
Я имел ввиду что нет формы или модуля, а по контенту -вам видней.
Но это уже оффтоп. smile

Автор: Pringles 22.5.2006, 19:55

А в самом коде моей программы есть процедурки?
Кому не в падлу помогите smile

Автор: Voldemar2004 22.5.2006, 21:47

Цитата(Pringles @ 22.5.2006, 20:55

)

А в самом коде моей программы есть процедурки?

Есть:

Код

Private Sub Command1_Click()
....
End Sub

Цитата(Pringles @ 22.5.2006, 20:55

)

Кому не в падлу помогите

Вот на скорую руку сочинил:

Код

Option Explicit

Private Function Save_To_File(FileName As String, Stream As String, Mode As String)

Dim File As String
File = FreeFile

        If Mode = "out" Then    ' в режиме обновления
        
            Open FileName For Output As #File
    
                Print #File, Stream
    
            Close #File
        
        ElseIf Mode = "app" Then ' в режиме добавления
            
            Open FileName For Append As #File
    
                Print #File, Stream
    
            Close #File
        
        End If   

End Function


Private Sub Command1_Click()

Dim a As String

        a = "Привет. Мир!"

        Call Save_To_File("c:\1.txt", a, "app")

End Sub

Автор: Pringles 23.5.2006, 16:37

Спасибо всем большое! Я понял!!! smile