Apo arxeio h listbox se mia metablhth.ginete?

[Exoskeletor]

mipos kserei kanas hacker apo edo pos ginete na pareis ta periexomena apo ena arxeio (px txt) kai na ta baleis se metablites?

Thelo omos h proth gramh na mph sthn a metablhth, h deyterh sthn b ktl

exo bri tropo na pernao ola ta periexomena enos txt se ena list box alla pos mporo meta na kano ayto:

1h metablhth= 1h gramh tou listbox

2h metablhth= 2h gramh tou listbox

[vagpap]

Αν δεν κάνω λάθος, τα listboxes έχουν index που δείχνει σε ποιά γραμμή βρίσκεται εκείνη τη στιγμή ο currency manager. Με ένα απλό for loop πιστεύω θα κάνεις την δουλειά σου.

Επίσης ένα αντίστοιχο loop χρειάζεσαι (while not EOF ... ) και για να διαβάσεις το αρχείο σου, και αφού διαβάσεις την γραμμή που σε ενδιαφέρει και την κάνεις ότι θες (μεταβλητή προφανώς) προχωράς στην επόμενη και το κλείνεις στο τέλος.

[mojiro]

>

Option Explicit

Public mjr_megatext As String

Public Sub MjR_Load_nodes(iFile As String)

Dim oneline As String: Dim filein As Integer
filein = FreeFile: mjr_megatext = ""

Open iFile For Input As #filein
   Do While Not EOF(filein)
       Line Input #filein, oneline
       mjr_megatext = mjr_megatext & oneline & vbCrLf
       DoEvents
   Loop
Close #filein

End Sub

Public Sub MjR_Save_nodes(iFile As String)

Dim oneline As String: Dim filein As Integer
filein = FreeFile

Open iFile For Output As #filein
   Print #filein, mjr_megatext
Close #filein

End Sub

 

 

εχω και κατι αλλο, θα το βρω και στο δινω

[mojiro]

εκει που γραφω στην Public Sub MjR_Load_nodes(iFile As String)

 

mjr_megatext = mjr_megatext & oneline & vbCrLf

 

ανταυτου βαλε

 

list1.AddItem newline

[Exoskeletor]

thanx mojiro alla se pia metablhth sonete kathe gramh tou listbox?

ego thelo px:

x= line 1 of the list

y=line 2 of the list

.

..

...

Elega mpas kai ginotan me kapoio tropo na kaneis kati san ayto:

For i = 1 to 10

xi=list.line.i

next

[mojiro]

στην

 

 

for i=0 to list1.listcount

me.caption=list1.list(i)

next i

 

 

 

αν δεν κανω λαθος

[Exoskeletor]

de nomizo pos eine list1.list(i)

prepei na eine list1.itemdata(i)

thanx man

[Exoskeletor]

etoimo:

 

Dim sTempa As String

Dim nFilea As Integer

Dim i As Integer

For i = 1 To 10

Dim asi As String

Next

For i = 1 To 20

Dim xi As String

Next

nFilea = FreeFile

i = 1

 

Open "C:\SOMEFILE.TXT" For Input As #nFilea

 

While Not EOF(nFilea)

'

Line Input #nFilea, sTempa

 

asi = Right$(sTempa, i)

Combo1.AddItem sTempa

asi = Combo1.NewIndex

i = i + 1

 

Wend

Close #nFilea

For i = 0 To Combo1.ListCount

xi = Combo1.List(i)

MsgBox xi

Next

 

mou fenete exo grapsei merikes blakeies parapano alla afou douleyei den peirazei

[StavrosD]

Ωραίος είσαι φίλε. Μήπως θα μπορούσες να πεις και σε ποια γλώσσα προγραμματίζεις;

Αν προγραμματίζεις σε visual studio, ASP ή κάτι τέτοιο, θα χρειαστείς αυτές τις πληροφορίες.

 

Κάθε γραμμή στο listbox είναι και ένα item

Κάθε item έχει το text και το value.

π.χ.

listbox1.item(2).text

listbox1.item(2).value

 

Το text είναι το κείμενο που εμφανίζεται στην οθόνη. Το value αν θες το χρησιμοποιείς για να προσθέσεις ότι πληροφορία δεν θες να φαίνεται, π.χ. ένα ID ή κάτι άλλο.

 

Για να προσθέσεις ένα item, αν θες να δώσεις μόνο το text:

listbox1.Items.Add("kati")

 

Για να προσθέσεις ένα item, αν θες να δώσεις και το value: (το παράδειγμα είναι για ASP.NET):

ListBox1.Items.Add(new System.Web.UI.WebControls.ListItem("text","value")

 

Για να διαβάσεις την επιλογή του χρήστη, διαβάζεις όποιο από τα τρία σε βολεύει.

ListBox1.SelectedIndex() ' Επιστρέφει την γραμμή την οποία επέλεξε ο χρήστης.

ListBox1.SelectedItem.text() ' Επιστρέφει το κείμενο

 

ListBox1.SelectedItem.Value() ' Επιστρέφει το value

ListBox1.SelectedValue()

[Exoskeletor]

se visual basic.

thanx for the info alla to kano alios ego.xrisimopoio combobox

anti gia combo1.SelectedItem.text()

bazo Combo1.Text (to selected item kai value den yparxei)

[mojiro]

η vb δεν ειναι μαθηματικα ....

 

For i = 1 To 10

Dim asi As String

Next

For i = 1 To 20

Dim xi As String

Next

 

οσες φορες και να του πεις να κανει DIM ενα ονομα παντα θα ειναι σαν

να του το ειπες μια φορα, ασε που σε αλλες γλωσσες(πχ c++ χτυπαει)

 

η vb δεν ειναι ανθρωπος να ξερει οτι xi ειναι 2 μεταβλητες και τις βλεπει

σαν μια......

 

ανταυτου φτιαξε πινακα ! x(y)

[Exoskeletor]

emena mou douleyei man...dhmiourgei x1,x2,x3...ayto ithela

[mojiro]

το

 

For i = 1 To 10

Dim asi As String

Next

For i = 1 To 20

Dim xi As String

Next

 

καντο

 

Dim asi As String

Dim xi As String

 

 

διοτι ειναι ακριβως το ιδιο πραμα

[Exoskeletor]

a ayto eleges? ok.

pali kala pou ebala edo ton kodika giati ton exasa

[kkal]

Lysh Kkal

 

1.)file pare auto to sub etsi opos einai kai antegrapseto sto project sou.

2.)kalese auto to sub grafontas to onoma tou listbox sou.

p.x. call LoadDim(list1)

3.)thn gramh mnhmhs (Dim Mnhmh() As String) baltein terma epano stin forma sou gia na einai Global sthn forma.

4.)Eisai etoimos na to trekseis!

 

>Private Sub LoadDim(NameListBox As ListBox)
Dim Mnhmh() As String
Dim i As Integer
ReDim Preserve Mnhmh(NameListBox.ListCount - 1) As String
For i = 0 To NameListBox.ListCount - 1
  Mnhmh(i) = NameListBox.List(i)
  msgbox Mnhmh(i)
Next i
End Sub