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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> записать данные в файл csv 
V
    Опции темы
ASSEI
Дата 25.11.2021, 09:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Ребята Здравствуйте! пытаюсь записать не получается что не так я делаю?
Код

Sub записать() '
   F = FreeFile
    Open App.Path & "\изделие.CSV" For Input As #F
        z = Input(LOF(F), #F)
    a = InputBox("Информация", "что записываем", "записать")
 '====
Write #F, a & ";"   'ЗДЕСЬ ПЫТАЮСЬ ЗАПИСАТЬ
  '=====
Do Until EOF(F) Or i >= 5 
           Input #F, s
           Form1.Combo1.AddItem Split(s, ";")(0)  '
           i = i + 1
        Loop
      Close #F
End Sub

я понял где ошибка
Код

Sub записать() '
    Open App.Path & "\изделие.CSV" For Output  As #F
        z = Input(LOF(F), #F)
    a = InputBox("Информация", "что записываем", "записать")
 '====
Write #F, a & ";"   ' но все же хотелось бы записать в первую или в последнюю строку

      Close #F
End Sub


Это сообщение отредактировал(а) ASSEI - 25.11.2021, 10:23
PM MAIL   Вверх
Akina
Дата 25.11.2021, 12:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

Репутация: 34
Всего: 453



Цитата(ASSEI @  25.11.2021,  10:44 Найти цитируемый пост)
хотелось бы записать в первую или в последнюю строку

Для того чтобы написать не в конец, а в начало или середину, надо вычитать весь файл, вставить в нужное место строки и/или заменить одни на другие, а потом перезаписать.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




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


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

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