Procitaj red iz Txtbox-a .....

Procitaj red iz Txtbox-a ..... 28.10.2003. u 19:41 · pre 280 meseci #1

1.Kako Da Procitam jedan red iz textbox-a
Na primer treba mi da prebrojim koliko reda ima jedan textbox !!!

Potpis

Re: Procitaj red iz Txtbox-a ..... 28.10.2003. u 20:15 · pre 280 meseci #2

Mozda da iskoristis Split funkciju i vbCrLf kao znak za razdvajanje? Tako ces dobiti sve redove kao elemente niza..

Nemam ovde VB pa da proverim ali mozda bi moglo ovako:

Code:

Dim red() As String

red = Split( TextBox1.Text, vbCrLf )

Dim i As Integer
For i = LBound( red ) To UBound( red )
Debug.Print red( i )
Next

Odnosno mozda bi trebao jedno Replace da zamenis vbCrLf sa npr. vbCr pre nego Split-ujes (naravno tada bi u Split koristio vbCr). Proveri.

Code:

Dim temp As string
Dim red() As String

temp = TextBox1.Text
temp = Replace( temp, vbCrLf, vbCr )
red = Split( temp, vbCr )
...

Potpis

Commercial-Free !!!

Re: Procitaj red iz Txtbox-a ..... 29.10.2003. u 11:48 · pre 280 meseci #3

degojs, tvoj kod radi ako su redovi odvojeni sa vbCrLf, ali ako imas textbox kontrolu koja ima MultiLine property=True i kucas dovoljno dugo text u njega - dobices text box sa vise linija, a vbCrLf se nigde ne pojavljuje u Text1.Text.

Broj redova bi se racunao otprilike ovako:

Code:

Private Sub Command1_Click()
Dim Lin As Long
    Lin = Form1.TextWidth(Text1.Text) \ Text1.Width
    If Len(Text1.Text) <> 0 Then Lin = Lin + 1
    Debug.Print "Lines: " & Lin
End Sub

Da bi ovo radilo kako valja forma Form1 treba da ima isti font (naziv, velicinu, ...) kao i textbox Text1. Ako se ove stavri razlikuju, mozes umesto Form1 da koristis skriveni PictureBox koji isto ima TextWidth metod i mora da ima ista podesavanja za font kao Text1 kontrola. Ako imas vertical scrollbar na textboxu onda gornji kod moras da promenis tako da se i sirina scrollbara racuna u sirinu text boxa

Potpis

Blue Man Group

Re: Procitaj red iz Txtbox-a ..... 29.10.2003. u 16:54 · pre 280 meseci #4

Mozes da iskoristis i API funkciju SendMessage:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Tada dobijas broj redova u textboxu sa:
LinesCnt = SendMessage(TextBoxName.hWnd, EM_GETLINECOUNT, 0, 0)

Re: Procitaj red iz Txtbox-a ..... 01.11.2003. u 19:36 · pre 280 meseci #5

It's alive !!!!
Sve Funkcionise kako treba samo sto sam ja umesto 'Debug.Print' stavio
MsgBox Red(i) !!!

A Neznam Cemu Sluzi Debug.Print (Kada Stavim To Nista Se Nedesava)

Moze Li Malo Objasnjenje Toga !!!

Potpis

www.cicevac.com
†StEEwSc†

Re: Procitaj red iz Txtbox-a ..... 01.11.2003. u 20:00 · pre 280 meseci #6

Stisni ctrl-G i otvorice se Immediate prozor koji ostavi otvoren. Tu onda vidis ono sto ispisuje Debyg.Print.

Usput taj prozor sluzi za jos neke korisne stvari. Recimo napisi:
? 523+12

Mozes da koristis i VB funkcije i funkcije iz svog programa.. Snaći ćeš se već sad kad znaš da postoji.

Pozdrav :)

Potpis

Commercial-Free !!!