Trebalo bi da napravim bazu ali u txt formatu. Znaci txt fajl koji cu periodicno puniti podacima iz VB, jel imao neko iskustva sa ovim ?
Visual Basic i *.txt baza
Zaključano
Zakačeno
Nije neizvodljivo ... ali bolje da probas sa xml formatom
Potpis
HomePage http://www.eurora3d.com
Uspeo sam iz VB da upisem podatke u txt file, sad mi je problem da definisem sirinu polja u tom txt fajlu zbog kasnijeg stampanja.
Kad unosim podatke u txt-u se formira matrica koja ima sirinu polja kao najduzi element niza, kako bih mogao da definisem sirinu svakog polja???
Kad unosim podatke u txt-u se formira matrica koja ima sirinu polja kao najduzi element niza, kako bih mogao da definisem sirinu svakog polja???
Treba da zadajem da mi VB pravi txt fajlove na osnovu datuma, ali imam malih problema jel ima neko resenje za ovo:
Private Sub Command1_Click()
Dim ime_fajla As String
ime_fajla = Format(Date, "yyyy/mm")
Open "D:\proba\" & ime_fajla & ".txt" For Append As #1
Print #1, ..............
Private Sub Command1_Click()
Dim ime_fajla As String
ime_fajla = Format(Date, "yyyy/mm")
Open "D:\proba\" & ime_fajla & ".txt" For Append As #1
Print #1, ..............
Pa ne mozes koristiti karakter "/" u nazivu fajla. Probaj sa Format(Date, "yyyy.mm") ili Format(Date, "yyyy-mm")
Radi Thanks
Kako da nateram da mi VB 6.0 uradi print preview i print nekog *.txt sa odredjene definisane lokacije ???
Pa postavi formu i na njoj picturebox, za font postavi neki sa fixnom velicinom karaktera (Terminal, Courier New ...):
I imas print preview...
A kazes mu jos i:
Printer.Cls
Printer.PaintPicture picture1.picture, 0, 0, picture1.width, picture1.height, 0, 0, picture1.width, picture1.height, vbSrcCopy
Printer.EndDoc
na neki dogadjaj i dobijes sve to na stampacu...
E sad ti to sve razradi(dodaj i stampanje po stranama i sl.), imas osnovu...
Code:
dim ff as integer
ff = freefile()
dim tmpString as string
open [ime_datoteke kao string] for input as #ff
do while not EOF(ff)
input #ff, tmpString
picture1.print tmpString
loop
close #ff
dim ff as integer
ff = freefile()
dim tmpString as string
open [ime_datoteke kao string] for input as #ff
do while not EOF(ff)
input #ff, tmpString
picture1.print tmpString
loop
close #ff
I imas print preview...
A kazes mu jos i:
Printer.Cls
Printer.PaintPicture picture1.picture, 0, 0, picture1.width, picture1.height, 0, 0, picture1.width, picture1.height, vbSrcCopy
Printer.EndDoc
na neki dogadjaj i dobijes sve to na stampacu...
E sad ti to sve razradi(dodaj i stampanje po stranama i sl.), imas osnovu...
Ja sam vec nesto slicno radio ali sa list box-om, ali mi je bio format teksta. To mi sad radi kao print preview, imam problem kad pokrenem stampanje, izbacuje mi gresku kod: Printer.Cls ?!
Kako bih mogao da stampam list box?
Kako bih mogao da stampam list box?
Moja greska, objekt printer uopste nema metudu Cls.
Preskoci tu liniju i radice.
Mozes da stampas i sa imeForme.PrintForm
A mozes i datareport da napravis.
A mozes i da mu kazes:
U svakom slucaju srecno...
Preskoci tu liniju i radice.
Mozes da stampas i sa imeForme.PrintForm
A mozes i datareport da napravis.
A mozes i da mu kazes:
Code:
dim ff as integer
ff = freefile()
dim tmpString as string
open [ime_datoteke kao string] for input as #ff
do while not EOF(ff)
input #ff, tmpString
printer.print tmpString
loop
close #ff
printer.enddoc
dim ff as integer
ff = freefile()
dim tmpString as string
open [ime_datoteke kao string] for input as #ff
do while not EOF(ff)
input #ff, tmpString
printer.print tmpString
loop
close #ff
printer.enddoc
U svakom slucaju srecno...
Stefane moze li se u taj picture box ubaciti text pomocu twipsa a ne razmaka? Nesto kao kada stampas pa kazes printer.curentx=500:printer.curenty=2000:printer.print "TEXT"?
Pa možeš isto kao i sa printer objektom.
Code:
Picture1.CurrentX = 500
Picture1.CurrentY = 2000
Picture1.Print "TEXT"
Picture1.CurrentX = 500
Picture1.CurrentY = 2000
Picture1.Print "TEXT"
Potpis
-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
-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
E odlicno, nisam jos probao ali verujem da moze, trebalo bi. Hvala puno!
Code:
Private Sub Command1_Click()
Picture1.CurrentX = 500
Picture1.FontSize = 15
Picture1.Print "TEXT"
Picture1.CurrentX = 1000
Picture1.FontSize = 8
Picture1.Print "TEXT"
Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Printer.EndDoc
End Su
Private Sub Command1_Click()
Picture1.CurrentX = 500
Picture1.FontSize = 15
Picture1.Print "TEXT"
Picture1.CurrentX = 1000
Picture1.FontSize = 8
Picture1.Print "TEXT"
Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Printer.EndDoc
End Su
Sta ne valja? kaze Invalid picture kada se stampa. Inace print preview pokaze lepo
Hm... cekaj malo razumem zasto se to desava ali...
On uopste ne konta da taj text koji dodam u picturebox pripada toj picture. Naime kada napisem kod picture2.picture=picture1.picture a prethodno sam u picture1 manuelno ubacio neku sliku u print preview pokaze mi tu ubacenu sliku i preko nje dodat TEXT ali u picture 2 nalazi se samo slika BEZ dodatog texta. Zato i izbacuje invalid picture jer mi je picturebox prazan sto se ticee slike posto je nisam manuelno ubacio i onda ne moze ni da je nadje a dodat text ne gleda kao deo slike i smatra da slike nema pa izbacuje gresku. Kako to da otklonim i odstampam?
On uopste ne konta da taj text koji dodam u picturebox pripada toj picture. Naime kada napisem kod picture2.picture=picture1.picture a prethodno sam u picture1 manuelno ubacio neku sliku u print preview pokaze mi tu ubacenu sliku i preko nje dodat TEXT ali u picture 2 nalazi se samo slika BEZ dodatog texta. Zato i izbacuje invalid picture jer mi je picturebox prazan sto se ticee slike posto je nisam manuelno ubacio i onda ne moze ni da je nadje a dodat text ne gleda kao deo slike i smatra da slike nema pa izbacuje gresku. Kako to da otklonim i odstampam?
Pa ne radi zato što svojstvo Picture sadrži bitmapu koja je učitana, ali ne i ono što si ti docrtao. Umesto Picture, koristi svojstvo Image. Takođe, trebaš da promeniš i AutoDraw svojstvo u True. Dakle, izmeni tvoj kod da izgleda ovako i trebalo bi da radi
isto tako, kada prebacuješ nešto iz picturebox-a u picturebox... ako staviš
prebacićeš samo bitmapu koja je učitana u Picture2. Ako hoćeš da iskopiraš sve sa tekstom koji si eventualno dopisao, koristi
Code:
Picture1.AutoRedraw = True
Picture1.CurrentX = 500
Picture1.FontSize = 15
Picture1.Print "TEXT"
Picture1.CurrentX = 1000
Picture1.FontSize = 8
Picture1.Print "TEXT"
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Printer.EndDoc
Picture1.AutoRedraw = True
Picture1.CurrentX = 500
Picture1.FontSize = 15
Picture1.Print "TEXT"
Picture1.CurrentX = 1000
Picture1.FontSize = 8
Picture1.Print "TEXT"
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Printer.EndDoc
isto tako, kada prebacuješ nešto iz picturebox-a u picturebox... ako staviš
Code:
Picture1.Picture = Picture2.Picture
Picture1.Picture = Picture2.Picture
prebacićeš samo bitmapu koja je učitana u Picture2. Ako hoćeš da iskopiraš sve sa tekstom koji si eventualno dopisao, koristi
Code:
Picture1.Picture = Picture2.Image
Picture1.Picture = Picture2.Image
Potpis
-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
-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
Sada radi, hvala, znaci gore je greska.