VBNet - Форум - Как добавить две строки в файл?

Вопрос: Как добавить две строки в файл? Добавлено: 18.02.03 10:26

Автор вопроса: vig11 | ICQ: 213777061

Совсем запутался. Помогите пожалуйста. Мне нужно добавить две строчки в файл.

    Dim filenum
     Dim IniFile As String
    IniFile = "d:/Program Files/Autocad 2002/support/acad2000doc.lsp"
        filenum = FreeFile
           Open IniFile For Append As #filenum
Print #filenum, "tratata" ' Read line into variable.
                Print #filenum, "pupupu" ' Read line into variable.
            Close #filenum

Файл обычный текстовый невзирая на расширение *.lsp. Всё хорошо и всё работает, но первая строчка дописывается к последней строчке файла. А хотелось бы получить две новые строчки. Что делать?

Ответить

Ответы Всего ответов: 13

Номер ответа: 1
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #1

Добавлено: 18.02.03 10:48

Используй Write # вместо Print #

Write # дописывает chr(13) +chr(10)

Ответить

Номер ответа: 2
Автор ответа:

vig11

ICQ: 213777061

Вопросов: 21
Ответов: 159

Профиль | | #2

Добавлено: 18.02.03 11:09

Получилось!!! Нужно было писать так:

Print #filenum, Chr(13) & LineStr

Print #filenum, "pupupu"

Где LineStr нужный мне текст. А вторая строчка записывается на следующую строку автоматически даге без добавления Chr(13)

Ответить

Номер ответа: 3
Автор ответа:

Агент Смит

ICQ: 147404128

Вопросов: 12
Ответов: 128

Web-сайт: www.bbsoftware.ru
Профиль | | #3

Добавлено: 20.02.03 10:00

Либо через Object.Scripting.Runtime, а точнее TextStream

Ответить

Номер ответа: 4 Автор ответа: vig11 ICQ: 213777061 Вопросов: 21 Ответов: 159	Профиль \| \| #4	Добавлено: 20.02.03 11:47
	А это как? Ответить

Номер ответа: 5
Автор ответа:

Агент Смит

ICQ: 147404128

Вопросов: 12
Ответов: 128

Web-сайт: www.bbsoftware.ru
Профиль | | #5

Добавлено: 20.02.03 11:54

по F2 выбираешь этот объект

далее его декларируешь:

Dim ObjTextStream as textstream

Dim ObjFSO as FileSystemObject

потом

set objfso = new filesystemobject

set objtextstream = objfso.opentextfile ("c:\test.txt", forwrite, true)

objtextstream.writeline str1 ' пишешь нужную строку

objtextstream.writeline str2 ' пишешь 2 нужную строку

objtextstream.close

set objfso = nothing

set objtextstream = nothing

и всё...

Ответить

Номер ответа: 6 Автор ответа: Silver Flamingo ICQ: 116970115 Вопросов: 27 Ответов: 49	Профиль \| \| #6	Добавлено: 20.02.03 12:54
	А как поточнее задекларировать? Ответить

Номер ответа: 7
Автор ответа:

Агент Смит

ICQ: 147404128

Вопросов: 12
Ответов: 128

Web-сайт: www.bbsoftware.ru
Профиль | | #7

Добавлено: 20.02.03 13:01

Dim ObjTextStream as textstream

Dim ObjFSO as FileSystemObject

вышеприведённые 2 строки и являются декларацией...

Главное, не забудь создать ссылку на объект - жмёшь F2, потом находишь объект (тот что я писал) и ставишь перед ним галочку...

Ответить

Номер ответа: 8
Автор ответа:

vig11

ICQ: 213777061

Вопросов: 21
Ответов: 159

Профиль | | #8

Добавлено: 20.02.03 13:03

Так по-моему проще:

Dim filenum
    Dim LineStrX As String
    Dim LineStrMenu As String
        IniFile = "C:/text.txt"
            If Dir(IniFile) <> vbNullString Then
                filenum = FreeFile
                   Open IniFile For Append As #filenum
                        LineStrX = "tututu"                                 LineStrMenu = "tratata"
                            Print #filenum, Chr(13) & LineStrX ' Read line into variable.
                            Print #filenum, LineStrMenu ' Read line into variable.
                    Close #filenum
            End If

Ответить

Номер ответа: 9
Автор ответа:

Агент Смит

ICQ: 147404128

Вопросов: 12
Ответов: 128

Web-сайт: www.bbsoftware.ru
Профиль | | #9

Добавлено: 20.02.03 13:05

2vig11: так по старинке

Ответить

Номер ответа: 10 Автор ответа: vig11 ICQ: 213777061 Вопросов: 21 Ответов: 159	Профиль \| \| #10	Добавлено: 20.02.03 13:19
	2 Free Hunter может быть и по старинке, но ведь работает. Кроме того я не могу понять Ты написал, что обозначаешь галочкой обьект напиши пожалуйста конкретный пример что Ты подразумеваешь под названием обьект, где ставить галочку. Прошу так написать потому, что действительно никогда не делал как Ты предлагаешь и просто не понимаю терминологии. Опять же отнюдь не утверждаю, что мой способ лучше. Просто Твоим способом хочу тоже разобраться и если подойдёт может быть и стану применять его. Ответить

Номер ответа: 11
Автор ответа:

Агент Смит

ICQ: 147404128

Вопросов: 12
Ответов: 128

Web-сайт: www.bbsoftware.ru
Профиль | | #11

Добавлено: 20.02.03 13:28

Жмешь F2 - там выбираешь объект (если хочешь - назвывай библиотекой, файлом или внешним компонентом) - в нашем случае это Sritping.Runtime; рядом с каждым названием есть chechbox - в нём, напротив нужного компонента ставишь галочку. Далее всё как я написал ранее...

Ответить

Номер ответа: 12 Автор ответа: Silver Flamingo ICQ: 116970115 Вопросов: 27 Ответов: 49	Профиль \| \| #12	Добавлено: 20.02.03 14:41
	Блин, у меня при нажатии F2 выскакивает "Object browser" Ответить

Номер ответа: 13
Автор ответа:

Агент Смит

ICQ: 147404128

Вопросов: 12
Ответов: 128

Web-сайт: www.bbsoftware.ru
Профиль | | #13

Добавлено: 20.02.03 14:50

это именно то, в чём и надо выбирать...

Ответить

Страница: 1 |