Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Trim MEMO help
Message
De
17/04/2002 08:55:13
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
 
 
À
17/04/2002 08:49:10
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00645842
Message ID:
00645846
Vues:
14
>Hi all,
>
>I have many lines of memo fields needed to be trimmed to remove all right blanks :
>
>for example : memos lines
>aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
>bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
>ccccccccccccccccccccccccccccccccccc
>ddddddddddddddddddddddddddddddddddd
>
>I used alltr(memos) still gave :
>aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
>
>bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
>
>ccccccccccccccccccccccccccccccccccc
>
>ddddddddddddddddddddddddddddddddddd
>
>how to get :
>aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbcccccccccccccccccccccddddddddddddddddddddddddddddddddd
>
>please guide me what command to use Mline(), ratline() left()
>
>or sample of coding to remove right blanks until the end .
>
>TIA
>Paul

You want to combine lines? Something like this:
local i, MyText
MyText = ""
for i = 1 to memlines(MyMemo)
  MyText = MyText + mline(MyMemo, i)
next
replace MyMemo with MyText
For a more efficient (faster) approach, read the help on MemLines() (using variable _mline), or use alines().

Hilmar.
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform