Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Iz TextBox u ListBox

[es] :: Visual Basic 6 :: Iz TextBox u ListBox
(Zaključana tema (lock), by Aleksandar Ružičić)

[ Pregleda: 3535 | Odgovora: 14 ] > FB > Twit

Postavi temu

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Srdjan Prpa
Senior FullStack developer
Cloud Horizon
Beograd, Srbija

Član broj: 120238
Poruke: 131
82.208.236.*



+1 Profil

icon Iz TextBox u ListBox03.07.2007. u 12:00 - pre 174 meseci
Kako da iz TextBox ubacim u ListBox, napravio sam da ucitam neki txt fajl u TextBox e kako odma kad ucitam taj fajl da mi se iz TextBox prebaci u ListBox?
 
0

fpedja
Beograd

Član broj: 145092
Poruke: 76
*.xdsl.beograd.com.



Profil

icon Re: Iz TextBox u ListBox03.07.2007. u 13:45 - pre 174 meseci
Ako sam razumeo problem:

dim a as String = TextBox1.Text
ListBox1.Items.Add(a)

Ili zelis da deo teksta iz textBox-a prebacis?

[Ovu poruku je menjao fpedja dana 03.07.2007. u 17:11 GMT+1]
 
0

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Iz TextBox u ListBox12.07.2007. u 20:50 - pre 173 meseci
Re fPedja
Ne moze tako. U listboxu se dobija tekst ispisan u jednom jedu sa kvadraticima izmedju teksta(umesto da je tekst u novom redu jer listbox ne prepoznaje znake za novi red kao tekst box..

Mora ovako.

Code:

Private Sub Form_Load()
    putanjaprograma = App.Path
    If Right(putanjaprograma, 1) <> "\" Then
        putanjaprograma = putanjaprograma & "\"
    End If
    Open putanjaprograma & "Proba.txt" For Input As #1
    
    tekstzaupis = ""
    Do While Not EOF(1)
        Line Input #1, ocitanoizfajla
        List1.AddItem ocitanoizfajla
        tekstzaupis = tekstzaupis & ocitanoizfajla & vbCrLf
    Loop
    
    Text1.Text = tekstzaupis
End Sub

rgdrajko
Prikačeni fajlovi
 
0

fpedja
Beograd

Član broj: 145092
Poruke: 76
*.xdsl.beograd.com.



Profil

icon Re: Iz TextBox u ListBox13.07.2007. u 13:28 - pre 173 meseci
Ok. Nisam ga razumeo da li zeli sve iz text boxa ili deo. To sam ga pitao ali nije odgovorio. U svakom slucaju, hvala na primedbi
 
0

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

icon Re: Iz TextBox u ListBox13.07.2007. u 14:44 - pre 173 meseci
sto se tice citavanja text fajla direktno u list box (sto je highagain pitao u jednoj od predhodnih tema) to je vec odgovoreno u ovoj temi: http://www.elitesecurity.org/t267914-Import-txt-fajla-ListBox-VB, znaci nema potrebe za textbox-om

a ako nekome treba nacin kako da iz textboxa ucita text u listbox, onda to ide ovako:
Code:

Dim lines() As String
Dim i As Long

lines = Split(Text1.Text, vbNewLine)

List1.Clear

For i = 0 To Ubound(lines)
  
  List1.AddItem lines(i) 

Next

 
0

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Iz TextBox u ListBox14.07.2007. u 00:10 - pre 173 meseci
Ucitavanje iz tekstualnog fajla u tekst box i u list box istovremeno. Svaka izmena u text boxu(pisanje, brisanje...) u toku rada se automatski upisuje i u list boxu.
Program je uradjen bez funkcije Split radi lakseg razumevanja.

Code:

'Ucitavanje iz Text box-a u List box
Private Sub Form_Load()
    putanjaprograma = App.Path
    If Right(putanjaprograma, 1) <> "\" Then
        putanjaprograma = putanjaprograma & "\"
    End If
    Open putanjaprograma & "Proba.txt" For Input As #1
    
    tekstzaupis = ""
    Do While Not EOF(1)
        Line Input #1, ocitanoizfajla
        List1.AddItem ocitanoizfajla
        tekstzaupis = tekstzaupis & ocitanoizfajla & vbCrLf
    Loop
    
    Text1.Text = tekstzaupis
    
    Call IzTextBoxauListBox
End Sub

Private Sub Text1_Change()
    'Svaka promena u Text boxu(brisanje, pisanje se automatski menja i u List box-u)
    If Right(Text1.Text, 1) <> vbLf Then
        Text1.Text = Text1.Text & vbCrLf
    End If
    Call IzTextBoxauListBox
End Sub

Public Sub IzTextBoxauListBox()
    List1.Clear
    nekitekst = Text1.Text
    pocetak = 1
    Do While kraj < Len(nekitekst)
        'Posto je iza svake reci znak vbNewLine tj. vbCr+vbLf trazimo vbLf
        If InStr(pocetak, nekitekst, vbLf) Then
            kraj = InStr(pocetak, nekitekst, vbLf)
            nekarec = Mid(nekitekst, pocetak, kraj - pocetak - 1)
            List1.AddItem nekarec
            pocetak = kraj + 1
        End If
        DoEvents
    Loop
End Sub

rgdrajko
Prikačeni fajlovi
 
0

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.



+41 Profil

icon Re: Iz TextBox u ListBox14.07.2007. u 07:02 - pre 173 meseci
Citat:
rgdrajko:
Program je uradjen bez funkcije Split radi lakseg razumevanja.


Pa nije bas svima funkcija Split teska za razumevanje

Evo opis funkcije iz MSDN-a:
Citat:

Description

Returns a zero-based, one-dimensionalarray containing a specified number of substrings.

Syntax

Split(expression[, delimiter[, count[, compare]]])

The Split function syntax has these parts:

Part Description
expression Required.String expression containing substrings and delimiters. If expression is a zero-length string(""), Split returns an empty array, that is, an array with no elements and no data.
delimiter Optional. String character used to identify substring limits. If omitted, the space character (" ") is assumed to be the delimiter. If delimiter is a zero-length string, a single-element array containing the entire expression string is returned.
count Optional. Number of substrings to be returned; –1 indicates that all substrings are returned.
compare Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values.


Settings

The compare argument can have the following values:

Constant Value Description
vbUseCompareOption –1 Performs a comparison using the setting of the Option Compare statement.
vbBinaryCompare 0 Performs a binary comparison.
vbTextCompare 1 Performs a textual comparison.
vbDatabaseCompare 2 Microsoft Access only. Performs a comparison based on information in your database.

Svaki normalan programski jezik ima funkciju za "splitovanje" teksta u niz, pa necemo valjda umesto 1 reda koda stalno pisati 10 ili 15?

Code:

varNiz = Split("1,2,3,4,5,6,7", ",")

ili prostim recnikom: Iz teksta "1,2,3,4,5,6,7" napravi niz tako sto ces uzeti sve delove teksta odvojene zarezom.

Moze li ovako jednostavno i ipak puno jasnije nego ona "kobasica". Da li je moguce da vise ne raspravljamo ovde o nekim osnovnim stvarima?

P.S. Uz osnovno testiranje mogao si da vidis da funkcija "IzTextBoxauListBox", ako je izolovano posmatras, ne vraca poslednji red teksta, a da ne spominjem sto vecno stoji u petlji i nikad se ne ispuni uslov izlaska iz nje

A evo i izvorni tekst tvoje funkcije, za svaki slucaj, kako ti rece "Ako koza laze ...":
Code:

Public Sub IzTextBoxauListBox()
    List1.Clear
    nekitekst = Text1.Text
    pocetak = 1
    Do While kraj < Len(nekitekst)
        'Posto je iza svake reci znak vbNewLine tj. vbCr+vbLf trazimo vbLf
        If InStr(pocetak, nekitekst, vbLf) Then
            kraj = InStr(pocetak, nekitekst, vbLf)
            nekarec = Mid(nekitekst, pocetak, kraj - pocetak - 1)
            List1.AddItem nekarec
            pocetak = kraj + 1
        End If
        DoEvents
    Loop
End Sub


Ako si bas hteo "cist i jednostavan pristup" onda si trebao u ovoj funkciji da pre obrade dodajes na kraj teksta vbCrLf na ovaj nacin:
Code:

Public Sub IzTextBoxauListBox()
    List1.Clear
    nekitekst = Text1.Text & vbCrLf
    pocetak = 1
    ...
End Sub

a ne da "poturas" korisniku ovaj karakter u Text1_Change() dogadjaju:
Code:

Private Sub Text1_Change()
    'Svaka promena u Text boxu(brisanje, pisanje se automatski menja i u List box-u)
    If Right(Text1.Text, 1) <> vbLf Then
        Text1.Text = Text1.Text & vbCrLf
    End If
    Call IzTextBoxauListBox
End Sub



[Ovu poruku je menjao goranvuc dana 14.07.2007. u 08:54 GMT+1]
 
0

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Iz TextBox u ListBox14.07.2007. u 11:28 - pre 173 meseci
Citat:
rgdrajko: Program je uradjen bez funkcije Split radi lakseg razumevanja.


Hvala, ali sve sam to znao daleko pre tebe. Kao sto gore pise ovo je cisto demostracija istog programa bez funkcije Split. Program je radjen na brzinu bez detaljnog testiranja.


rgdrajko
 
0

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.



+41 Profil

icon Re: Iz TextBox u ListBox14.07.2007. u 11:29 - pre 173 meseci
Izvini, zaboravio sam da radis u VB-u .... koliko, 255 ili 300 godina, posto je svaki put sve vise i vise?
 
0

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Iz TextBox u ListBox14.07.2007. u 11:33 - pre 173 meseci
Pa mozda 255-300 godina. Salim se. Krenuo sam od 20 godine na spectrumu. Obrisi ova tri moja odgovora posto se ljutis.
rgdrajko
 
0

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.



+41 Profil

icon Re: Iz TextBox u ListBox14.07.2007. u 11:38 - pre 173 meseci
Ma ne ljutim se, samo ne mora uvek da bude tvoja zadnja, narocito ako uopste ne doprinosi temi vec unosi zabunu. Nemoj ni ti da se ljutis, ali
Citat:
rgdrajko: Hvala, ali sve sam to znao daleko pre tebe.
ne treba da izjavljujes, ako nisi siguran u to. Tvoje godine ti ne daju pravo na takve izjave, jer je moja baba starija od tebe, pa ne znaci da je zato bolji programer od tebe, tj. da je pre pocela da koristi funkciju Split()
 
0

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Iz TextBox u ListBox14.07.2007. u 11:49 - pre 173 meseci
Ne ljutim se, bas je ovo sve simpaticno, to sto svi hocete mene da naucite i da mi mnogo toga objasnite. Dobar si ti programer, u stvari svi ste vi dobri programeri i bolji od mene, mnogo toga sam naucio od vas za veoma kratko vreme.
rgdrajko
 
0

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.



+41 Profil

icon Re: Iz TextBox u ListBox14.07.2007. u 11:58 - pre 173 meseci
Ovaj cinizam najvise govori o tebi kao licnosti, a to koliko je ko dobar programer se moze videti iz koda koji svako od nas postavlja ovde, npr. iz tvog koda se moze dosta toga zakljuciti
 
0

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Iz TextBox u ListBox14.07.2007. u 12:13 - pre 173 meseci
Uopste nisam bio cinican, bas naprotiv. Rekao sam onako kako mislim.
rgdrajko
 
0

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

icon Re: Iz TextBox u ListBox14.07.2007. u 14:35 - pre 173 meseci
ljudi, odoste previse offtopic, lock!
 
0

[es] :: Visual Basic 6 :: Iz TextBox u ListBox
(Zaključana tema (lock), by Aleksandar Ružičić)

[ Pregleda: 3535 | Odgovora: 14 ] > FB > Twit

Postavi temu

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.