Visual Basic i *.txt baza

[ sinisah009 @ 28.08.2008. 01:00 ] @

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 ?

[ Eurora3D Team @ 28.08.2008. 01:25 ] @

Nije neizvodljivo ... ali bolje da probas sa xml formatom

[ sinisah009 @ 28.08.2008. 23:56 ] @

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???

[ sinisah009 @ 29.08.2008. 16:49 ] @

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, ..............

[ goranvuc @ 29.08.2008. 16:55 ] @

Pa ne mozes koristiti karakter "/" u nazivu fajla. Probaj sa Format(Date, "yyyy.mm") ili Format(Date, "yyyy-mm")

[ sinisah009 @ 29.08.2008. 19:40 ] @

Radi Thanks

[ sinisah009 @ 29.08.2008. 23:32 ] @

Kako da nateram da mi VB 6.0 uradi print preview i print nekog *.txt sa odredjene definisane lokacije ???

[ stefanpn @ 01.09.2008. 13:27 ] @

Pa postavi formu i na njoj picturebox, za font postavi neki sa fixnom velicinom karaktera (Terminal, Courier New ...):

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

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...

[ sinisah009 @ 02.09.2008. 15:04 ] @

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?

[ stefanpn @ 02.09.2008. 17:10 ] @

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:

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

U svakom slucaju srecno...

[ Blue82 @ 26.10.2008. 11:59 ] @

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"?

[ Marko_L @ 26.10.2008. 12:54 ] @

Pa možeš isto kao i sa printer objektom.

Code:
Picture1.CurrentX = 500
Picture1.CurrentY = 2000
Picture1.Print "TEXT"

[ Blue82 @ 26.10.2008. 16:11 ] @

E odlicno, nisam jos probao ali verujem da moze, trebalo bi. Hvala puno!

[ Blue82 @ 26.10.2008. 16:28 ] @

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

Sta ne valja? kaze Invalid picture kada se stampa. Inace print preview pokaze lepo

[ Blue82 @ 26.10.2008. 17:09 ] @

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?

[ Marko_L @ 26.10.2008. 18:08 ] @

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

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

isto tako, kada prebacuješ nešto iz picturebox-a u picturebox... ako staviš

Code:
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

[ Blue82 @ 26.10.2008. 18:15 ] @

Sada radi, hvala, znaci gore je greska.