Commit 3a0ae668b412674f2fb70e02fbb73bfac2e722d6
1 parent
cab7a83b
Exists in
master
and in
5 other branches
Incluindo tratamento para final de parágrafo
Showing
1 changed file
with
8 additions
and
0 deletions
Show diff stats
src/plugins/rx3270/sample/clipboard.rex
| @@ -40,8 +40,15 @@ | @@ -40,8 +40,15 @@ | ||
| 40 | 40 | ||
| 41 | s = strip(left(text,field_len)) | 41 | s = strip(left(text,field_len)) |
| 42 | p = lastpos(" ",s) | 42 | p = lastpos(" ",s) |
| 43 | + n = pos(d2c(10),s) | ||
| 43 | 44 | ||
| 44 | select | 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 | when length(text) < field_len then | 52 | when length(text) < field_len then |
| 46 | do | 53 | do |
| 47 | s = strip(text) | 54 | s = strip(text) |
| @@ -65,6 +72,7 @@ | @@ -65,6 +72,7 @@ | ||
| 65 | if next <= cursor then | 72 | if next <= cursor then |
| 66 | do | 73 | do |
| 67 | /* Next field is before the original position */ | 74 | /* Next field is before the original position */ |
| 75 | + host~SetClipboard(text) | ||
| 68 | return 0 | 76 | return 0 |
| 69 | end | 77 | end |
| 70 | 78 |