Конференция VBStreets

**Max!** » 13.04.2003 (Вс) 17:17

Как занести текст в базу данных , например в проги изначально заложен текст и внужныи момент она вставит его в текст боксе или тд...
Точнее как сделать чтобы прога хронила всибе мои текст которы она будет использовать или вставлять и тд...

Healp!!! Please!

**Firestorm** » 13.04.2003 (Вс) 19:47

Private declare function Poisk lib "Yandex.ru" alias _
"PoiskPrimera" (posik as primer) as string

Dim BazaDannyh As DataBase
Dim Pamyat as String

if (info>mnogo) then
Call MakingDataBase()
else:
Pamyat=info
end if

private sub MakingDataBase()
PoiskPrimera("Yandex.ru")
doevents
end sub

**Max!** » 13.04.2003 (Вс) 19:49

Можешь поподробнее какои код куда впихивать , в форму или нет?

**FaKk2** » 13.04.2003 (Вс) 21:09

Max! писал(а):Можешь поподробнее какои код куда впихивать , в форму или нет?

Я не могу!!!!!!!!
Ааааааааааааа!!!!
я чуть с стула не упал от хохота!!!!!!!!
Ну и разыграл...........!!!!!!!!!!! :lol:

Сорри за реакцию, но сдерживать её выше моих сил....... :oops:

**Max!** » 13.04.2003 (Вс) 21:35

Вовсе это не розыгрыш , если не трудно ответь на мои вопрос ! :oops:

**Amed** » 13.04.2003 (Вс) 22:10

Ну и lol!
Насмешили старика на ночь =)
Я чуть домашних не разбудил хохотом... Ну и делааа!

**Amed** » 13.04.2003 (Вс) 22:15

Ну, а если серьёзно, то вот так:

Код: Выделить всё: Dim Peremennaya_dlya_teksta as String Peremennaya_dlya_teksta="Хранимый текст......" 'Кстати, символ переноса - vbCrLf или Chr(13) + Chr(10) 'То есть для вставки нового абзаца пишешь в переменную: Peremennaya_dlya_teksta="Хранимый" & vbcrlf & "текст......" 'Вот и всё... 'А потом для вставки в контрол пишешь, скажем: MyTextBox.Text=Peremennaya_dlya_teksta

P.S. Надо было создавать топик в теме "VB для новичков"
:lol:

**Max!** » 13.04.2003 (Вс) 23:10

СПАСИБО!! Тольку ругаться некчему , это некрасиво!

**FaKk2** » 14.04.2003 (Пн) 10:48

Max! писал(а):СПАСИБО!! Тольку ругаться некчему , это некрасиво!

Никто и не ругается.
Ты просто ВНИМАТЕЛЬНО прочитай кусок кода данный тебе FireStorm'ом.

Помоему ты поймешь шутку.....

**Max!** » 14.04.2003 (Пн) 11:56

Да я понял хорошо меня розыграли!!!! У меня ещё вопрос а можит ли мая прога хранить в сибе фаил например "Menu.py" и внужныи момент вставляла его в комп , например в "C:\" Healp! Please!

**FaKk2** » 14.04.2003 (Пн) 13:01

Если это текстовый файл, то ты можешь хранить этот текст в переменной, а в нужный момент записать его в файл через output:
Open "C:\men.py" for output as #1
print #1, text_faila
close #1

**Max!** » 14.04.2003 (Пн) 13:12

Нет мне надо что бы прога хранила не текст а сам фаил и мне не надо его редактировать мне надо просто при нажатий кнопки на форме прога заменила уже находящийся фаил в компем на тот которыи она всибе хронит !

**FaKk2** » 14.04.2003 (Пн) 13:17

Вот скажи: что значит файл?
ИМХО, это последовательность символов представленных ASCII кодом(текстовые файлы).
Так если ты хранишь такой файл, то ты храгишь все его символы. логично?
А если так, то почему ты не можем эти символы скинуть на диск, и таким образом превратить их в отдельный файл?

Кстати, если ьы хочешь удалить существующий файл, то по моему output тоже прокатит.

**Max!** » 14.04.2003 (Пн) 13:28

Приведённые примеры выше "FAKK2" не работает !

Вот как сделать чтоб прога хранила симвалы а потом вставляла их в фаил "Menu.py"
:evil:

**FaKk2** » 14.04.2003 (Пн) 13:45

Max! писал(а):Приведённые примеры выше "FAKK2" не работает !

Вот как сделать чтоб прога хранила симвалы а потом вставляла их в фаил "Menu.py"

А что конкретно не работает? Где ты хранишь текст? где ты его сохраняешь?
Не надо злится, надо нормально объяснить....

**Max!** » 14.04.2003 (Пн) 14:33

