VBNet - Форум - И всё-равно open file

Вопрос: И всё-равно open file Добавлено: 02.05.03 22:35

Автор вопроса: ZoomerSD | ICQ: 148640473

вот у меня есть форма. с текстовым полем и вот такой кодик:
Private Sub Form_Load()
Dim nfile As Integer
nfile = FreeFile
Dim zurnal As String
Open "C:/zurnal.txt" For Input As #nfile
zurnal = Input(LOF(nfile), #nfile)
Close #nfile
txtzurnal.Text = zurnal
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim nfile As Integer
nfile = FreeFile
Open "C:/zurnal.txt" For Output As #nfile
Print #nfile, Trim(txtzurnal.Text)
Close #nfile
End Sub
всё вроде нармально, только стала у меня тут вдруг нестого, не ссего добавляться пустая строка в это поле , апотом сохраняться и так они у меня набегоют, очень плохо получаеться что делать, может кто-то знает?

Ответить

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

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

AASoft

Вопросов: 86
Ответов: 920

Профиль | | #1

Добавлено: 02.05.03 23:14

vo, derzhi kod

Private Sub Form_Load()
Dim nfile As Integer
nfile = FreeFile
Dim zurnal As String
Open "D:\Anton\DownloadsUnZip\ScriptsVB.htm" For Input As #nfile
zurnal = Input(LOF(nfile), #nfile)
Close #nfile
txtZurnal.Text = zurnal
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim nfile As Integer
nfile = FreeFile
Open "D:\Anton\DownloadsUnZip\ScriptsVB.htm" For Output As #nfile
Print #nfile, Mid(Trim(txtZurnal.Text), 1, Len(Trim(txtZurnal.Text)) - 1)
Close #nfile
End Sub

Ответить

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

ZoomerSD

ICQ: 148640473

Вопросов: 135
Ответов: 270

Профиль | | #2

Добавлено: 02.05.03 23:31

я тут понял впринцепи всё, кром вот ентой строчки

Print #nfile, Mid(Trim(txtZurnal.Text), 1, Len(Trim(txtZurnal.Text)) - 1)

из каких дыр ты её взял? я в учебниках смотрел, там такого небыло, обьясни плизз+

Ответить

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

ZoomerSD

ICQ: 148640473

Вопросов: 135
Ответов: 270

Профиль | | #3

Добавлено: 02.05.03 23:43

а нет, всё там понял,( я там Mid незаметил ), но возникает другой вопрос, у меня после ентого кода в конец файла начинает вотт такая бодяга добавляться в виде двух прямоугольников, вроде в твоём коде нечего не менял, только путь свой указал и всё.

Ответить

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

>>> MUXzzzz <<<

ICQ: 884468

Вопросов: 13
Ответов: 29

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

Добавлено: 03.05.03 01:26

дело вот в чем:

У тебя после записи твоих данных вб записывает вот таких 2 символа, точнее вот с такими кодами:

13 - перевод курсора на строку вниз

10 - перевод курсора в начало строки

чтобы от етого избавиться, тебе нужно вместо

Print #nfile, Trim(txtzurnal.Text)

написать

Print #nfile, Trim(txtzurnal.Text);

обрати внимание на точку с запятой вконце!

Вот она то тебя и спасёт!

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

www.netbugs.ru/multisp/

Ответить

Номер ответа: 5 Автор ответа: ZoomerSD ICQ: 148640473 Вопросов: 135 Ответов: 270	Профиль \| \| #5	Добавлено: 03.05.03 10:10
	хех прикольно, точно спосла буду знать на будущее сенкс Ответить

Страница: 1 |