Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

сохранение инфы в файл *.csv

52K
30 сентября 2009 года
serjii
4 / / 29.09.2009
Добрового времени суток всем!
Помогите реализовать следующий проект.
Есть форма (приложена), необходимо чтобы инфа из ячеек, после щелчка по кнопке "сохранить", сохранялась в файле с расширением *.csv

Пробовал применить способ описанный в теме, но ничего не получилось, выдает ошибку
(приложена)
Помогите решить проблему. Спасибо
16K
30 сентября 2009 года
_art_
18 / / 19.07.2006
Могу предположить, что требуемый объект - это TextBox1.
У вас я не вижу ни одного текстового поля.
Чтобы не гадать о причине ошибки, приведите код, в котором сохраняете данные в csv-файл.

Ваши данные располагаются просто в ячейках, поэтому вам лучше использовать метод SaveAs или организовать цикл по ячейкам.
52K
01 октября 2009 года
serjii
4 / / 29.09.2009
Действительно текстовых полей нет, но теперь текстовые поля есть ... но ничего не сохраняется
ниже приведены скрины
Оговорюсь сразу - в программировании - я полный чайник.
Укажите пожалуйста на мои ошибки, и по возможности расписать поэтапно код. Спасибо!
52K
01 октября 2009 года
serjii
4 / / 29.09.2009
Так, с сохранением разобрался, информация сохраняется в файл, но немного не в том виде как мне надо
скрины внизу
как видно на первом из них, текст сохраняется в виде одной строки без пробелов, как сделать так чтобы каждое слово было в своей ячейке (в горизонтальном положении)
внизу привел код кнопки сохранения.
Вопрос № 2
при сохранении новой информации текст не добавляется а просто заменяет предыдущий, что необходимо дописать что-бы новая инфа добовлялась по порядку.
Вопрос №3
Как сделать так чтобы после того как нажали кнопку и текст сохранился, текстовые поля очищались, а в низу скажем в какой либо ячейке высвечивался статус - скажем "Сохранено удачно", либо неудачно - если инфа не сохранилась ?
Спасибо
16K
01 октября 2009 года
_art_
18 / / 19.07.2006
Для начала давайте все-таки уточним: вам надо сохранять данные из ячеек или из текстовых полей?
У вас действительно должны быть текстовые поля или вы их добавили только для корректной работы кода, который вы взяли за основу?
16K
01 октября 2009 года
_art_
18 / / 19.07.2006
Цитата: serjii
Так, с сохранением разобрался, информация сохраняется в файл, но немного не в том виде как мне надо
скрины внизу
как видно на первом из них, текст сохраняется в виде одной строки без пробелов, как сделать так чтобы каждое слово было в своей ячейке (в горизонтальном положении)
внизу привел код кнопки сохранения.
Вопрос № 2
при сохранении новой информации текст не добавляется а просто заменяет предыдущий, что необходимо дописать что-бы новая инфа добовлялась по порядку.
Вопрос №3
Как сделать так чтобы после того как нажали кнопку и текст сохранился, текстовые поля очищались, а в низу скажем в какой либо ячейке высвечивался статус - скажем "Сохранено удачно", либо неудачно - если инфа не сохранилась ?
Спасибо



По вопросу №1. Насколько я понимаю, вы хотите хранить табличные данные в текстовом файле, где каждая строка содержит значения полей таблицы, между которыми вставлен некий разделитель (например, пробел или точка с запятой)?

По вопросу №2. Нужно открыть файл в режиме добавления данных:

 
Код:
'Добавляем новые данные
Open "C:\data.csv" For Append As #1

'Перезаписываем существующие данные!
Open "C:\data.csv" For Output As #1


По вопросу №3. Очистка текстовых полей:
 
Код:
Text1=""
Text2=""
'и так далее...
52K
02 октября 2009 года
serjii
4 / / 29.09.2009
Цитата: _art_
По вопросу №1. Насколько я понимаю, вы хотите хранить табличные данные в текстовом файле, где каждая строка содержит значения полей таблицы, между которыми вставлен некий разделитель (например, пробел или точка с запятой)?

По вопросу №2. Нужно открыть файл в режиме добавления данных:
 
Код:
'Добавляем новые данные
Open "C:\data.csv" For Append As #1

'Перезаписываем существующие данные!
Open "C:\data.csv" For Output As #1


По вопросу №3. Очистка текстовых полей:
 
Код:
Text1=""
Text2=""
'и так далее...



Art - спасибо, "For Append As #1 " помогло !!! Спасибо!

16K
02 октября 2009 года
_art_
18 / / 19.07.2006
Да, для работы с файлами рекомендую вам в качестве номеров файлов использовать не константы, жестко прописанные в коде, а получать их автоматически с помощью функции FreeFile.
 
Код:
Private Sub CommandButton1_Click()
  Dim FileNum As Integer
 
  FileNum = FreeFile
  Open "C:\data.csv" For Append As #FileNum
  Print #FileNum, Text1
  Print #FileNum, Text2
  Close #FileNum
End Sub
52K
06 октября 2009 года
Serebrjany mir
10 / / 11.09.2009
Найди в MSDN ХОТЯ БЫ ОДИН пример использования Put #..., в котором в качестве помещаемого в файл значения присутствовало ВЫРАЖЕНИЕ
Вот тебе код:
hFile = FreeFile
Open sAppPath & "file1" For Binary As hFile
For i = 1 To 100
Put hFile, , "a" & Formati, "0000000000"
Next
Close hFile

Dim x As String
x="a" & Formati, "0000000000"
hFile = FreeFile
Open sAppPath & "file2" For Binary As hFile
For i = 1 To 100
Put hFile, , x
Next
Close hFile

Dim y As Variant
y="a" & Formati, "0000000000"
hFile = FreeFile
Open sAppPath & "file2" For Binary As hFile
For i = 1 To 100
Put hFile, , y
Next
Close hFile
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог