Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADODB.Stream vba существует ли дозапись / 6 сообщений из 6, страница 1 из 1
27.03.2013, 17:47
    #38200981
Kreol
Kreol
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADODB.Stream vba существует ли дозапись
Господа приветствую.
Подскажите как выйти из положения.

Есть у меня например 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:55
    #38201002
Kreol
Kreol
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADODB.Stream vba существует ли дозапись
извиняюсь вместо
Kreol
Код: sql
1.
        .Appendtext sText


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

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

Код: 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:41
    #38201106
qwerty112
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADODB.Stream vba существует ли дозапись
Kreol,

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


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