VBNet - Форум - добавление строк, где цифра в доб.строке увелич...

Вопрос: добавление строк, где цифра в доб.строке увелич... Добавлено: 03.04.03 12:28

Автор вопроса: smiris

опять textbox. )) есть кнопка BUTTON1. При нажатие на эту кнопку в конец имеющихся уже записей вставляется такой текст - "1 NEW LINE".А как сделать, чтоб если "1 NEW LINE". уже имеется, то при повторном нажатие добавлялось уже не "1 NEW LINE"., а "2 NEW LINE", потом "3 NEW LINE". и так далее. и когда пользователь сохранит файл, а затем через некоторое время снова его откроет, и нажмет BUTTON1, то чтоб если уже "1,2,3 NEW LINE" имеются, то при нажатие стала добавляться те цифры, что идут после 3.
Ответить

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

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

Алексей

black admin

ICQ: 261779681

Вопросов: 87
Ответов: 633

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

Добавлено: 03.04.03 12:46

Ответ

...

Можно использовать Static переменные:

Private Sub Command1_Click()
Static x As Integer
x = x + 1
Text1.Text = Text1.Text & x & " New Line" & vbCrLf
End Sub

Ну, а для всего остального придется сохранять номер линии в том же файле (лучше в начале), хотя если New Line - это количество строк в TextBox(e), то можешь покапаться в библиотеке кодов, там есть на эту тему исходник (Стандартные контролы>TextBox>...)

Ответить

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

smiris

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

Профиль | | #2

Добавлено: 03.04.03 13:06

поясню немножко -

"new line" +это просто текст такой. а как сохранять эти уже имеющиеся 123, чтоб потом если они уже есть, то добавлялись 456 и т.далее - я не знаю.Может кто пояснит? Может надо создать config.txt и туда как-то их сохранять?

Ответить

Номер ответа: 3 Автор ответа: smiris Вопросов: 8 Ответов: 3	Профиль \| \| #3	Добавлено: 03.04.03 13:09
	поясню немножко. "new line" -это просто текст (можно туда идругой написать - неважно). Только вот а как же сделать, чтоб при последуущей загрузке - эти эти 123 уже есть, то писались 45678 и такое прочее.может надо какой config.txt cоздать и туда как-то их прописывать?а как? Ответить

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

Алексей

black admin

ICQ: 261779681

Вопросов: 87
Ответов: 633

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

Добавлено: 03.04.03 13:24

Еще один ответ

...

М..да..

Это зависит от того для чего тебе нужно все это записывать.

Можешь сделать свой формат файла, примерно с такой структурой:

'Лучше его записать в две строки, а vbCrLf (тобеж - ентер) заменить на какойнибудь символ

Call SaveFile("My.txt") 'Вызов процедуры

Private Sub SaveFile (ByVal FilePath As String)

Open FilePath For Output as #1

Print #1, CStr(X) 'Первая строка - количество NewLine

Print #1, Replace(Text1.Text, vbCrLf, "[enter]") ' вторая строка - текст, заменяем етеры на "[enter]", что бы все было в одной строке

close #1

End Sub

Итого у нас 2 логических строки в файле, читаем так же:

Call LoadFile("My.txt")

Private Sub LoadFile (ByVal FilePath As String)

Dim s As String

Open FilePath For Input as #1

Line Input #1, s 'Первая строка - количество NewLine

x=Cint(s)'Сливаем количество NewLine в переменную X, что бы потом при нажатии на Button1 начать отcчет

Line Input #1, s' вторая строка - текст

Text1.Text=Replace(s, "[enter]", vbCrLf) ' заменяем слово "[enter]" на vbCrLf

close #1

End Sub

Ответить

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

Алексей

black admin

ICQ: 261779681

Вопросов: 87
Ответов: 633

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

Добавлено: 03.04.03 13:24

Еще один ответ

...

М..да..

Это зависит от того для чего тебе нужно все это записывать.

Можешь сделать свой формат файла, примерно с такой структурой:

'Лучше его записать в две строки, а vbCrLf (тобеж - ентер) заменить на какойнибудь символ

Call SaveFile("My.txt") 'Вызов процедуры

Private Sub SaveFile (ByVal FilePath As String)

Open FilePath For Output as #1

Print #1, CStr(X) 'Первая строка - количество NewLine

Print #1, Replace(Text1.Text, vbCrLf, "[enter]") ' вторая строка - текст, заменяем етеры на "[enter]", что бы все было в одной строке

close #1

End Sub

Итого у нас 2 логических строки в файле, читаем так же:

Call LoadFile("My.txt")

Private Sub LoadFile (ByVal FilePath As String)

Dim s As String

Open FilePath For Input as #1

Line Input #1, s 'Первая строка - количество NewLine

x=Cint(s)'Сливаем количество NewLine в переменную X, что бы потом при нажатии на Button1 начать отcчет

Line Input #1, s' вторая строка - текст

Text1.Text=Replace(s, "[enter]", vbCrLf) ' заменяем слово "[enter]" на vbCrLf

close #1

End Sub

Ответить

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

hedgehog

ICQ: 175571327

Вопросов: 15
Ответов: 207

Web-сайт: ezh.ru
Профиль | | #6

Добавлено: 03.04.03 15:57

Сохранить и получить значения проще всего с помощью SaveSetting и GetSetting

SaveSetting App.EXEName, "Section Name", "Key Name", strValue

strValue = GetSetting(App.EXEName, "", "", DefaultValue)

Они работают только со строковыми значениями.

А при генерации строки вместо анализа того, что у тебя уже введено, храни только текущий номер. Все остальное у тебя же не меняется. И выводи в текстбокс

cstr(intNum) & " NEW LINE"

Ответить

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

hedgehog

ICQ: 175571327

Вопросов: 15
Ответов: 207

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

Добавлено: 03.04.03 15:57

Сохранить и получить значения проще всего с помощью SaveSetting и GetSetting

SaveSetting App.EXEName, "Section Name", "Key Name", strValue

strValue = GetSetting(App.EXEName, "Section Name", "Key Name", DefaultValue)

Они работают только со строковыми значениями.

cstr(intNum) & " NEW LINE"

be happy

Ответить

Страница: 1 |