Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите сделать сохранение, Можно ли проще? 
:(
    Опции темы
Pringles
Дата 21.5.2006, 12:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 29.3.2006

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

Код

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

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

Это сообщение отредактировал(а) Pringles - 21.5.2006, 12:34

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  Kyrsovaya.rar 109,43 Kb
PM MAIL   Вверх
cardinal
Дата 21.5.2006, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 15
Всего: 99
Цитата(Pringles @  21.5.2006,  11:30 Найти цитируемый пост)
Мне нужно сделать просто сохранение в текстовый файл, но тут половину операторов я незнаю

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


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
XPurple
Дата 22.5.2006, 07:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 4.5.2006
Где: Челябинск

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

Private Sub Form_Load()
...
End Sub
  

Это сообщение отредактировал(а) XPurple - 22.5.2006, 07:14
--------------------
Кто никогда ни о чем не спрашивает: тот либо знает все, либо не знает ничего.  Не помню, кто сказал, может быть, я   (с) 
PM MAIL   Вверх
boevik
Дата 22.5.2006, 07:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

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

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

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


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
XPurple
Дата 22.5.2006, 07:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 4.5.2006
Где: Челябинск

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

Это сообщение отредактировал(а) XPurple - 22.5.2006, 07:33
--------------------
Кто никогда ни о чем не спрашивает: тот либо знает все, либо не знает ничего.  Не помню, кто сказал, может быть, я   (с) 
PM MAIL   Вверх
Pringles
Дата 22.5.2006, 19:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 29.3.2006

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

Это сообщение отредактировал(а) Pringles - 22.5.2006, 20:24
PM MAIL   Вверх
Voldemar2004
Дата 22.5.2006, 21:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 2
Всего: 23
Цитата(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

  

Это сообщение отредактировал(а) Voldemar2004 - 22.5.2006, 21:48


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Pringles
Дата 23.5.2006, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 29.3.2006

Репутация: нет
Всего: нет
Спасибо всем большое! Я понял!!! smile  
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0798 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.