New topic: 

VB Lset function equivalent in Realbasic

<http://forums.realsoftware.com/viewtopic.php?t=26463>

       Page 1 of 1
   [ 1 post ]                 Previous topic | Next topic         Author  
Message       HMARROQUINC           Post subject: VB Lset function equivalent 
in RealbasicPosted: Sat Feb 14, 2009 4:38 pm                        
Joined: Sun Jan 25, 2009 5:11 pm
Posts: 9              Hi!

I'm trying to find out if there is an equivalent function in RB to VB's LSet 
function?

To anyone familiar with VB's LSet function (I'm not that familiar myself):

Do you think that this code is equivalent to what the VB function does?

Code:'LSet sNumero = strNum '<-- What I want to do

'This is my interpretation of the function in RB code
If Len(strNum) <= Len(sNumero) Then
  ' Copy the text across and pad the
  ' rest with spaces
  Dim INum, ILen as integer
  ILen = (len(snumero) - len(strNum))
  if iLen > 0 then
  For INum = 1 to iLen
  sNumero = strNum + " "
  next INum
  end if
Else
  ' Copy as many chars from the new
  ' text as strTest is wide
  sNumero = Left(strNum, Len(sNumero))
End If


Thanks in advance for any help or suggestions

Hector   
                            Top            Display posts from previous: All 
posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost 
timeSubject AscendingDescending          Page 1 of 1
   [ 1 post ]     

-- 
Over 900 classes with 18000 functions in one REALbasic plug-in. 
The Monkeybread Software Realbasic Plugin v8.1. 

&lt;http://www.monkeybreadsoftware.de/realbasic/plugins.shtml&gt;

[email protected]

Reply via email to