FOV - metode in tehnike razvoja prog. opreme

Raven

Raven

Voodoo
25. jul 2007
749
0
16
42
Živjo,

sigurno imamo koga tukaj gor, ki je naredil faks v Kranju in raztura Visual Basic
smile-1.gif

Imam težavo, da nikakor ne znam rešiti nalogce v pripeti datoteki.. anyone? Ima morda kdo to že rešeno, da ne bo na novo delal...?

Problem imam, ko preberem datoteko, je ne znam potem spremeniti in na novo zapisati z vsemi straimi in novimi spremembami...

Hvala
 

Priponke

  • 2131070-Izposoja.doc
    183 KB · Ogledi: 385
Nazadnje urejeno:
SpEkTr

SpEkTr

ex mroizo
19. jul 2007
1.549
36
48
44
LOL tega se pa še spomnim ja. Smo delali to. Kje je ta app ostal pa bogsigavedi. Je pa zadeva dokaj trivialna.
 
mojamura

mojamura

Fizikalc
25. jul 2007
1.355
1
36
sLOVEnia
tu maš za polnjenje comboboxa ...sem bolj za C# , ampak evo vsaj delček....nisem sprobala, tako da preveri delovanje

Private Sub Form_Load()
Using beriUporabnika As New Microsoft.VisualBasic.
FileIO.TextFieldParser(
"C:\uporabnik.rdn")
beriUporabnika.TextFieldType = FileIO.FieldType.Delimited
beriUporabnika.SetDelimiters(",")

zgornja koda naredi TextFieldParser imenovan beriUporabnika in določi delimiter '',''


Dim trenutnaVrstica As String()
While Not beriUporabnika.EndOfData
Try
trenutnaVrstica = beriUporabnika.ReadFields()
Dim trenutnoPolje As String
For Each trenutnoPolje In trenutnaVrstica
comboboxUporabniki.AddItem trenutnoPolje

Next
Catch ex As Microsoft.VisualBasic.
FileIO.MalformedLineException
MsgBox("Vrstica " & ex.Message &
"ni veljavna in bo ignorirana")
End Try
End While
End Using
End Sub
'loopaš skozi fajl, če prideš do neveljavne vrstice jo ignosriraš
 
Raven

Raven

Voodoo
25. jul 2007
749
0
16
42
huh, sicer mi je približno jasno o čem pišeš, samo nevem če je to točno to kar jaz iščem? Mislim, nikjer ne razberem iz tvoje kode, kdaj se zapiše na zaja v sekvenčno datoteko..?
 
brane_new

brane_new

Guru
10. feb 2008
16.417
2.582
113
Citat:
Uporabnik mojamura pravi:
tu maš za polnjenje comboboxa ...
Klikni za razširitev
H V A L A
smile-1.gif

tole sem tudi sam rabil.
vendar kako zgleda, če imam v vrstici več podatkov, ločenih z vejico in želim vsakemu prebranemu podatku - imel vrednost ali ne - dati svoje ime.
seveda to ponavljam po vseh vrsticah do konca.
 
K

KrNeki99

Pripravnik
3. sep 2007
884
23
18
Ljubljana
najbolj uporabno bo:
branje in pisanje v "bazo"
System.IO.File.WriteAllLines(filename, Array)
System.IO.File.ReadAllLines(filename)

vsak tip pa das v en string in iz njega
Strings.Join()
Strings.Split()


naprimer struktura za tip uporabnik bi zgledala takole
Private Structure uporabnik
Public ime As String
Public priimek As String

Public Sub New(ByVal sIme As String, ByVal sPriimek As String)
ime = sIme
priimek = sPriimek
End Sub

Public Sub New(ByVal DBLine As String)
Dim arr() As String = Strings.Split(DBLine, ",")
ime = arr(0)
If arr.Length >= 2 Then priimek = arr(1)
End Sub

Public Function ToDBLine() As String
Return ime & "," & priimek
End Function
End Structure

nekaj bos pa tudi sam naredil
wink-1.gif


lp
 
Raven

Raven

Voodoo
25. jul 2007
749
0
16
42
huh, tole kar si napisal mi ni čist najbolj znano/jasno, sem pa potem takole rešil zadevo:


Dim tblZaporednaSt() As Integer
Dim tblNaslov() As String
Dim tblAvtor() As String
Dim tblSposojeno() As Integer
Dim Stevec As Integer

FileOpen(1, Datoteka, OpenMode.Input)
Do
With Zapis
Stevec += 1
Input(1, .ZaporednaSt)
Input(1, .Naslov)
Input(1, .Avtor)
Input(1, .Sposojeno)
ReDim Preserve tblZaporednaSt(Stevec)
ReDim Preserve tblNaslov(Stevec)
ReDim Preserve tblAvtor(Stevec)
ReDim Preserve tblSposojeno(Stevec)
tblZaporednaSt(Stevec) = .ZaporednaSt
tblNaslov(Stevec) = .Naslov
tblAvtor(Stevec) = .Avtor
tblSposojeno(Stevec) = .Sposojeno

End With
Loop Until EOF(1)
FileClose(1)

FileOpen(1, Datoteka, OpenMode.Output)

For Stevec = 1 To Stevec
If txtIzposoja.Text = tblZaporednaSt(Stevec) Then
WriteLine(1, tblZaporednaSt(Stevec), tblNaslov(Stevec), tblAvtor(Stevec), cmbOsebe.SelectedIndex)
Else
WriteLine(1, tblZaporednaSt(Stevec), tblNaslov(Stevec), tblAvtor(Stevec), tblSposojeno(Stevec))
End If
Next
FileClose(1)
 
K

KrNeki99

Pripravnik
3. sep 2007
884
23
18
Ljubljana
ok, gremo se malo naprej, branje in pisanje iz/v bazo

Public Users As List(Of uporabnik)
Public Sub LoadUsers(ByVal filename As String)
Dim arr() As String = System.IO.File.ReadAllLines(filename)
For Each s As String In arr
Users.Add(New uporabnik(s))
Next
End Sub
Public Sub WriteUsers(ByVal filename As String)
Dim arr(Users.Count - 1) As String
For i As Integer = 0 To Users.Count - 1
arr(i) = Users(i).ToDBLine
Next
System.IO.File.WriteAllLines(filename, arr)
End Sub


do podatkov o uporabniku pa prides preko users(indexuporabnika)

za prikaz v comboboxu pa samo dodas v strukturo uporabnikov
Public Overrides Function ToString() As String
Return ime & " " & priimek
End Function

in direkt strukturo dodas v combobox, oziroma vrstico
Users.Add(New uporabnik(s))
spremenis v
Dim u As uporabnik = New uporabnik(s)
Users.Add(u)
cmb.additem(u)



ps: pa to je vse .net oz visual basic express

lp
 
Raven

Raven

Voodoo
25. jul 2007
749
0
16
42
nja, samo jaz ne znam pisat v tem jeziku, jaz znam samo v tistem, ki se ga nad tvojim postom prilepil
smile-1.gif
 
Ledenko

Ledenko

Guru
18. jul 2011
2.552
927
113
Kdo pa ima ta predmet? Werber al "back to the future" Zupančič al mogoče kdo drug? :D
 
Nazadnje urejeno:
Raven

Raven

Voodoo
25. jul 2007
749
0
16
42
KSZ

mi je ratal naredit izpit, niæ težkega
smile-1.gif


Drgač pa ja, nosilci so Zupančič, Werber, Bitenc... vedno več jih je
smile-1.gif
 
Za odgovor se prijavite ali registrirajte.
Na vrhu Bottom