Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako napraviti ini file i sa njega citati podatke?

[es] :: Visual Basic 6 :: Kako napraviti ini file i sa njega citati podatke?

[ Pregleda: 7184 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Pesticida_1
Tony Balloni
Austria

Član broj: 3707
Poruke: 11
*.teleweb.at



Profil

icon Kako napraviti ini file i sa njega citati podatke?15.05.2002. u 21:52 - pre 266 meseci
Kako bi mogao da napravim ini file i da iz programa citam podatke sa tog fajla.
Dali mi moze tko napisati kratak code.Ili naprimjer imam 50 pitanja i odgovore koji su ubaceni u jedan ini ili text file.Ja bih sad htjeo da pomocu programa,citam ta pitanja i odgovore ali pomocu rnd komande znaci slucajno izvlaci pitanja i odgovore i ubacuje ih u stringove.
Hvala
 
Odgovor na temu

gio1000
Italia

Član broj: 1159
Poruke: 122
*.98-62.inwind.it



Profil

icon Re: Kako napraviti ini file i sa njega citati podatke?15.05.2002. u 23:55 - pre 266 meseci
Pokusaj mozda ovako:
Stavi :
List1
Command1
Text1
Command2
Text2
Public Sub ReadList(List As ListBox, Filename As String, Optional ClearList As Boolean)

' Routine koja ucitava file u listu

On Error GoTo err
Open Filename For Input As #1
If ClearList = True Then List1.Clear
Do While Not EOF(1)
Line Input #1, lstinput
List1.AddItem lstinput

Loop
Close #1
Exit Sub
err:
MsgBox "Greska prilikom ucitavanja" & Chr(13) & Chr(13) & err.Number _
& " - " & err.Description, vbCritical, "Error"
Exit Sub
End Sub

Private Sub Command1_Click()
' Poziva file da ga ucita u listu
Call ReadList(List1, "C:\Kviz.txt", True)
End Sub
Private Sub Command2_Click()
'Ovim cu izabrati slucajni index i upisati ga u Text1
Dim k
k = List1.ListCount
Text2 = Int(Rnd(1) * (k))
List1.ListIndex = Text2.Text
Text1=List1.Text
End Sub
'Neznam sta tacno namjeravas ali ovo je jedan od nacina koji mozes prilagoditi
'tvojim potrebama
 
Odgovor na temu

Pesticida_1
Tony Balloni
Austria

Član broj: 3707
Poruke: 11
*.teleweb.at



Profil

icon Re: Kako napraviti ini file i sa njega citati podatke?16.05.2002. u 19:46 - pre 266 meseci
Hvala ti stari,pokusat cu tako.
Ciao.
 
Odgovor na temu

jc denton

Član broj: 2358
Poruke: 1705
*.ptt.yu



Profil

icon Re: Kako napraviti ini file i sa njega citati podatke?18.05.2002. u 15:12 - pre 266 meseci
A, u vezi ovih ini stvari probaj ovako :

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile= objFSO.CreateTextFile("c:\fajl.txt", True) ' true je za write

objFile.WriteLine "linija1"
.........
objFile.WriteLine "linija10" ' writeline upisuje u jednu liniju, i pozicionira se na sledecu, pa ako hoces da upises tacno u odredjenu liniju, ti procitaj sve do te linije (da bi se pozicionirao na nju) pa onda upisuj u nju.

objFile.Close

kad citas iz tog file-a :

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = FSO.OpenTextFile("c:\fajl.txt")
var1 = objFile.ReadLine ' cita celu liniju
.........
varN = objFile.ReadLine
objFile.CLose

Upisivanje u fajl :

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = FSO.OpenTextFile("c:\neki_file.txt",2) ' 2 je za write, pogledaj konstante ...

jos ovo :
Najbolje je da koristis Open, Put, Get jer ces na taj nacin lako da kazes u koji
'slog' (record) upisujes.
Recimo :
get #1, 5, var1 ' dodaje vrednost petog sloga u fajlu varijabli var1
put #1, 3, var1 ' upisuje u treci slog vrednost varijable var1

Ako znas bar malo o bazama, najbolje da koristis DAO, i jednu malu tabelu
kreiranu u Access-u.
Ako ti nista od ovoga ne odgovara, mozes da koristis i SaveSetting i GetSetting
komande za rad sa windows registry-jem.
Ja najcesce koristim ovo poslednje, jer mi je nekako najprostije.
Ti izaberi sta ti najvise odgovara.

Ako se ne snadjes, posalji tacno sta ti treba, uradicu ti, nije problem.

pozdrav


fire, walk with me
 
Odgovor na temu

StratOS
Slovenija

Član broj: 2234
Poruke: 989
*.dsl.siol.net



+1 Profil

icon Re: Kako napraviti ini file i sa njega citati podatke?23.05.2002. u 11:29 - pre 266 meseci
Evo ti na brzinu jednu read txt programa iz VB6 setup templeata :

Deklaracije :
Public Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal lSize As Long, ByVal lpFilename As String) As Long
Public Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As Any, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFilename As String) As Long

