Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to do this?
Message
De
18/08/2008 08:02:26
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Allemagne
 
 
À
18/08/2008 07:56:43
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows XP
Database:
MS SQL Server
Divers
Thread ID:
01339448
Message ID:
01339485
Vues:
11
It's always a pleasure to help.


>Works perfectly
>
>
>#define CrLf chr(13)+chr(10)
>*
>cPath = node.FullPath
>nLen  = alines(aText,cPath,1,'\')
>cOuTxt= ''
>*
>for nCnt = 1 to nLen
> cOuTxt = cOuTxt + replicate('.',2*(nCnt-1)) + aText[nCnt] + iif(nCnt=nLen,'',CrLf)
>endfor
>return cOuTxt
>
>
>Thank you both Agnes and Tore
>
>
>>Zahid,
>>
>>for example
>>
>>lcIn = "Asset\Current Assets\Bank & Cash\Bank\HSBC"
>>lcOut = ''
>>FOR lnLine = 1 TO ALINES(laLines,lcIn,1,'\')
>> lcOut = lcOut+SPACE(lnLine)+laLines(lnLine)+CHR(13)+CHR(10)
>>ENDFOR &&lnLine
>>
>>?lcOut
>>
>>
>>HTH
>>Agnes
>>>Hi all.
>>>
>>>To view chart of accounts i m using the treeview. The treeview returns the fullpath of the selected node
>>>I want to change the string returned by Node.FullPath.
>>>Like:
>>>
>>>If fullpath is:
>>>"Asset\Current Assets\Bank & Cash\Bank\HSBC"
>>>
>>>Output required:
>>>
>>>"Asset
>>>    Current Assets
>>>       Bank & Cash
>>>          Bank
>>>             HSBC"
>>>
>>>
>>>If fullpath is:
>>>"Asset\Current Assets\Bank & Cash\Bank"
>>>
>>>Output required:
>>>
>>>"Asset
>>>    Current Assets
>>>       Bank & Cash
>>>          Bank"
>>>
>>>and so on...........
>>>
>>>
>>>Please help.
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord

Weeks of programming can save you hours of planning.

Off

There is no place like [::1]
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform