vbNewLine falsch ? Er macht 2 mal eine neue Zeile...

ChRoNiK · 2. Juli 2010, 17:32

Guten Tag ,

folgender Code :

VB.NET-Quellcode

Dim counter As Integer = 0 ' Für die Textausgabe
Dim strToRead As String = "Hallo dies ist ein kleiner Test der Textausgabe. " & vbNewLine & " Test"
Dim newChar() As Char = strToRead.ToCharArray()

Dies setz alles für die Textausgabe bereit..
Und hier :

VB.NET-Quellcode

If counter = Len(strToRead) Then
t_text.Stop()
MessageBox.Show(counter)
Else
RichTextBox1.Text += newChar(counter)
counter = counter + 1
End If

schreibt er den Text das problem dabei ist folgendes siehe Screen im Anhang er macht 2 NEue Zeilen und nicht nur eine ...

MFg

xXMichaelXx · 2. Juli 2010, 17:35

Für mich sieht das am Bild nur noch einer neuen Zeile aus :?

jvbsl · 2. Juli 2010, 17:36

vbNewLine = vbCrLf
dies hier ist nicht ein einzelnes Char sondern ganze zwei, also solltest du vielmehr in diesem Fall zwei Chars hinzufügen

Gugi · 2. Juli 2010, 17:36

Probiers mal mit vbcrlf

Mfg Gugi
edit: too late xD

jvbsl · 2. Juli 2010, 17:37

nö, da vbCrLf = vbNewLine

ChRoNiK · 2. Juli 2010, 17:38

xXMichaelXx schrieb:

Für mich sieht das am Bild nur noch einer neuen Zeile aus :?

Ja es ist eine Komplett Leere Zeiler ich will aber das er nachdem satz :

Hallo dies ist ein kleiner Test der Textausgabe.
->Hier weiter schreibt und nicht

Hallo dies ist ein kleiner Test der Textausgabe.
Leer
-> Hier weiterschreibt

PascalN · 2. Juli 2010, 17:46

So sollte es gehen:

VB.NET-Quellcode

Dim counter As Integer = 0 ' Für die Textausgabe
Dim strToRead As String = "Hallo dies ist ein kleiner Test der Textausgabe. " & vbNewLine & " Test"
Dim newChar() As Char = strToRead.ToCharArray()
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t_text.Tick
If counter = Len(strToRead) Then
t_text.Stop()
MessageBox.Show(counter)
Else
If Not counter = 50 Then
RichTextBox1.Text += newChar(counter)
End If
counter = counter + 1
End If
End Sub

Denn wenn du an Position 50 bist (vbNewLine), wird vbNewLine vom Code generiert und dann noch einmal von newChar()
Deshalb kommt es 2mal..

Grüsse
Pascal

ChRoNiK · 2. Juli 2010, 17:48

PascalN schrieb:

If counter = Len(strToRead) Then t_text.Stop() MessageBox.Show(counter) Else If Not counter = 50 Then RichTextBox1.Text += newChar(counter) End If counter = counter + 1 End If

er macht mir immer noch 2 mal ne neue Zeile..

kann man das irgendwie anders lösen ?

PascalN · 2. Juli 2010, 17:49

Wie das?
Ich habs jetzt grade nochmal getestet... Bei mir kommt nur eine neue Zeile...

Grüsse
Pascal

ChRoNiK · 2. Juli 2010, 17:51

ok das funzt ... sry hatte falsch C&P gemacht

Aber wie soll das nun gehen wenn das VBNewLine immer woanders ist ?
Also wenn es mal an der 3 stelle mal an der 24 stelle ?

PascalN · 2. Juli 2010, 17:53

Du kannst einfach überprüfen, ob an der Stelle (= Wert von counter) des Textes das Zeichen vbNewLines ist.
Wenn ja, überspringen, wenn nein Text hinzufügen.

ChRoNiK schrieb:

sry hatte falsch C&P gemacht

...Ich sag jetzt mal nichts dazu

Grüsse
Pascal

ChRoNiK · 2. Juli 2010, 17:56

du meinst in dem sinne von :

VB.NET-Quellcode

if newchar = vbnewlines then
'nichts
else
'textschreiben
endif

?

PascalN · 2. Juli 2010, 17:59

hmm..

VB.NET-Quellcode

If Not strToRead.Substring(counter, 1) = Chr(13) Then
RichTextBox1.Text += newChar(counter)
End If
counter = counter + 1

So sollte es gehen.....
Es wird jetzt einfach immer überprüft ob das aktuelle Zeichen Chr(13) (= vbNewLine) ist, wenn ja, wird das Zeichen übersprungen, wenn nein wird geshrieben.
Genau wie oben nur nicht mehr mit den konstanten '50'...
Hoffe das hilft dir

Grüsse
Pascal

ChRoNiK · 2. Juli 2010, 18:03

PascalN schrieb:

If Not strToRead.Substring(counter, 1) = Chr(13) Then RichTextBox1.Text += newChar(counter) End If counter = counter + 1

Danke dir funzt Perfekt =)

Mfg

ChRoNiK

PascalN · 2. Juli 2010, 19:04

Hast du es auch verstanden oder nur kopiert?

sonst frag lieber nach, denn es ist wichtiger, das du es verstehst.....

Grüsse
Pascal

ChRoNiK · 2. Juli 2010, 19:08

Ne ich habs schon verstanden einzig was ich net verstehe ist war er dann nicht beide mal das vbnewline überspringt..
weil er das ja eigentlich 2 mal macht...
aber sonst versteh ich den code.

PascalN · 2. Juli 2010, 19:13

Weil die Funktion newChar() bei counter=50 (in dienem Fall)
Noch mal ein vbNewLine schreibt zusätlzich zu dem im String...

Grüsse
Pascal

ChRoNiK · 2. Juli 2010, 19:56

Okay danke dir =)

Nun hab ich alles verstanden

J.Herbrich · 21. August 2015, 19:21

Nutze Lieber Enviromand.NewLine damit greifst du auf deinen System Umgebung zu und kannst dir dort das auf den System Gültige Zeichen für die neue Zeile abholen.

LG J.Herbrich

Trade · 21. August 2015, 20:38

Das Thema ist von 2010. Bitte nicht alles ausgraben.

=> Closed.

vbNewLine falsch ? Er macht 2 mal eine neue Zeile...

vbNewLine falsch ? Er macht 2 mal eine neue Zeile...

VB.NET-Quellcode

VB.NET-Quellcode

xXMichaelXx schrieb:

VB.NET-Quellcode

PascalN schrieb:

ChRoNiK schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

PascalN schrieb:

Ähnliche Themen

5 Benutzer haben hier geschrieben