ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADODB.Stream vba существует ли дозапись
6 сообщений из 6, страница 1 из 1
ADODB.Stream vba существует ли дозапись
    #38200981
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
Господа приветствую.
Подскажите как выйти из положения.

Есть у меня например 5 заполненных ячеек.
Я хочу записать в текстовый файл их друг за другом в кодировке utf-8
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Save2File(sText, sFile)
    Dim oStream
    Set oStream = CreateObject("ADODB.Stream")
    With oStream
        .Open
        .Charset = "utf-8"
        .Appendtext sText
        .SaveToFile sFile, 2
        
    End With
    Set oStream = Nothing
End Sub


но он перезаписывает каждую запись, а как сделать дозапись типа ioStream.appendtext я не понял.
обращение к функции Save2File "Привет", "c:\test" происходит в цикле
Либо если дозаписи потока не существует, как обойти данную проблему.
Буду признателен за помощь.
В MS не постю.
...
Рейтинг: 0 / 0
27.03.2013, 17:47
| Ответить | Цитировать | Написать  
ADODB.Stream vba существует ли дозапись
    #38201002
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
извиняюсь вместо
Kreol
Код: sql
1.
        .Appendtext sText


нужно
Код: vbnet
1.
.WriteText sText
...
Рейтинг: 0 / 0
27.03.2013, 17:55
| Ответить | Цитировать | Написать  
ADODB.Stream vba существует ли дозапись
    #38201060
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Kreol,

ADODB.Stream.Position - F1
...
Рейтинг: 0 / 0
27.03.2013, 18:18
| Ответить | Цитировать | Написать  
ADODB.Stream vba существует ли дозапись
    #38201093
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
про позицию я понял, а как применить?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Save2File(sText, sFile)
    Dim oStream
    Set oStream = CreateObject("ADODB.Stream")

    With oStream
        .Position = ???
        .Open
        .Charset = "utf-8"
        .Appendtext sText
        .SaveToFile sFile, 2
        
    End With
    Set oStream = Nothing
End Sub



Syntax: streamobject.Position = long
long = streamobject.Position
...
Рейтинг: 0 / 0
27.03.2013, 18:35
| Ответить | Цитировать | Написать  
ADODB.Stream vba существует ли дозапись
    #38201106
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Kreol,

ADODB.Stream.size - F1
...
Рейтинг: 0 / 0
27.03.2013, 18:41
| Ответить | Цитировать | Написать  
ADODB.Stream vba существует ли дозапись
    #38201257
Kreol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kreol
Участник
qwerty112 очень содержательные ответы.
решил вопрос через накопительную переменную. И последующую ее запись.
...
Рейтинг: 0 / 0
27.03.2013, 20:01
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADODB.Stream vba существует ли дозапись
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=61&tid=2157079]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 288ms
total:  392ms
созд. / загр.: 392ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]