Вот я посидел подумал внимательно просмотрел всеи у меня вышло прога вставляет мои текст в фаил "C:\Menu.py" вот ещё одна проблема , в фаиле "Menu.py" нахадится текст а моя прога его заменяет на хранимыи текст а мне надо чтобы прога вставляла хранимыи текст под находящимся в "Menu.py" тексте!

**alibek** » 14.04.2003 (Пн) 16:41

2 способа

1. Вначале считывай файл в буфер, затем выводи буфер, а затем выводи свои данные.

2. Используй OPEN filename FOR APPEND, чтобы дописывать в конец файла.

**Firestorm** » 14.04.2003 (Пн) 17:12

append...

хотя также можно и fso гонять...
http://vbsdown.aic.ru/forum/viewtopic.php?t=660
в object browser (кнопка F2 в редакторе) можно посмотреть все функции textstream... :lol:

**Max!** » 14.04.2003 (Пн) 19:27

Тот пример у меня вообще не прашол на
http://vbsdown.aic.ru/forum/viewtopic.php?t=660

Конкретние компилятор обводит такие строки:

Dim fso As New FileSystemObject
Dim script1 As TextStream

Set script1 = fso.OpenTextFile(App.Path & "\YOURFILE.txt", ForReading, False)

Set script1 = fso.OpenTextFile(App.Path & "\YOURFILE.txt", ForReading, False)

Private Sub Command2_Click()

On error resume next
'----WritingNewFile----- теперь из массива всё записываем в файл-------
Set script1 = fso.OpenTextFile(App.Path & "\YOURFILE.txt", ForWriting, False)

запись...
script1.Write ar(j) 'вот теперь всё построчно записываем в файл...

Ести-ли способ легче ?

конешно я указал сваи пути до фаила например Set script1 = fso.OpenTextFile("C:\Menu.py", ForWriting, False)

**Firestorm** » 14.04.2003 (Пн) 19:54

ты хоть подключил fso? (я писал "P.S. Незабудь подключить FileSystemObject в меню Project->Preferences "... называется Microsoft Scripting Runtime)...
всё должно работать на ура... :roll:

**Max!** » 14.04.2003 (Пн) 20:15

Нет не забыл он не вставляет

В фаиле C:\Menu.py есть текст :

"Kind" : netwidgets.B_InputBox,
"MaxSize" : 32,
"GetInput" : NetMisc.GetIp,
"SetInput" : NetMisc.SetIp,
"Locked" : NetMisc.IpLooked,
"VSep" : 120
},
{
' СЮДА ДОБАВИТЬ

И мне надо чтобы моя прога добавила В КОНЦЕ ЭТОТ СТОЛБИКК:

import cheats
cheats.ActivateMiscCheats()
cheats.ActivateLaserEyes()
cheats.ActivateWeaponGrow()
cheats.ActivateGoreCheatsCheats()
cheats.ActivateLevelCheats()

**skiperski** » 14.04.2003 (Пн) 22:10

Учите мат. часть, товаристч! Возьми прочитай хоть одну книжку по VB. Разберись как работать с объектами. Научись анализировать проблему и задавать вопросы. Научись делать выводы. У тебя отсутствуют элементарные знания предмета и навыки самостоятельной работы.

А за такие приколы с постингом листинга вообще наказывать надо.

**Max!** » 14.04.2003 (Пн) 22:16

Я прочитал книгу про VB каторая даёт элементарные навыки но а таких вещах там небыло сказана ! Книга называется "Самоучитель програмирования , второе издание , Грег Перри" ! Если не трудно помаги!

**skiperski** » 14.04.2003 (Пн) 23:06

Мне не трудно, но помогать интересно людям думающим. Потому как знания, как та самая улыбка, которая к тебе не раз ещё вернётся. А помогать лентяям, которые готовый пример под себя переделать не могут - только время терять.

Надеюсь тебя не придётся причислять ко вторым

Код: Выделить всё: Public Sub AppendToFile(ByVal FileFullPath As String, ByVal TextToWrite As String) Dim iFF As Long On Error GoTo hErr iFF = FreeFile() Open FileFullPath For Append As #iFF Print #iFF, TextToWrite ExitRoutine: On Error Resume Next Close #iFF Err.Clear Exit Sub hErr: Resume ExitRoutine End Sub

ЗЫ: И убери в предыдущем своём сообщении листинг файла, он никому не нужен, а у многих модемы, а не выделенки. Уважай окружающих.

**Max!** » 14.04.2003 (Пн) 23:58

Всё работает спасибо большое!!!!

**skiperski** » 15.04.2003 (Вт) 0:16

Носи на здоровье!

Конференция VBStreets

Как занести текст в базу данных...

Как занести текст в базу данных...

Кто сейчас на конференции