VPF::Лишние символы при записи в файл

alt5000

Дата 10.1.2007, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.4.2006
Где: г. Выборг

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

Произвожу запись в файл с помощью оператора put следующим кодом

Код


Private Sub Command2_Click()
Dim starter
If Text1 <> "" Then gen_text = Text1
starter = "Допустим это какой-то текст"
Open "INSTRUCT.html" For Binary As 1
Put #1, 0, starter
Close 1
End Sub

Потом открываю этот файл, а там - в начале стоит …

Помогите как этого избежать. Буду очень благодарен так как времени уже практически нет. Заранее благодарен.

Это сообщение отредактировал(а) Akina - 11.1.2007, 10:37

Black_Star

Дата 10.1.2007, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

alt5000, помочь тебе сможет только мелкософт. Да и то вряд-ли...
Дело в том, что … есть не что иное, как длина твоего текста.
Ну а если хочешь лишиться такой радости, то пиши конкретно:

Код


Dim starter as string
...

Но с типами и массивами это не прокатит... даже если будешь юзать LEN
Привыкай smile

Либо загоняй в файл все побайтно (что геммор, да и время ест)
Лучший вариант - юзать Random-доступ с фиксированной длиной.

Akina

Дата 10.1.2007, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Советчик

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

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

alt5000, ты хочешь сказать, что приведенный тобой код работает? вранье.

Исполнение должно, просто обязано, обломиться на операторе put - потому что номер записи не может быть менее 1. Или эту ошибку обрабатывает какой-то хэндлер этажом выше - и тогда вообще неизвестно что у тебя происходит, где и в каком коде.

--------------------

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

alt5000

Дата 11.1.2007, 09:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.4.2006
Где: г. Выборг

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

Да, действительно, с номером записи ошибся. Там должна быть единица (просто выложил экспериментальный вариант, я подбирал номер записи и думал, что если будет 0, то не будет этих символов). А вообще проблему я решил, но через метод OpenAsTextStream. Кому интересно, привожу код:

Код


'Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "c:\test1.html"            'Create a file
    Set f = fs.GetFile("c:\test1.html")
    Set ts = f.OpenAsTextStream(2, -2)
    ads = Chr(34)
    ts.Write "<a href=" + ads + "http://www.alt5000.narod.ru" + ads + ">ALT Softronics © 2007</a>"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    'MsgBox s
    ts.Close
fs.CreateFolder ("c:\001")

Спасибо за внимание к моему вопросу. Тема закрыта. Всего наилучшего, до новых встреч!

Это сообщение отредактировал(а) Akina - 11.1.2007, 10:38

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