Public Const gintMAX_SIZE% = 255
Public Const gintMAX_PATH_LEN% = 260

'-----------------------------------------------------------
' FUNCTION: ReadIniFile
'
' Reads a value from the specified section/key of the
' specified .INI file
'
' IN: [strIniFile] - name of .INI file to read
' [strSection] - section where key is found
' [strKey] - name of key to get the value of
'
' Returns: non-zero terminated value of .INI file key
'-----------------------------------------------------------
'
Public Function ReadIniFile(ByVal strIniFile As String, ByVal strSection As String, ByVal strKey As String) As String
Dim strBuffer As String

'
'If successful read of .INI file, strip any trailing zero returned by the Windows API GetPrivateProfileString
'
strBuffer = Space$(gintMAX_SIZE)

If GetPrivateProfileString(strSection, strKey, vbNullString, strBuffer, gintMAX_SIZE, strIniFile) Then
ReadIniFile = StringFromBuffer(strBuffer)
End If
End Function


Public Function StringFromBuffer(Buffer As String) As String
Dim nPos As Long

nPos = InStr(Buffer, vbNullChar)
If nPos > 0 Then
StringFromBuffer = Left$(Buffer, nPos - 1)
Else
StringFromBuffer = Buffer
End If
End Function

10 pitanje iz filea c:wertxt.ini pod keyem PITANJA dobiješ
Str$=Readini("c:wertxt.ini,"PITANJA","10")

a struktura file-a (txt.ini)
[PITANJA]
1=Kako...
3=rzetz
10=2233
Pozdrav StratOS
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"As a rule, software systems do not work well until they have been used, and have failed repeatedly, in real applications."
"The one who is digging the hole for the other to fall in is allready in it."
 
Odgovor na temu

rainman1977
zemlja dembelija

Član broj: 7771
Poruke: 84
*.teol.net

ICQ: 200221484


Profil

icon Re: Kako napraviti ini file i sa njega citati podatke?15.05.2003. u 03:06 - pre 254 meseci
da se nadovezem na ovu pricu o recimo kvizu jer imam i ja nesto slicno samo sa povezanom bazom pod. access.Znaci pitanje glasi kako mogu da vadim podatke na fazonu random?
i don't like money oh yea,i love it
 
Odgovor na temu

jc denton

Član broj: 2358
Poruke: 1705
*.ptt.yu



Profil

icon Re: Kako napraviti ini file i sa njega citati podatke?15.05.2003. u 03:50 - pre 254 meseci
Isto kao sto "vadis" svaki drugi podatak. Generises neki slucajni broj, pa onda procitas slog sa tim index-om i to je to.
fire, walk with me
 
Odgovor na temu

rainman1977
zemlja dembelija

Član broj: 7771
Poruke: 84
*.teol.net

ICQ: 200221484


Profil

icon Re: Kako napraviti ini file i sa njega citati podatke?15.05.2003. u 16:03 - pre 254 meseci
jos samo da mi napises ukratko sintaxu i bio bih ti zahvalan.Ako ne u svakom slucaju hvala ti.
i don't like money oh yea,i love it
 
Odgovor na temu

Krsta
Krstić Dejan
Programer & Web Developer
Kruševac

Član broj: 2461
Poruke: 307
*.ptt.yu

Sajt: www.atec.rs


+15 Profil

icon Re: Kako napraviti ini file i sa njega citati podatke?18.05.2003. u 01:56 - pre 254 meseci
Data1.Recordset.Move I
gde je I neki slucajan broj koji se generise.
 
Odgovor na temu

rainman1977
zemlja dembelija

Član broj: 7771
Poruke: 84
*.teol.net

ICQ: 200221484


Profil

icon Re: Kako napraviti ini file i sa njega citati podatke?18.05.2003. u 02:55 - pre 254 meseci
e ovo mi je trebalo krsta svaka cast!!!!
i don't like money oh yea,i love it
 
Odgovor na temu

[es] :: Visual Basic 6 :: Kako napraviti ini file i sa njega citati podatke?

[ Pregleda: 7184 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.