Incluindo tratamento para final de parágrafo

perry.werneck@gmail.com
1 parent cab7a83b
Showing 1 changed file with 8 additions and 0 deletions Show diff stats
src/plugins/rx3270/sample/clipboard.rex
@@ -40,8 +40,15 @@
  
     s = strip(left(text,field_len))
     p = lastpos(" ",s)
+    n = pos(d2c(10),s)
  
     select
+    when n <> 0 then
+    do
+        s = strip(left(text,n-1))
+        text = strip(substr(text,n+1))
+    end
+
     when length(text) < field_len then
     do
         s = strip(text)
@@ -65,6 +72,7 @@
     if next <= cursor then
     do
         /* Next field is before the original position */
+        host~SetClipboard(text)
         return 0
     end
...	...	@@ -40,8 +40,15 @@
40	40
41	41	s = strip(left(text,field_len))
42	42	p = lastpos(" ",s)
	43	+ n = pos(d2c(10),s)
43	44
44	45	select
	46	+ when n <> 0 then
	47	+ do
	48	+ s = strip(left(text,n-1))
	49	+ text = strip(substr(text,n+1))
	50	+ end
	51	+
45	52	when length(text) < field_len then
46	53	do
47	54	s = strip(text)
...	...	@@ -65,6 +72,7 @@
65	72	if next <= cursor then
66	73	do
67	74	/* Next field is before the original position */
	75	+ host~SetClipboard(text)
68	76	return 0
69	77	end
70	78
...	...