textfild, instr() und chr(13)

[i]

hallo,

ich habe dein textfeld auf einem dialog und lese aus diesem den inhalt.
der inhalt umfasst mehrere zeilen text.
nun möcht ich aus dem text die 2. zeile herraustrennen und suche das 1. und 2. chr(13) zeichen mit der instr()-funktion. nur kennt die funktion das chr(13) zeichen nicht.

hier der code

Code: Alles auswählen

	dim s as string
	dim pos_a as integer
	dim pos_e as integer
	s=cstr(ctrlQuelle.text)
	pos_a=0
	pos_e=0
	rem 2. Zeile suchen
	pos_a=instr(1,s,chr(13))
	if pos_a>0 then
		pos_e=instr(pos_a,s,chr(13))
	end if
	rem 2. Zeile herraustrennen
	if pos_e>0 then
		s=mid(s,pos_a,pos_e)
	end if
	msgbox s

wie kann man das (sonst) realisieren?

mfg ??? i

[Stephan]

ich habe dein textfeld

zur Sicherheit:
Was bezeichnest Du als Textfeld in diesem Zusammenhang?

nun möcht ich aus dem text die 2. zeile herraustrennen und suche das 1. und 2. chr(13) zeichen mit der instr()-funktion. nur kennt die funktion das chr(13) zeichen nicht.

Sicher das es da ist und nicht nur so aussieht? Lies mal alle Zeichen des Gesamtstrings und lass Dir deren ASCII-Werte ausgeben und schau ob 13 überhaupt vorkommt.


Gruß
Stephan

[i]

hallo Stephan und danke für deine Antwort

1. Als textfeld bezeichne ich eine "Text Box" im Zusammenhang zu einem Dialog.
(Ok, habe mich da nicht korrekt ausgedrückt. Sry.)

2. Ja da hätte ich auch drauf kommen können.
habe aber diesen code ablaufen lassen:

Code: Alles auswählen

Dim n As Integer
For n = 0 to 255
	msgbox "a"+chr(n)+"b"+" ->"+n
Next

und bin zu der Erkenntnis gekommen, das folgende ascii-codes einen Zeilenumbruch erzeugen: 10 und 13.
Und das in der text box die 13 verwendet wird.

mfg i