Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Transforming string representation
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00564145
Message ID:
00564729
Vues:
21
Ok. Here's corrected version.
>Well, as Vlad pointed out, this would not work, if I have price33 as a variable. Besides, I wanted $100 and $1,000,000 for better readability. Anyway, thanks.
>
>I found some problems in this application, so I'm going to revise it anyway, and add this functionality in addition.
>
>BTW, what are good settings for numeric textbox, which should look like currency?
>
>Thanks in advance.
>
>>
>>lcStrIn = "between(price, 100,1000000)"
>>lcStrOut = ""
<b>llDelimiter = .T.</b>
>>FOR i=1 TO Len( lcStr)
>>	lcCurChar = Substr( lcStrIn, i, 1 )
>>	IF Isdigit(lcCurChar) <b>And llDelimiter</b>
>>		lcStrOut = lcStrOut + "$" + lcCurChar
>>	ELSE
>>		lcStrOut = lcStrOut + lcCurChar
>>	ENDIF
>>
        <b>llDelimiter = NOT (BETWEEN( UPPER(lcCurChar), "A", "Z") And lcCurChar = "_")</b>
>>
>>ENDFOR
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform