Leerzeichen wird nicht erkannt
2 Beiträge
•
Seite 1 von 1
2 Beiträge
Seite 1 von 1
Beitrag
von Beginner04 (ForumUser / 1 / 0 /
0
)
»
Hallo,
ich quäle mich derzeit mit Zeichenketten herum.
Auf einer Liste habe ich einen Text ausgegeben, bei diesem möchte ich per Doppelklick auf ein Wort dieses Wort via Pop up ändern können.
Die Liste u. das Pop up sind schon mal fertig. Das Problem ist noch das einzelne Wort anzeigen zu lassen.
Dazu das Coding:
FORM wers_als CHANGING f_wa_text TYPE string.
DATA: word TYPE string,
counter_rechts TYPE i,
counter_links TYPE i,
field1(52) TYPE c,
field2(52) TYPE c.
field1 = 'ABCDEFGHIJKLMNOPQRSTUWXYZabcdefghijklmnop
qrstuvwxyz'.
*sy-cucol gibt die aktuelle Cursorposition an aber mit zwei Felder Differenz, daher -2
counter_links = sy-cucol.
counter_links = counter_links - 2.
*im Vorfeld habe ich schon mit wa_text = sy-lisel.
die aktuelle Zeile sicher gestellt, so das jeweils bei einem Klick auf ein Wort sich jeweils die aktuelle Zeile in der wa befindet
Der Cursor erkennt nun das Leerzeichen nicht an u. hört nicht beim letzten Buchstaben des Wortes auf, sondern geht noch weiter!
DO.
IF f_wa_text+counter_links(1) CO field1.
counter_links = counter_links - 1.
ELSEIF f_wa_text+counter_links(1) NE field1
OR counter_links EQ 0.
EXIT.
ENDIF.
ENDDO.
counter_rechts = counter_links.
DO.
IF f_wa_text+counter_rechts(1) CO field1.
CONCATENATE word f_wa_text+counter_rechts(1) INTO word.
counter_rechts = counter_rechts + 1.
ELSEIF f_wa_text+counter_rechts(1) NE field1.
EXIT.
ENDIF.
ENDDO.
pa_walt = word.
REPLACE pa_walt WITH pa_wneu INTO pa_walt.
Ich bin leider am verzweifeln u. sowohl in der ABAP-Hilfe sowie im Forum nicht fündig geworden.
Freue mich auf eure Antworten.
Gruß
Beginner04
ich quäle mich derzeit mit Zeichenketten herum.
Auf einer Liste habe ich einen Text ausgegeben, bei diesem möchte ich per Doppelklick auf ein Wort dieses Wort via Pop up ändern können.
Die Liste u. das Pop up sind schon mal fertig. Das Problem ist noch das einzelne Wort anzeigen zu lassen.
Dazu das Coding:
FORM wers_als CHANGING f_wa_text TYPE string.
DATA: word TYPE string,
counter_rechts TYPE i,
counter_links TYPE i,
field1(52) TYPE c,
field2(52) TYPE c.
field1 = 'ABCDEFGHIJKLMNOPQRSTUWXYZabcdefghijklmnop
qrstuvwxyz'.
*sy-cucol gibt die aktuelle Cursorposition an aber mit zwei Felder Differenz, daher -2
counter_links = sy-cucol.
counter_links = counter_links - 2.
*im Vorfeld habe ich schon mit wa_text = sy-lisel.
die aktuelle Zeile sicher gestellt, so das jeweils bei einem Klick auf ein Wort sich jeweils die aktuelle Zeile in der wa befindet
Der Cursor erkennt nun das Leerzeichen nicht an u. hört nicht beim letzten Buchstaben des Wortes auf, sondern geht noch weiter!
DO.
IF f_wa_text+counter_links(1) CO field1.
counter_links = counter_links - 1.
ELSEIF f_wa_text+counter_links(1) NE field1
OR counter_links EQ 0.
EXIT.
ENDIF.
ENDDO.
counter_rechts = counter_links.
DO.
IF f_wa_text+counter_rechts(1) CO field1.
CONCATENATE word f_wa_text+counter_rechts(1) INTO word.
counter_rechts = counter_rechts + 1.
ELSEIF f_wa_text+counter_rechts(1) NE field1.
EXIT.
ENDIF.
ENDDO.
pa_walt = word.
REPLACE pa_walt WITH pa_wneu INTO pa_walt.
Ich bin leider am verzweifeln u. sowohl in der ABAP-Hilfe sowie im Forum nicht fündig geworden.
Freue mich auf eure Antworten.
Gruß
Beginner04
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Das kommt mir etwas aufwendig vor und außerdem stößt man dabei auch auf einige größere Probleme:
Was ist z.B. mit Wörtern, die häufiger vorkommen? Sollen diese dann alle ersetzt werden? Oder nur ein bestimmtes? Wenn ein bestimmtes, muß man die Position bestimmten, an die geklickt wurde, ... etc.
Wie dem auch sei. Ein Auffinden eines Wortes in einem Text und das dann zu ersetzen kann man am leichtesten wie folgt realisieren:
In der Variable sy-fdpos steht dann der offset. Damit könnte man relativ leicht im Text das Wort ersetzen, Wobei zu beachten ist, daß nach Leerzeichen gesucht wird, die vor dem gesuchten Wort enthalten sein müssen (es sei denn das Wort steht am Anfang). In dem Fall ist der Offset der des gefundenen Space!
Das läßt sich aber leich abfangen, wenn man die Patternsuche auf if ... else - Anweisungen verteilt.
Was ist z.B. mit Wörtern, die häufiger vorkommen? Sollen diese dann alle ersetzt werden? Oder nur ein bestimmtes? Wenn ein bestimmtes, muß man die Position bestimmten, an die geklickt wurde, ... etc.
Wie dem auch sei. Ein Auffinden eines Wortes in einem Text und das dann zu ersetzen kann man am leichtesten wie folgt realisieren:
Code: Alles auswählen.
data: g_text type string.
data: g_word(10) type c value 'Haus'.
data: g_patt1(50) type c,
g_patt2(50) type c.
concatenate g_word '# *' into g_patt1.
concatenate '*#' ` ` g_word '# *' into g_patt2.
g_text = 'Das ist das Haus vom Nikolaus'.
if g_text cp g_patt1 or g_text cp g_patt2.
write / 'word found'.
endif.
Das läßt sich aber leich abfangen, wenn man die Patternsuche auf if ... else - Anweisungen verteilt.
Seite 1 von 1
Vergleichbare Themen
0
Antw.
Antw.
1717
Views
Views
Wie wird im BW ein Delta an Daten erkannt?
von c0lt.seavers » 02.04.2009 08:23 • Verfasst in Sonstige Module
von c0lt.seavers » 02.04.2009 08:23 • Verfasst in Sonstige Module
7
Antw.
Antw.
8087
Views
Views
Datenbank View wird nicht erkannt
von Apabtalker » 08.08.2012 16:21 • Verfasst in ABAP® für Anfänger
von Apabtalker » 08.08.2012 16:21 • Verfasst in ABAP® für Anfänger
4
Antw.
Antw.
3466
Views
Views
Select-Options Variable wird nicht als solche erkannt
von ChristianHo » 18.01.2016 14:23 • Verfasst in ABAP® für Anfänger
von ChristianHo » 18.01.2016 14:23 • Verfasst in ABAP® für Anfänger
4
Antw.
Antw.
1751
Views
Views
Globale Definition SMARTFORMS wird in Folgeknoten nicht erkannt
von sapdepp » 03.07.2019 09:39 • Verfasst in ABAP® für Anfänger
von sapdepp » 03.07.2019 09:39 • Verfasst in ABAP® für Anfänger
8
Antw.
Antw.
5283
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.