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: 3903 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

ArtifeX

Član broj: 39865
Poruke: 192
212.200.69.*



Profil

icon Kako da dopisem nesto u TXT fajl?15.04.2005. u 22:29 - pre 193 meseci
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 >||
 
Odgovor na temu

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 - pre 193 meseci
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
 
Odgovor na temu

vujkev
Beograd

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



+101 Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 01:35 - pre 193 meseci
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
 
Odgovor na temu

ArtifeX

Član broj: 39865
Poruke: 192
212.200.69.*



Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 17:36 - pre 193 meseci
Zahvaljujem se obojci.
||< ArtifeX >||
 
Odgovor na temu

ArtifeX

Član broj: 39865
Poruke: 192
212.200.69.*



Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 17:56 - pre 193 meseci
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 >||
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 18:02 - pre 193 meseci
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
 
Odgovor na temu

ArtifeX

Član broj: 39865
Poruke: 192
212.200.69.*



Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 19:29 - pre 193 meseci
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 >||
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12705



+4688 Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 19:43 - pre 193 meseci
Samo zameni ForWriting sa ForAppending.
 
Odgovor na temu

ArtifeX

Član broj: 39865
Poruke: 192
212.200.69.*



Profil

icon Re: Kako da dopisem nesto u TXT fajl?16.04.2005. u 20:06 - pre 193 meseci
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 >||
 
Odgovor na temu

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

[ Pregleda: 3903 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

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