Hvordan kan jeg lage en "Character Counter"?

[dsbilling]

Hvordan kan jeg lage en "Character Counter"?

 

Den skal altså telle hvor mange boksatver som blir skrevet i en tekstboks. Noen som kan dette?

 

Trenger svar fort!

Endret 27. august 2009 av dsbmaster

[Merko]

Hvordan kan jeg lage en "Character Counter"?

 

Den skal altså telle hvor mange boksatver som blir skrevet i en tekstboks. Noen som kan dette?

 

Trenger svar fort!

Den letteste måten er vel:

 

MessageBox.Show(TextBox1.Text.Length)

[GeirGrusom]

[string].Length teller ikke teknisk sett hvor mange tegn som er i teksten, den teller hvor mange 16-bit shorts den består av.

edit: men i 99.9% av tilfeller er det bra nok.

Endret 27. august 2009 av GeirGrusom

[dsbilling]

Men er det noen måte jeg kan vise det i en Label?

[_powerade_]

Me.Label1.Text = CStr(Me.TextBox1.Text.Length)

 

Edit:

(CStr fordi jeg konsekvent bruker Option Strict...)

Endret 28. august 2009 av _powerade_

[GeirGrusom]

Hvorfor ikke

Label1.Text = Textbox1.Text.Length.ToString

?

Det spiller egentlig ingen rolle, men jeg synes CStr er en litt arkaisk måte å skrive på.

[dsbilling]

Takker.

 

Og en ting til, er det mulig til å få den til å telle fra feks 100 og nedover til 0 og etter null så blir tallene røde?

[GeirGrusom]

If teller < 0 Then Label1.ForeColor = Color.Red

[dsbilling]

If teller < 0 Then Label1.ForeColor = Color.Red

 

Du kan jo ALT!

EDIT: Hva blir koden hvis jeg skal telle nedover fra 140 til 0, og fra og med 10 så blir koden rød?

Endret 28. august 2009 av dsbmaster

[GeirGrusom]

For i As Integer = 140 To 0 Step -1
 Label1.Text = i.ToString()
 If i <= 10 Then Label1.ForeColor = Color.Red
Next

Du må slenge en eller annen forsinkelse inn der også.

[dsbilling]

For i As Integer = 140 To 0 Step -1
 Label1.Text = i.ToString()
 If i <= 10 Then Label1.ForeColor = Color.Red
Next

Du må slenge en eller annen forsinkelse inn der også.

 

Nå teller den ikke

[GeirGrusom]

Blir den rød? Står det 0?

[dsbilling]

Blir den rød? Står det 0?

Stemmer...

[GeirGrusom]

Den teller ned til 0, men du rekker ikke se det. Delvis fordi den ikke tegner opp på nytt, og delvis fordi det går for fort.

[dsbilling]

Den teller ned til 0, men du rekker ikke se det. Delvis fordi den ikke tegner opp på nytt, og delvis fordi det går for fort.

 

Hva må jeg gjøre da?

[GeirGrusom]

Hehehe.

 

Gidder ikke skrive noe kode.

 

En forsinkelse kan lages enkelt ved å bruke Environment.TickCount egenskapen, som forteller deg hvor mange millisekunder som har gått siden OS-et startet.

Sleng inn en DoEvents for å passe på at GUI-en fortsatt er responsiv mens nedtellingen foregår.

[_powerade_]

[string].Length teller ikke teknisk sett hvor mange tegn som er i teksten, den teller hvor mange 16-bit shorts den består av.

edit: men i 99.9% av tilfeller er det bra nok.

 

Hva bør man bruke i stedet for .Length da??

Endret 10. september 2009 av _powerade_

[brgr]

Istedefor Length kan du jo faktisk telle hver Char i Strengen.

Function CountChar([str] As String) As Long
CountChar = 0
For Each x As Char In [str]
CountChar += 1
Next x
End Function

For å finne lenge kan du da enkelt bare skrive

MsgBox(CStr(CountChar("Hei på deg")))

[GeirGrusom]

Vel, poenget er at det finnes unicode tegn som bruker 32-bit.

For å telle antall tegn i en tekststreng bruker en System.Globalization.StringInfo klassen.

Dog for alle norske tegn finnes det en 16-bit representasjon.

 

Dim info As New StringInfo(min_tekst_streng)
MessageBox.Show(info.LengthInTextElements.ToString())

[_powerade_]

Vel, poenget er at det finnes unicode tegn som bruker 32-bit.

 

Ok, så hvis det er tegn som bruker 32-bit, så vil string.Length telle denne som 2 tegn?

 

Det vil jo kanskje i noen tilfeller ha en ganske stor betydning hvis ikke utvikleren har tatt høyde for dette??

 

Forresten: Hvor lenge har du drevet med dette GeirGrusom, det er jo ikke noe du ikke kan

Endret 12. september 2009 av _powerade_