Keskustelu: Ohjelmointikysymykset: VBA: Kaksi kysymystä

Elikkäs miten saan tekstilaatikossa kun on tällä tavalla?

tässä kohtaa on tyhjää
Jee
Joo
Juu

Niin tuon tyhjän kohdan poies.

Sitten toinen kysymys.
Miten voisin lukea tekstilaatikon listboxiin helposti?

tesmu:
1. Käyt läpi kaikki alkiot for-silmukalla. Jos kohta on tyhjä, poistat indeksin RemoveItem-komennolla:
listbox1.RemoveItem indeksi, missä indeksi on poistettavan kohdan numero. Alkaa 0:sta.
2. Millä tavalla helposti?

3. Miksi anomizerin viesti on tuolla alussa?

sqwiik kirjoitti:

tesmu:
1. Käyt läpi kaikki alkiot for-silmukalla. Jos kohta on tyhjä, poistat indeksin RemoveItem-komennolla:
listbox1.RemoveItem indeksi, missä indeksi on poistettavan kohdan numero. Alkaa 0:sta.
2. Millä tavalla helposti?

3. Miksi anomizerin viesti on tuolla alussa?

Ensinnäkin jos osaat lukea niin kyse on tekstilaatikosta ei listboxista.

Toiseksi millätavalla yleensäkki tekisin sen?

Kolmanneksi ihmettelin itsekkin tota joku bugi kai :).

sqwiik kirjoitti:

1. Käyt läpi kaikki alkiot for-silmukalla.

Textbox, ei listbox.

Trim-funktio auttaa.

tesmu kirjoitti:

Miten voisin lukea tekstilaatikon listboxiin helposti?

Ekana tuli mieleen splitata se teksti vaikka rivinvaihdolla ja lisätä sitten taulukon alkiot siihen listaan.

sqwiik kirjoitti:

3. Miksi anomizerin viesti on tuolla alussa?

Miksi anomizerin viesti vuodelta 2003 on tuolla alussa ois minusta ollu paljo parempi kysymys :)
Noh, ilmeisestä tämä foorumi bugaa jonkin verran, ei sitä ainakaan enää siellä ole :)

Joskus muinoin anomizer oli hoksannut, että myös tuleviin aiheisiin pystyy lähettämään viestejä. Nyt viesti sitten viimein ilmestyi näkyviin, kun vuoroon tuli hauska id-numero 8080. Poistin kuitenkin anomizerin viestin aiheuttamasta hämmennystä. :)

öö tota voitko heittää esimerkin tuosta trim functiosta ja myös tuosta lukusysteemistä ?

Eikös helpoin ole ihan vaan List1.AddItem Text1.Text?

Lumi-ukkeli kirjoitti:

Eikös helpoin ole ihan vaan List1.AddItem Text1.Text?

juu mutta se lisää koko tekstilaatikon sisällön ensimmäiseens sarakkeeseen

tämä taas pitäisi saada että
list1.additem rivi
list1.additem rivi2
mutta en oikeen osaa :D ei oo tullu harjoteltua tuollaisia vielä paljoo :D:D:D

eikö kukaan osaa auttaa :(

tuon ylimääräsen tyhjän rivin ongelman sain ratkaistua tälläisellä koodilla

text1.text=mid(text1.text,3)

mutta edelleen textboxin lukeminen rivi riviltä listboxiin on ongelma

Jos textboxin rivien lopussa on rivinvaihto, voit lukea sen avulla rivin kerrallaan ja lisätä listboxiin.

i = 1 'aloitus
Do
   j = InStr(i, Text1, vbCrLf) 'seuraava rivinvaihto
   If j = 0 Then Exit Do
   List1.AddItem Mid(Text1, i, j - i) 'lisätään rivi
   i = j+2 'seuraavan rivin alku
Loop
'jos viimeisen rivin lopussa ei ole rivinvaihtomerkkiä
If Len(Text1) >= i Then
   List1.AddItem Mid(Text1, i) 'lisätään loput
End If