Zeilenumbrüche in einem String (nicht Txtbox) zählen

michl75 · 30. Mai 2014, 11:43

Hallo,

ich versuche gerade in einem String... aus einem typisierten Dataset zu zählen.

Übergabe Daten:

VB.NET-Quellcode

If _az.Isaze_tagebuchtextNull = False Then _Infotext = _az.aze_tagebuchtext

Code zum Zählen:

VB.NET-Quellcode

Dim _Zeilen As Integer = _Infotext .Split(vbNewLine).Count
MsgBox(_Zeilen & vbCrLf & _Infotext )

Das Ergebnis ist aber immer 1 - also nur 1 Zeile... siehe Bild (Text ist nur als Test gedacht... also nicht ernst nehmen

), ich habe aber deutlich mehr Zeilen als nur eine!

Was mache ich da falsch ?

Danke vorab und Gruß

WhitePage · 30. Mai 2014, 11:49

Zeilenumbruch ist nicht gleich vbNewLine. In deinem Beispiel sehe ich nur einen... Was meinst du eigentlich unter Zeilenumbruch?

@michl75
Und hast du nachgeschaut, was in _Infotest zum Zeitpunkt des Splittens drin steht? Was gibt die Messagebox aus?

RoulettePilot · 30. Mai 2014, 11:53

Vielleicht solltest du auch nicht den bereits gesplitteten Text durchsuchen, sondern den gesamten.
also in der art. _infotext.Count(chr(13))

Edit:
Eine Holzhammermethode wäre auch diese

VB.NET-Quellcode

Using tb As New TextBox
tb.Text = _infotext
MsgBox("Anzahl Zeilen" & tb.Lines.Count)
End Using

Nicht schön.. aber effectiv

michl75 · 30. Mai 2014, 12:08

WhitePage schrieb:

@michl75
Und hast du nachgeschaut, was in _Infotest zum Zeitpunkt des Splittens drin steht? Was gibt die Messagebox aus?

siehe Bild, das ist die Ausgabe in einer TextBox...

fichz · 30. Mai 2014, 12:12

@RoulettePilot
Bei dieser Methode wird es auch falsch angezeigt.

@michl75

vbarchiv.net/tipps/tipp_1485-z…tbox-ermitteln-vbnet.html

Hier wird mittels API ermittelt wieviele Zeilen WIRKLICH angezeigt werden.

lg

RoulettePilot · 30. Mai 2014, 12:17

nanu? die Messagebox zeigt es richtig an, also mit den Zeilenumbrüchen..
und die TextBox nicht? Sie hat ein anderes Ergebnis, einen anderen "Lines.count" ?

*wunder*

michl75 · 30. Mai 2014, 12:22

also echt ned schön in einer Class eine TextBox zu Usen... aber es funktioniert

vielen Dank! Ich hab da noch weitere Sachen zu schreiben und da werde ich nach Tip von @fichz machen...
danke

ErfinderDesRades · 30. Mai 2014, 12:25

ähm - können wir die Textbox.Lines-Methode wieder in die Schublade? Das verstößt iwie gegen die Genfer Konvention gegen Kanonen auf Spatzen.

Dieses ist schon umständlich genug:

VB.NET-Quellcode

Function GetLineCount(s As String) As Integer
GetLineCount = 0
Using sr = New StringReader(s)
While sr.ReadLine IsNot Nothing
GetLineCount += 1
End While
End Using
End Function

@TE: hast du > vb2010? dann kann man sehr schön was mit Yield machen - einen Einzeiler.

RoulettePilot · 30. Mai 2014, 12:31

ich schrieb ja "Holzhammermethode"

kommt immer darauf an wann der Fertigstellungstermin und wie lang die ToDo-Liste noch ist .. he he..
oder ob es ein 1x-Wegwerfprogramm ist

Uner bestimmten Umständen (Zeit usw.) habe ich keinerlei Skrupel auch sowas zu verwenden*
Aber...
pppssssssttttt "Das muß unter uns bleiben"

Zeilenumbrüche in einem String (nicht Txtbox) zählen

Zeilenumbrüche in einem String (nicht Txtbox) zählen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

WhitePage schrieb:

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben