Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

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

  • 11 odgovora
  • 4.188 pregleda

Najnovija ↓

Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos 01.08.2008. u 10:26 · pre 222 meseca
izmenjeno 1 put, poslednji put aikidomaster 01.08.2008. u 10:57
  1. aikidomaster01.08.2008. u 10:57zapis iz teksta poruke
#1
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
Potpis
Ono sto ne moze niko Mogu i ja
Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos 01.08.2008. u 12:02 · pre 222 meseca #2
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"
Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos 01.08.2008. u 13:04 · pre 222 meseca #3
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
Potpis
Ono sto ne moze niko Mogu i ja
Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos 01.08.2008. u 14:14 · pre 222 meseca
izmenjeno 2 puta, poslednji put dava 01.08.2008. u 15:00
  1. dava01.08.2008. u 15:00zapis iz teksta poruke
  2. dava01.08.2008. u 14:59zapis iz teksta poruke
#5
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
Potpis
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos 01.08.2008. u 16:37 · pre 222 meseca #6
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...
Potpis
rafforum.rs - Forum Računarskog Fakulteta
Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos 02.08.2008. u 12:05 · pre 222 meseca #8
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.
Potpis
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos 02.08.2008. u 19:49 · pre 222 meseca #10
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).
Potpis
Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac
Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos 02.08.2008. u 20:26 · pre 222 meseca #11
'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
Potpis
rafforum.rs - Forum Računarskog Fakulteta
Re: Prosti kodovi za VB meni treba 1 ali bi mi dobro doslo jos 03.08.2008. u 14:36 · pre 222 meseca #12
Egzakli, cak si fino pokrio i onu poslednju recenicu pa on (onaj koji poziva funkciju) ako hoce moze da koristi informaciju da ne postoji fajl a moze i da ignorise.
Potpis
Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme