Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: MarcoPajotter on April 23, 2021, 10:35:24 am

Title: How to fill number (string) with previous 0 (zeros)
Post by: MarcoPajotter on April 23, 2021, 10:35:24 am
Hello,

And yes I have a new question,

I'm numbering a list, from 0 ... 100, and I like this line numbers as "0001" ... "0100" and not "1" ... "100"

Q) How can I fill the string with previous zero's in front of the "1" to show it as "0001"

I already did this:

Code: QB64: [Select]
  1. COMMON SHARED MyNumberValue AS LONG
  2. COMMON SHARED MyNumberString AS STRING * 8
  3.  
  4. LET MyNumberValue = 1
  5.  
  6. LET MyNumberString = "00000000"
  7. RSET MyNumberString = LTRIM$ ( RTRIM$ ( STR$ (MyNumberValue)))
  8.  
  9. PRINT MyNumberString
  10. PRINT "00000001"
  11.  


But this is not showing the good result ...

Thanks,
Marco

Title: Re: How to fill number (string) with previous 0 (zeros)
Post by: FellippeHeitor on April 23, 2021, 10:45:55 am
Code: QB64: [Select]
  1. Print zeropad$(1, 8)
  2.  
  3. Function zeropad$ (number&, length&)
  4.     zeropad$ = Right$(String$(length&, "0") + LTrim$(Str$(number&)), length&)
Title: Re: How to fill number (string) with previous 0 (zeros)
Post by: zaadstra on April 23, 2021, 04:02:16 pm
Something like this?
Code: QB64: [Select]
  1. FOR i = 1 TO 100
  2.    numberstring$ = MID$(STR$(10000 + i), 3)
  3.    PRINT "'"; numberstring$; "'"
  5.  

Printed with quoutes to show there are no spaces in the strings.
Title: Re: How to fill number (string) with previous 0 (zeros)
Post by: NOVARSEG on April 23, 2021, 09:21:32 pm
Slight mod

DIM Digits AS INTEGER
DIM i AS _UNSIGNED LONG

Digits = 4


FOR i = 0 TO 10 ^ Digits - 1

    numberstring$ = RIGHT$(STR$(10 ^ Digits + i), Digits)

    PRINT "'"; numberstring$; "'"
NEXT i

Max digits = 6.  If more than 6 digits, the output goes exponent notation ?

Title: Re: How to fill number (string) with previous 0 (zeros)
Post by: NOVARSEG on April 23, 2021, 09:34:29 pm
This one works better.


DIM Digits AS INTEGER
DIM i AS _UNSIGNED LONG
DIM Base10 AS _UNSIGNED LONG
Digits = 7
Base10 = 10

FOR i = 0 TO 10 ^ Digits - 1

    numberstring$ = RIGHT$(STR$(Base10 ^ Digits + i), Digits)

    PRINT "'"; numberstring$; "'"
NEXT i

Title: Re: How to fill number (string) with previous 0 (zeros)
Post by: SMcNeill on April 23, 2021, 10:03:08 pm
Digits = 7
FOR i = 1 TO 100
    numberstring$ = RIGHT$(“0000000000000000000000000” + _TRIM$(STR$(i)), Digits)
    PRINT numberstring$
    IF i MOD 20 = 0 THEN SLEEP
NEXT i

Good for as many digits as an _INTEGER64 can contain.  Just change the value of Digits.
Title: Re: How to fill number (string) with previous 0 (zeros)
Post by: NOVARSEG on April 23, 2021, 10:42:26 pm
With _INTEGER64  the max digits is 18?

DIM i AS _INTEGER64
DIM Digits AS INTEGER

Digits = 18

FOR i = 0 TO 10 ^ Digits - 1
    numberstring$ = RIGHT$(STRING$(Digits, "0") + _TRIM$(STR$(i)), Digits)
    PRINT numberstring$
    IF i MOD 20 = 0 THEN SLEEP
NEXT i

Hey that's a neat trick i MOD 20 = 0 !
Title: Re: How to fill number (string) with previous 0 (zeros)
Post by: MarcoPajotter on April 24, 2021, 02:26:35 am
Thanks everyone,

It works well, and I need some time now to make the good choice ...

And thanks for the quick responses.
 
Marco

Text Only | Text with Attachments