OpenOffice.info

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

hallo Stephan und danke für deine Antwort

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

[b]2.[/b] Ja da hätte ich auch drauf kommen können.
habe aber diesen code ablaufen lassen:
[code]
Dim n As Integer
For n = 0 to 255
msgbox "a"+chr(n)+"b"+" ->"+n
Next
[/code]
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

[quote]ich habe dein textfeld[/quote]

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

[quote]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.[/quote]

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

	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

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]
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

[/code]

wie kann man das (sonst) realisieren?

mfg ??? i