[es] - Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

aikidomaster

Član broj: 162160
Poruke: 148
*.cust.panline.net.

+1 Profil

Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

^{01.08.2008. u 09:26 - pre 191 meseci}

Vec imam :
Open "C:\mesto\12\To_Store\01\por" & Format(Date, "DDMMYY") & Format(Time, "HHMMSS") & ".txt" For Output As #1
Print #1, Text1.Text
Close #1

e sada mi treba jos da kada napise da mi izadje poruka da je napisana kao npr. popup prozorcic gde ce pisati :Poruka je uspesno napisana
ili tako nesto

jos mi treba komanda za brisanje fila

_{[Ovu poruku je menjao aikidomaster dana 01.08.2008. u 10:57 GMT+1]}

Ono sto ne moze niko Mogu i ja

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net

+1 Profil

Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

^{01.08.2008. u 11:02 - pre 191 meseci}

Pretpostavljam da ti je PopUp prozorcic u stvari MsgBox

Code:
Open "C:\mesto\12\To_Store\01\por" & Format(Date, "DDMMYY") & Format(Time, "HHMMSS") & ".txt" For Output As #1
Print #1, Text1.Text
Close #1
MsgBox "Poruka uspesno napisana", vbInformation, "Informacija"

a sto se tice brisanja, koristis

Code:
Kill "C:\putanja\fajl.ext"

Odgovor na temu

aikidomaster

Član broj: 162160
Poruke: 148
*.cust.panline.net.

+1 Profil

Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

^{01.08.2008. u 12:04 - pre 191 meseci}

ovaj prvi sam negde i iskopao ali Hvala za drugi

Da li ima jos nekih tako jednostavnih codova mislim ima nego da li neko hoce da bude ljubazan pa da napise ili stavi link gd emoze da se nadje

HVALA

Ono sto ne moze niko Mogu i ja

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

^{01.08.2008. u 12:40 - pre 191 meseci}

evo recimo sta je google izbacio: http://www.garybeene.com/vb/tut-lang.htm

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893

+384 Profil

Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

^{01.08.2008. u 13:14 - pre 191 meseci}

Mogu ti poslati putem mail-a ili kako ti je god zgodnije razne kodove jos iz vremena kada sam se upoznavao sa VB-om. Sve su to uglavnom moji kodovi na kojima sam ja vjezbao.

Evo ti jedan primjer rada sa stringovima.

Ovo je povrsno rjesenje:

Code:

Kill "C:\putanja\fajl.ext"

obrisace on file, ali sta ako fajla nema onda ce program dreknuti!

Za rad sa fajlovima i folderima prouci FileSystemObject.
Dodas ga u referencama pa:

Code:

  Dim Fso As FileSystemObject
  Set Fso = New FileSystemObject
  If Fso.FileExists("C:\putanja\fajl.ext") = True Then
      Fso.DeleteFile ("C:\putanja\fajl.ext")
  End If

_{[Ovu poruku je menjao dava dana 01.08.2008. u 14:59 GMT+1]}

_{[Ovu poruku je menjao dava dana 01.08.2008. u 15:00 GMT+1]}

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Prikačeni fajlovi

RadSaStringovima.zip - 3.84k

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

^{01.08.2008. u 15:37 - pre 191 meseci}

ili ako neces da pravis reference na FSO mozes da iskoristis vb-ov On Error handler (ja sam pristalica try-catch resenja, ali u vb6 moramo da koristimo ono sto imamo):

Code:

Sub DeleteFile(ByVal Filename AS String)
   On Error Resume Next
   Kill Filename
   On Error Goto 0
End Sub

sada samo pozoves DeleteFile "c:\putanja\do\fajla.ext" i funkcija ce obrisati fajl ukoliko postoji, a ukoliko ne postoji nista se nece desiti...

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net

+1 Profil

Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

^{01.08.2008. u 16:03 - pre 191 meseci}

@dava jeste povrsno resenje, medjutim decko je rekao da je pocetnik, ja nisam hteo da mu komplikujem stvari sa FSO,a druga stvar pre ce da nauci ako budem sam istrazivao nego ako mu budemo servirali kod :)

Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893

+384 Profil

Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

^{02.08.2008. u 11:05 - pre 191 meseci}

Ma OK, ali kontam ako vec pokusava neki rad fajlovima, mozda mu je bolje da proba FSO rjesenje jer nakon tog brisanja pozelece da kopira ili kreira neki fajl pa bi mu se cim otkuca FSO. samao rjesenje ponudilo. ;)

Kad se nesto uci, jako je bitno da se uci pravi nacin. U suprotnom sam se dosta puta zeznuo.

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net

+1 Profil

Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

^{02.08.2008. u 13:34 - pre 191 meseci}

Ako predvidjamo da ce da pita kako se kopira etc... onda se u potpunosti slazem sa tobom :)

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

^{02.08.2008. u 18:49 - pre 191 meseci}

Ako cemo da radimo bez ikakve provere i ostalog, Kill je ok.
Ako cemo da uzimamo u obzir moguca stanja, onda ni jedno od predloga nije potpuno.
Trebalo bi uraditi obe stvari - 1. proveriti da li fajl postoji; 2) ako postoji, sa "on error" handle-ovati mogucu gresku
Razlog je taj sto ako fajl ne postoji - ne treba da dodje do greske, jer je novo stanje sistema onakvo kakvo smo zeleli (nezavisno od toga sto je i staro bilo takvo). Eventualno se moze prikazati poruka da fajla nije ni bilo (ako su takvi zahtevi u konkretnom slucaju).

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos

^{02.08.2008. u 19:26 - pre 191 meseci}

'vako nesto?

Code:

Enum DeleteFileConstants
  eNotExists
  eSuccess
  eError
End Enum

Function DeleteFile(BYVal Filename As String)
   If LenB(Dir(Filename)) = 0 Then
      DeleteFile = eNotExists
   Else
      On Error Goto hell
      Kill FileName
      DeleteFile = eSuccess
   End If
   Exit Function
hell:
   Err.Clear
   DeleteFile = eError
   On Error Goto 0
End Function

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu