[es] - Iz TextBox u ListBox

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

^{12.07.2007. u 20:50 - pre 204 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

Proba.zip - 4.81k

fpedja
Beograd

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

Profil

Re: Iz TextBox u ListBox

^{13.07.2007. u 13:28 - pre 204 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

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: Iz TextBox u ListBox

^{13.07.2007. u 14:44 - pre 204 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

rafforum.rs - Forum Računarskog Fakulteta

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Iz TextBox u ListBox

^{14.07.2007. u 00:10 - pre 204 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

Proba2.zip - 6.29k

goranvuc
Goran Vucicevic
Novi Sad

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

+41 Profil

Re: Iz TextBox u ListBox

^{14.07.2007. u 07:02 - pre 204 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]}