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

Kako da dopisem nesto u TXT fajl?

[es] :: Visual Basic 6 :: Kako da dopisem nesto u TXT fajl?

[ Pregleda: 1168 | Odgovora: 8 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

ArtifeX

Član broj: 39865
Poruke: 181
212.200.69.*



Profil

icon Kako da dopisem nesto u TXT fajl?15.04.2005. u 22:29

Kako da dopisem nesto u TXT fajl npr. ako fajl postoji If Fso.FileExists onda dopisi
"TRA LA LA ", a ako ne postoj onda nista.
||< ArtifeX >||
15.04.2005. u 22:29 

System alert

Član broj: 38984
Poruke: 49
*.beotel.net.



Profil

icon Re: Kako da dopisem nesto u TXT fajl?15.04.2005. u 23:07
Napravi jedno komandno dugme i ubaci ovo:

Code:
Private Sub Command1_Click()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim textstream As Scripting.textstream



If fso.FileExists("C:\tekst.txt") = True Then 'Proverava da li fajl postoji
    Set textstream = fso.OpenTextFile("C:\tekst.txt", ForWriting, True, TristateFalse)
    textstream.WriteLine ("Upisi ovo.")     'Ako postoji upisuje tekst
Else
    Exit Sub
End If
End Sub



Udji u meni Project -> References i cekiraj "Microsoft Scripting Runtime"
System Alert
15.04.2005. u 23:07 

vujkev
Darko Vujičić
Telekom Srbija AD
Beograd

Član broj: 8072
Poruke: 878
*.bg.wifi.vline.verat.net.



Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 01:35
ili
Code:

Dim ff as Integer
ff = FreeFile
Open "c:\neki fajl.txt" For Append As #ff
Print #ff, "novi tekst"
Close #ff


naravno ovo je samo za dodavanje bez provere da li fajl postoji ili ne
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
16.04.2005. u 01:35 

ArtifeX

Član broj: 39865
Poruke: 181
212.200.69.*



Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 17:36
Zahvaljujem se obojci.
||< ArtifeX >||
16.04.2005. u 17:36 

ArtifeX

Član broj: 39865
Poruke: 181
212.200.69.*



Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 17:56
Evo upravo sam probao i kod ovog prvog kode na ova 3 reda

Code:
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim textstream As Scripting.textstream


Javlja ovu gresku "User-diferent type not defined".
Zasto i sta da radim.
||< ArtifeX >||
16.04.2005. u 17:56 

Marko_L
Marko Lošonc
Founder and Owner, Jurassic Software
Beograd

Moderator
Član broj: 20532
Poruke: 2219
*.yubc.net.

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoftware.com


Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 18:02
Citat:
Udji u meni Project -> References i cekiraj "Microsoft Scripting Runtime"

Jesi li uradio to ?
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca m.
-Piše "Insert disk 3", a jedva sam i ova dva ugurao u drajv
-Postoje samo dve osobe kojima verujem, jedna sam ja, a druga nisi ti
16.04.2005. u 18:02 

ArtifeX

Član broj: 39865
Poruke: 181
212.200.69.*



Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 19:29
E da to sam zaboravio i sada radi nego ja sam hteo da dopise, a ne da prepise celu sadrzinu teksta i da upise svoju.
Znaci da se sadrzina texta ne brise nego da se uvek dopunjuje.

Ako znate pomagajte.

||< ArtifeX >||
16.04.2005. u 19:29 

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 9014
*.etf.bg.ac.yu.

Sajt: www.diskusije.net


Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 19:43
Samo zameni ForWriting sa ForAppending.
16.04.2005. u 19:43 

ArtifeX

Član broj: 39865
Poruke: 181
212.200.69.*



Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 20:06
Radi

Code:
Private Sub Form_Load()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim ff As Integer
ff = FreeFile
If fso.FileExists("C:\tekst.txt") = True Then 'Proverava da li fajl postoji
    Open "c:\tekst.txt" For Append As #ff
Print #ff, "novi tekst"
Close #ff
End If
End Sub


||< ArtifeX >||
16.04.2005. u 20:06 

[es] :: Visual Basic 6 :: Kako da dopisem nesto u TXT fajl?

[ Pregleda: 1168 | Odgovora: 8 ]

 Postavi temu Odgovori

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